vbs字符串及二维数组的应用有关问题

vbs字符串及二维数组的应用问题
str = "12:12$12%112 |12:12$12%12 |32:32$32%23 |12:3$32%12 |"

我获取到一段数据。。然后我要分别按照|, $, %的顺序取出数据，然后在存入一个二维数组中去，数组中的行数由|的多少来决定，也就是上面那串字符串是会增加的，不过数据的排列方式都是一样的。
我现在想做的就是，先按照|的多少来决定二维数组的行有多少，然后在一行中分别取出$前面的数据，%前面和后面的数据。。。然后存入数据。。循环直到|结束
做出来的数组的示例是：

array((12:12,12,112), (12:12, 12, 12), (32:32, 32, 23), (12:3, 32, 12))

这样子的。。。我对VBS的二维数组不是很熟


[解决办法]

VBScript code

str = "12:12$12%112 |12:12$12%12 |32:32$32%23 |12:3$32%12 |" Dim a()b = Split(str, "|")ReDim Preserve  a(UBound(b),2)For i=0 To UBound(b)    b1 = Split(Replace(b(i),"$","%"), "%")    If UBound(b1) >0 then        a(i,0) = b1(0)        a(i,1) = b1(1)        a(i,2) = b1(2)    End If NextFor i=0 To UBound(a)    MsgBox a(i,0) & "=" & a(i,1) & "=" & a(i,2)Next
[解决办法]
首先，你的问题不是二维数组，而是三维数组，由于VB中数组不能够复制（除非用CopyMemory等API），所以多了一个循环，下面的代码演示了实现过程，结果应该符合LZ的要求。
VBScript code
    Dim i, j, strData, strBuffer, strTemp, strArray()        strData = "12:12$12%112 |12:12$12%12 |32:32$32%23 |12:3$32%12|"    strData = Left(strData, Len(strData) - 1) '去掉最后1个|    strData = Replace(strData, " ", "") '过滤掉中间的空格    strData = Replace(strData, "%", "$") '将%替换为$，因为二者作用一样    strBuffer = Split(strData, "|") '缓存根据|转换的一维数组    ReDim strArray(0 To 2, UBound(strBuffer)) '定义为1个三维数组    For i = 0 To UBound(strBuffer) '通过循环将缓存中的每一维数据根据$转换为三维数组        strTemp = Split(strBuffer(i), "$")        For j = 0 To 2            strArray(j, i) = strTemp(j)        Next        Debug.Print strArray(0, i), strArray(1, i), strArray(2, i)    Next