Замена двойных пробелов

[Морфий]

Как заменить неограниченное количество пробелов по середине строки, скажем, на "-"?
т.е чтобы было "aaaaa bbbbbb", а стало "aaaaa-bbbbbb"

[Amed]

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

text=replace(text," ","-")

[Amed]

А если надо заменить также "__" на "-", то сначала все двойные пробелы заменяем на одинарные. До тех пор, пока двойных в тексте не останется.

[uhm]

А еще можно выучить RegExp'ы и сразу менять на "-" произвольное количество пробелов

[xolod]

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

[Морфий]

вот как я сделал в итоге:

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

Private Function ATrim(text As String)
Dim temp As String, pos As Long
temp = text
Do
pos = InStr(1, temp, "  ")
If pos > 0 Then
temp = Left(temp, pos - 1) & " " & Right(temp, Len(temp) - pos - 1)

Else
Exit Do
End If
DoEvents
Loop
ATrim = temp
End Function