[求助]split 遇到连续空格分隔符的问题

swamy

现有二字串 xR--> A, B, C

xR1--> A B C

这一段OK

If Left(xR, 14) = " A, B," Then AA = VBA.Split(xR, ",") Cells(2, 3) = AA(2) End If

这一段就不行, 因为没办法将连续空格分隔符视为单一分隔符

If Left(xR1, 13) = " A B" Then AA = VBA.Split(xR1, " ") Cells(2, 3) = AA(2) End If

请问split函数有办法达成类似文本文件导入时, 可以使用的连续分隔符视为单个处里的功能吗?

Long_III

不能直接做，加一个循环替换这些连续的空格即可，如

Sub hjs() s = " A B C " For i = Len(s) To 1 Step -1 s = Replace(Trim(s), Application.Rept(" ", i), ",") Next Debug.Print s a = Split(s, ",") For i = 0 To UBound(a) Debug.Print a(i) Next End Sub

taller

不用替换,直接用Ubound就可以了

If Left(xR1, 13) = " A B" Then AA = VBA.Split(xR1, " ") Cells(2, 3) = AA(Ubound(AA)) End If

somepeople

”9558822010000093420 20050531 220322 INQ CNY 0.00 106.23 0.00 CNY GNET 258937“

象上面一个字符串，中间的空格个数不等。如何将数值传给 CHECK(25)？请告诉具体用法。谢谢了。

山菊花

把多余空格先删除也行：

xr1 = "A B C"
Do While InStr(xr1, " ") > 0
xr1 = Replace(xr1, " ", " ")
Loop
aa = Split(xr1, " ")

somepeople

谢谢！

nawong

以下是引用[I]somepeople[/I]在2006-5-21 14:34:51的发言：[BR]

”9558822010000093420 20050531 220322 INQ CNY 0.00 106.23 0.00 CNY GNET 258937“

象上面一个字符串，中间的空格个数不等。如何将数值传给 CHECK(25)？请告诉具体用法。谢谢了。

Sub nawong() Dim str As String str = "9558822010000093420 20050531 220322 INQ CNY 0.00 106.23 0.00 CNY GNET 258937" AA = VBA.Split(str) j = 2 For i = 0 To UBound(AA) If Len(AA(i)) <> 0 Then Cells(j + 1, 1) = AA(i): j = j + 1 Next End Sub