удаление повторяющихся пробелов

[eXRay]

сабж. как? буду рад коду.

[GSerg]

dim l as long
l=len(s)
do
s=replace(s, " ", " ")
if len(s)=l then exit do else l=len(s)
loop

[eXRay]

спасибо.
только конечно же

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

s=replace(s, "  ", " ")

, а не

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

s=replace(s, " ", " ")

[GSerg]

Ну хаваются пробелы...

[alibek]

dim l as long
l=len(s)
do
s=replace(s, " ", " ")
if len(s)=l then exit do else l=len(s)
loop

Более изящный вариант

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

Dim L As Long, S As String
S = "..."
Do While (L <> Len(S))
  L = Len(S)
  S = Replace(S, "  ", " ")
Loop


[uhm]

Робко напомню про REGEXP'ы, полезность использования которых возрастает, если требуется выполнить несколько разных задач по обработке текста, а не одну.