0

i have an array path... この配列には、ネストされた配列パスのリストが含まれています。次のようになります。

path( 0  1  2  3  4  5  6  7  8 )
"1" | 1, 1, 1, 1, 1, 1, 1, 1, 1 |
"2" | 4, 3, 1, 4, 2, 3, 4, 3, 2 |
"3" | 1, 1,  , 2, 1, 2, 3, 3, 2 |
"Val" A, B, C, D, E, F, G, H, I

今、2行目の最大値を取得するための小さなループがあります。

x = 1
For c = 0 To UBound(path)
   If IsArray(path(c)) Then
        If CInt(path(c)(x)) <= maxDimension1 Then
        maxDimension1 = CInt(path(c)(x))
        End If
    End If
Next
redim preserve pathValues(maxDimension1 - 1)

行「2」の要素の最大要素数を見つけて、pathValues の配列要素をこれに変更する必要があります。私は試した:

For Dimension2 = 1 To maxDimension1
    For c = 0 To UBound(Path)
        If IsArray(Path(c)) Then
            If CInt(Path(c)(x)) = Dimension2 Then
                If CInt(Path(c)(2)) >= maxDimension2 Then
                maxDimension2 = CInt(Path(c)(2))
                End If
            End If
        End If
    redim PathValues(c)(maxDimension2) //Syntax Error
    next
next

多次元配列の回避策を回避する方法はありますか? 説明のために: pathValues は最終的に次のようになります。

PathValues() = (C,(E, I),(B, F, H),(A, D, G))
4

1 に答える 1