убрать пробелы

[kminas]

Можно ли убрать лишние пробелы в строке между словами? (Trim не подходит)

[Димитрий]

Воспользуйся WorksheetFunction.Trim

[kminas]

Спасибо, правда, насколько я понял это Excel? Я не уточнил. Вопрос касается InputBox. Надо, чтобы в введенном юзером тексте между словами было не более одного пробела (я конечно имею ввиду в переменной), либо, возможно, есть возможность вообще игнорировать пробелы. Пока, к сожалению, я такого не нашел!

[HandKot]

в InputBox наверное не получится, а вот после ввода можно сделать преобразование

оставляет по одному пробелу между словами

Код: Выделить всё

MyString = replace(replace(replace(MyString, " ", "@ "), " @", ""), "@", "")

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

я думаю, принцип должен быть понятен и код можно модифицировать, чтобы оставалось два, три и т.д пробелов или нужных символов

[alibek]

Код: Выделить всё

Dim L As Long, S As String
S = ...
Do Until L = Len(S)
  L = Len(S)
  S = Replace$(S, "**", "*")
Loop

[Димитрий]

Если работаешь в неExcel, то ответ на http://forum.vingrad.ru/forum/s/beb2fe4eaa6cc60d9baaec4ee33c88cc/topic-197348.html

[kminas]

Спасибо всем!

[Calvin]

Ну почему не для Excel?
как раз то для:

Код: Выделить всё

Do while InStr(SourceString, "  ") > 0
     SourceString = Replace$(SourceString, "  ", " ")
loop


по-моему короче всего

[kminas]

Calvin

по-моему короче всего

По-моему тоже. Красиво

[kminas]

Calvin
Спасибо, все удачно сработало.