您当前的位置: 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
Next
For 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