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