Question

vb中怎样把字符串中的多个空格合并成一个空格

Answer 1

Private Function MyTrim(s As String) As String
MyTrim = Trim(s) '去掉首尾空格
Do While InStr(1, MyTrim, " ") > 0 '循环直到检查到没有两个连续的空格
MyTrim = Replace(MyTrim, " ", " ")
Loop
End Function

Private Sub Command1_Click()
Dim s As String
s = " a b c d EEEEEEEE ewewe"
s = MyTrim(s)
MsgBox s
End Sub

Answer 2

do while instr(s," ")>0
s= replace(s," "," ")
loop