爱疯 发表于 2012-2-19 17:56
现在,11#方法暂时领先
也来最不可取的一个,效率及为低下,完全是为了玩:
Sub test()
s$ = Trim(" a bc def g hi ")
Do While InStr(s, " ")
If Mid(s, InStr(s, " ") - 1, 1) = "," Then
s = Left(s, InStr(s, " ") - 1) & Mid(s, InStr(s, " ") + 1)
Else
s = Left(s, InStr(s, " ") - 1) & "," & Mid(s, InStr(s, " ") + 1)
End If
Loop
MsgBox s
End Sub
还是前面哪楼的循环替换的做法应该是最快的(没具体测试)
Sub test1()
s$ = Trim(" a bc def g hi ")
Do While InStr(s, " ")
s = Replace(s, " ", " ")
Loop
MsgBox Replace(s, " ", ",")
End Sub
前面的玩笑话是针对你说的“事先是空格的话,让trim占了便宜,我在试试事先是其它字符(比如"|")”
|