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