string - 如何将字符串中的所有空格减少为单个空格？

Question

使用 VB6没有任何额外的引用（如 Regex），如何转换字符串，以便将字符串中的所有空格减少为单个空格？

例如。

" A    B C D   E"

将被转换为

"A B C D E"

Answer 1

Function NormalizeSpaces(s As String) As String

    Do While InStr(s, String(2, " ")) > 0
        s = replace(s, String(2, " "), " ")
    Loop
    NormalizeSpaces = s

End Function

（源自：http ://www.techrepublic.com/article/normalizing-spaces-in-vb6-strings/5890164 ）