1

文字列の多次元配列を作成する必要があります。配列の各行には、さまざまな数の文字列を含めることができます。次のコードのようなもの: 

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
4

2 に答える 2

2

辞書はどうですか

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)
于 2010-05-19T14:00:07.243 に答える
0

VBScript でギザギザの配列を使用しても問題はありません。コードにはいくつかの小さな問題があります ( ReDim3 に値を割り当てるが、値を 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
于 2013-01-06T00:13:08.477 に答える