去掉字符串某个字符前的空格 vb

来源：百度知道 编辑：UC知道 时间：2024/05/11 13:48:53
让 333 444 555 666 777 888变成333 444555 666777 888 ,,
就是去掉字符串中某几个字符前的空格,,,谢谢!
如果是，，，444 555 334 532，，就会变成444555 334532，那个就不起用了，，我要的是指定的字符前去掉空格！再帮帮忙

用替换法
Private Sub Command1_Click()
Dim aaa As String
aaa = "333 444 555 666 777 888"
aaa = Replace(aaa, "4 5", "45")
aaa = Replace(aaa, "6 7", "67")
MsgBox aaa
End Sub

s = "333 444 555 666 5777 888"
s1 = "5"
n = InStr(s, s1)
Do While n > 0
s2 = RTrim(Mid(s, 1, n - 1))
s = s2 & Mid(s, n)
n = InStr(Len(s2) + 2, s, s1)
Loop
MsgBox s