Question

vb 如何可以将字符串中包含不同的空格转换为1个

最好是不循环字符串，希望高手来解答
有没有不循环的方法啊？我要计算的数据量很大大约有200多万行的数据，希望能找个简单的算法。

Answer 1

Private Sub Command1_Click()
k = "u iwtj diu gi ugi og oig"
i = 1
Do While i < Len(k)
If Mid(k, i, 1) = " " And Mid(k, i + 1, 1) = " " Then
k = Mid(k, 1, i) & Mid(k, i + 2)
i = i - 1
End If
i = i + 1
Loop
Print k
End Sub

另一方法：
Private Sub Command1_Click()
k = "u iwtj diu gi ugi og oig"
l = Split(k, " ")
k = ""
For i = LBound(l, 1) To UBound(l, 1)
If l(i) <> "" And k <> "" Then
k = k & " " & l(i)
Else: k = k & l(i)
End If
Next i
Print k
End Sub

Answer 2

dim a as string
a="a b c d"
dim b() as string
b=split(a," ")
dim c as string
for each d in b
c=c & d & " "
next
c=left(c,1,len(c)-1)
msgbox c