string - 文字列内のすべての空白を単一のスペースに減らす方法は?

Question

正規表現などの追加の参照なしでVB6 を使用して、文字列内のすべての空白が単一のスペースに削減されるように文字列を変換するにはどうすればよいですか?

例えば。

" 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 )