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

使用VB6而不使用任何附加引用（如正则表达式），如何转换字符串，以便将字符串中的所有空白减少为单个空格

例如

将转换为

"A B C D E"

源自：

---

源自：

很难从示例中看出您的意思；我假设您希望将所有连续的空格字符串消除为每次出现一个空格？比如说，如果我们让。是一个空白，这样我们就可以看到，那么a.B.C.D.E会变成a.B.C.D.E？没错。Jason为我正确地编辑了它。很难从示例中看出你的意思；我假设您希望将所有连续的空格字符串消除为每次出现一个空格？比如说，如果我们让。是一个空白，这样我们就可以看到，那么a.B.C.D.E会变成a.B.C.D.E？没错。Jason为我正确地编辑了它。这将很快工作，但我认为它比String2更整洁。就我的.02+1美元@Tom Collins我认为Space2更具可读性！该函数返回一个包含指定数量空格的字符串。这将很快起作用，但我认为它比使用String2更简洁。就我的.02+1美元@Tom Collins我认为Space2更具可读性！函数返回一个包含指定数量空格的字符串。

"A B C D E"

Function NormalizeSpaces(s As String) As String

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

End Function