如何在VbScript中創建多維鋸齒狀數組？

Question

我需要創建多維數組的字符串。數組的每一行可以有不同數量的字符串。有點像follwing代碼：

twoDimension = Array(Array()) 
ReDim Preserve twoDimension(3) 
For i = 0 to 2 
If i = 1 Then 
    twoDimension(i) = Array(1,2,3) 
End If 
If i = 2Then 
    twoDimension(i) = Array(1,2,3,4,5) 
    End If 
Next 

Answer 1

怎麼樣字典

Set a = CreateObject("Scripting.Dictionary") 
a.Add 0, Array(1,2,3) 
a.Add 1, Array(4,5,6) 
MsgBox a.Count 
MsgBox a.Item(0)(2) 
MsgBox a.Item(1)(1) 

Answer 2

沒有什麼錯在VBScript中有鋸齒狀排列。您的代碼存在一些小問題（ReDim到3，但僅將值賦給2，不必要地使用For循環來分配值），但通常，這是使用的正確語法。

Option Explicit 

Dim twoDimension, i, j 

twoDimension = Array(Array()) 
ReDim Preserve twoDimension(2) 

twoDimension(1) = Array(1,2,3) 
twoDimension(2) = Array(1,2,3,4,5) 

For i = 0 To UBound(twoDimension) 
    For j = 0 To UBound(twoDimension(i)) 
    WScript.Echo "(" & i & "," & j & ") = " & twoDimension(i)(j) 
    Next 
Next