asp split 分割二维数组

http://blog.sina.com.cn/s/blog_690a5d2301015kh8.html

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

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