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

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)