一个变量如何使用split函数分割到二维数组中呢？

[biaowen]

BL = "0023,元素2,1.34-0003,元素5,1.05-0014,元素1,0.02"
上面是一个变量，怎么通过循环把他分割到二维数组中呢？得出效果如下：
arr(0,0) = "0023"
arr(0,1) = "元素2"
arr(0,2) = "1.34"

arr(1,0) = "0003"
arr(1,1) = "元素5"
arr(1,2) = "1.05"

arr(2,0) = "0014"
arr(2,1) = "元素1"
arr(2,2) = "0.02"

[wasuka]

split、遍历、split

[rczjp]

arr(i,j)=split(BL,"-")

[biaowen]

我能够split载数，但应该如何循环赋值。

[biaowen]

3楼：split(BL,"-")还要split(BL,",")分一次的呀，应该怎么弄

[hookee]

BL = "0023,元素2,1.34-0003,元素5,1.05-0014,元素1,0.02"
b = split(BL,"-")
c = split(b(0),",")
Dim a()
ReDim a(UBound(b),UBound(c))

For i=0 To UBound(b)
d = split(b(i),",")
For j=0 To UBound(c)
a(i,j) = d(j)
Next
Next
For i=0 To UBound(a,2)
For j=0 To UBound(c)
Response.Write a(i,j) & "<br>"
Next
Next

[penglewen]

arrBL = split(BL,"-")
for i =0 to ubound(arrBL)
for j = 0 to ubound(split(arrBL(i),","))
arr(i,j)=split(arrBL(i),",")(j)
next
next

[zz95469]

dim i,j,ayy
ayy = split(BL,"-")
i = ubound(ayy)
for j = 0 to i
arr(j)=split(arr(j),",")
next

[MascotDai]

Split函数 好像是返回的是一维的数组
描述

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

语法

Split(expression[, delimiter[, count[, compare]]])

[biaowen]

谢谢，现在我还有个问题，就是帐号上的分数应该如何给啊。我要给你们分数啊。。。

[罗罗的洋洋]

点击你主题上面的导航条的"管理",可以给你的贴子散分,应该是这样,我还没散过分呢.