VB中将一个字符串分解赋值给一个数组,请进去看例子 (求解送分)

Question

使用Split函数(只在VB6.0中有）
a = Split(abc, ",")

Answer 1

你也可以用这种方法：
dim a() as byte,b() as string
dim abc as string,i as long
abc ="1,2,3,4,5,6,7"
a=abc
for i=0 to ubound(a) step 2
redim preserve b(ubound(b)+1) as string
b(i)=a(i)
next i这样，b()中的内容就是分别是1 2 3 4 5 6 7了。

Answer 2

上页一句忘了改了：
b(i)=a(i)
应该为：
b(ubound(b))=a(i)Cheers?

Answer 3

easy,
dim a() as byte
dim i,j as integer
rendim a(len(abc)-1)  '最长也不会超过
j=0
for i=0 to len(abc)-1
if abc(i)>='0' or abc(i)<='9' then
a(j)=abc(i)-'0'   '里面放的是十进制数
j=j+1
end if