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

【问题标题】：How to reduce all whitespace in a string to single spaces?如何将字符串中的所有空格减少为单个空格？
【发布时间】：2012-11-28 08:35:00
【问题描述】：

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

例如。

" A    B C D   E"

将被转换为

"A B C D E"

【问题讨论】：

从例子中很难看出你的意思；我假设您想将所有连续的空白字符串消除为每次出现的单个空白？例如，如果我们让 .是一个空格（所以我们可以看到它）然后 A..B..C.D..E 会变成 A.B.C.D.E？
没错。 Jason 已经为我正确地编辑了它。

标签： string vb6 whitespace trim removing-whitespace

【解决方案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）

【讨论】：

这会很快奏效，但我认为使用“”而不是 String(2,“”) 会更简洁一些。只是我的 $.02
+1 @Tom Collins 我认为Space(2) 更具可读性！ Space 函数返回一个包含指定空格数的字符串。