不能用空格作分隔符,这样一定会出错。
可以用逗号分开的,Split不能作为拆分以空格作为分隔符的字符串。
sj = MSComm1.Input
A() = Split(sj, ",")
现在A(0)是+3.28742752E+01,A(1)是+0.000,A(2)是+00000,A(3)是101,A(4)是+3.32506905E+01,A(4)是+0.044,A(5)是+00001,A(6)是102(如果加上后面的1,A(6)是102 1)
举一个空格分开的例子:
Dim a() As String
a = Split("a b c", " ")
For i = 1 To UBound(a)
Print a(i)
Next i
上面的代码是负责把“a b c”用空格分开的字符串赋值给a数组,然后输出a的所有元素值的,看起来没有任何错误。但是肯定出现下标越界的错误,因为不能用空格作为分隔符,一定要记住!
用split()这个函数。
例:
dim a() as string
dim str1 as string
str1="111.112.113.114"
a = Split(str1, ".")
a的下标是0到3
以逗号作为分隔符,不要以空格为分隔符:
dim a() as string
sj = MSComm1.Input
A = Split(sj, ",")
Split(sj, ",")
A()=分裂(SJ)