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

@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 работает только когда в строке табуляторы.
Т.е. считываю из текстового файла все работает как нужно,
но если из блокнота копирую и вставляю в переменную
удаляются все пробелы и текст вообще без пробелов.Чисто с пробелами не работает.
Почему не знаю.

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Казанский 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