Удалить лишние пробелы (аналог функции trim)

Posted by Chas under Basic, Пост-обзор

у меня есть текст, который вставляется в TextBox ,а затем в поле Variables, а это поле содержит пробелы и вот я хотел убрать пробелы из этого поля и присвоить этот текст в другое, вот что получилось, что не так?

Казанский

Function TrimAll(s As String) As String

'Удаляет пробелы в начале и конце строки,

'заменяет кратные пробелы внутри строки на одиночные пробелы

'аналогично функции Application.Trim в Excel
Dim i&, j&

TrimAll = Trim$(s)

j = Len(TrimAll)

Do

    i = j

    TrimAll = Replace$(TrimAll, "  ", " ")

    j = Len(TrimAll)

Loop Until i = j

End Function

тема на форуме

Похожие статьи

• Как макросом брать данные с word документов в excel?
• Создать список папок и вложенных в них файлов из выбранной директории
• Как в excel можно задать открытие шаблона Word по полному пути?
• Вставка строк в таблицу в с помощью макроса
• Удаление пустых строк в таблице (Microsoft Office Word)
• Вставить текст в определенную строку ячейки таблицы в ворде
• Извлечь фотографии из doc (docx) файла
• Удаление лишних пробелов в Си
• Экспорт в Word из Memo
• Скопировать данные из Edit в Word