Удалить лишние пробелы

@Genn55 · Регистрация: 26.12.2012

Студворк — интернет-сервис помощи студентам

Доброго всем времени суток!
Не получается у меня очистить строку от лишних пробелов.

В строке Text числа стоят разорванные, их нужно привести к нормальному виду и сохранить табуляцию.Т.е удалить все лишние пробелы. По моему это лучше сделать с помощью регулярных выражений,но я в них не очень.
Вот что у меня получилось.Удаляет и пробелы и символы.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Click()
Dim i As Long, Str As String
Set objRegExp = CreateObject("VBScript.RegExp")
Text = "АИР100L8 , АИС112М8  3, 0 11,6  /6,7    103, 8   98  36  11; 9 ; 7 + 4   1   38  1,12    2 ,96"
Text1 = Text
'objRegExp.ignorecase = True
objRegExp.Global = True
objRegExp.Pattern = "(\s*([^А-Я\w\d\s]) *)"
'Text2 = objRegExp.Replace(Text, "")
'Text2 = objRegExp.Replace(Text, "$1$2")
Set objMatches = objRegExp.Execute(Text)
MsgBox objMatches.Count
For i = 0 To objMatches.Count - 1
    Text2 = Text2 & objMatches.Item(i).Value
Next
End Sub

Что я не так делаю?Пожалуйста подскажите.
Спасибо.

@Казанский · 05.04.2019, 23:51

Genn55, что должно получиться из этой строки? Приведите примеры других строк.

@Genn55 · 06.04.2019, 00:02 **[ТС]**

АИР71В8, АИС80В8 0,25 1, 8/ 1,0 76 ,8 73 36 5; 3 + 5 1 133 0 ,4 0, 84
В этой строке возможна табуляция.
Должна быть
АИР71В8,АИС80В8 0,25 1,8/1,0 76,8 73 36 5;3+5 1 133 0 ,4 0,84

@Alex77755 · 06.04.2019, 00:24

133 0 ,4

Ноль тоже не должен быть одиноким
заменить запятую с пробелом на запятую без пробела если после запятой цифра

Добавлено через 3 минуты
а пробел с запятой на запятую

@Genn55 · 06.04.2019, 00:26 **[ТС]**

Сообщение от Alex77755

Ноль тоже не должен быть одиноким

Извиняюсь! совершенно верно пропустил.

@Alex77755 · 06.04.2019, 00:39

макрос не подойдёт?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub qwert()
    Dim s, i
    s = "АИР71В8, АИС80В8 0,25 1, 8/ 1,0 76 ,8 73 36 5; 3 + 5 1 133 0 ,4 0, 84"
    i = asd(s)
    MsgBox i
    Debug.Print s
    Debug.Print i
End Sub
 
Function asd(q)
    Dim i, t
    t = Replace(q, " ,", ",")
    
    For i = 0 To 9
        t = Replace(t, ", " & i, "," & i)
        t = Replace(t, "/ " & i, "/" & i)
    Next i
    asd = t
End Function

в дебаггере:
АИР71В8, АИС80В8 0,25 1, 8/1,0 76 ,8 73 36 5; 3 + 5 1 133 0 ,4 0, 84
АИР71В8, АИС80В8 0,25 1,8/1,0 76,8 73 36 5; 3 + 5 1 133 0,4 0,84

Добавлено через 2 минуты
АИР71В8 , АИС80В8 0 , 25 1 , 8/1 , 0 76 ,8 73 36 5; 3 + 5 1 133 0 , 4 0 , 84
АИР71В8, АИС80В8 0,25 1,8/1,0 76,8 73 36 5; 3 + 5 1 133 0,4 0,84

такое тоже кушает

@Genn55 · 06.04.2019, 00:41 **[ТС]**

Это получается при скачивании.
Нужно привести к нормальному виду.Числа должны быть числами.

@Alex77755 · 06.04.2019, 00:48

Тут без ABBYY FineReader не обойтись!

Добавлено через 1 минуту
Там может быть и табуляция.

@Genn55 · 06.04.2019, 00:56 **[ТС]**

Alex77755,
Спасибо большое,но у Вас не совсем правильно
АИР71В8, АИС80В8 0,25 1,8/ 1,0
а должно быть
АИР71В8,АИС80В8 0,25 1,8/1,0
Строковыми функциями я сделал,но мне кажется,что с регуляркой будет работать пошустрее.
Дело в том,что мне нужно читать из файла, обрабатывать и снова писать в файл и это не однократно.

Добавлено через 3 минуты

Сообщение от Alex77755

Тут без ABBYY FineReader не обойтись!

Возможно,но дорогу осилит идущий.Основная работа уже сделана.Забуксовал на регулярке.

@Alex77755 · 06.04.2019, 08:42

а должно быть
АИР71В8,АИС80В8

В школе учили, что слова разделяются запятой с пробелом. Я посчитал то за слова. А так ещё проще будет

t = Replace(q, " ,", ",")
t = Replace(t, ", ", ",")

Добавлено через 7 минут
Регулярками, возможно, быстрей.
Не берусь утверждать. Если интересно - надо экспериментировать.
Я тоже с регулярками на вы. Поэтому не буксуя делаю строковыми функциями

@Genn55 · 06.04.2019, 09:55 **[ТС]**

Сообщение от Alex77755

Регулярками, возможно, быстрей.
Не берусь утверждать.

И я не утверждаю.Сугубо личное мнение.

Если интересно - надо экспериментировать.

Интересно.

Сообщение от Alex77755

Я тоже с регулярками на вы. Поэтому не буксуя делаю строковыми функциями

Мне пока до зтого далеко далеко.

@Genn55 · 06.04.2019, 23:16 **[ТС]**

Получил то что нужно мне както так

Visual Basic
1
.Pattern = "([ ]{1,}?)"

Но в полном объёме не решена.
Этот Pattern работает только когда в строке табуляторы.
Т.е. считываю из текстового файла все работает как нужно,
но если из блокнота копирую и вставляю в переменную
удаляются все пробелы и текст вообще без пробелов.Чисто с пробелами не работает.
Почему не знаю.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	05.04.2019, 23:51
	Genn55, что должно получиться из этой строки? Приведите примеры других строк. 0

@Genn55 413 / 250 / 118 Регистрация: 26.12.2012 Сообщений: 787
	06.04.2019, 00:02 [ТС]
	АИР71В8, АИС80В8 0,25 1, 8/ 1,0 76 ,8 73 36 5; 3 + 5 1 133 0 ,4 0, 84 В этой строке возможна табуляция. Должна быть АИР71В8,АИС80В8 0,25 1,8/1,0 76,8 73 36 5;3+5 1 133 0 ,4 0,84 0

@Genn55 413 / 250 / 118 Регистрация: 26.12.2012 Сообщений: 787
	06.04.2019, 00:41 [ТС]
	Это получается при скачивании. Нужно привести к нормальному виду.Числа должны быть числами. Миниатюры 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.04.2019, 00:48
	Тут без ABBYY FineReader не обойтись! Добавлено через 1 минуту Там может быть и табуляция. 0

Опции темы