Цикл по всем элементам в произвольном массиве в VBScript

Question

Мне нужно перебрать все элементы массива в VBScript, но его размеры неизвестны. Как я могу это сделать?

Например, в Java многомерный массив - это массив массивов, и вы можете использовать подмассив. Я не знаю, как я могу это сделать в VBscript.

Любая помощь приветствуется.

Обновление: Эта задача может быть решена с помощью цикла For Each для массива. Итак, что стоит за каждым циклом? Как это реализовано?

Answer 1

Вы можете создать Function или Sub для рекурсивной проверки, являются ли ключи в массиве также массивами. Вот пример кода для демонстрации:

<%
' Simple sub to just loop through the array and echo its values
Sub array_values(array_value)
    Dim i

    If IsArray(array_value) Then
        For i = LBound(array_value) To UBound(array_value)
            If IsArray(array_value(i)) Then
                array_values array_value(i)
            Else
                Response.Write array_value(i) & "<br>"
            End If
        Next
    End If
End Sub


' Sample array
Dim a

a = array( _
    array("1", "2", "3"), _
    array("a", "b", "c", _
        array("e", "f", "g", _
            array("h", "i", "j", _
                array("k", "l", "m", _
                    array("n", "o", "p", _
                        array("q", "r", "s", _
                            array("t", "u", "v", _
                                array("w", "x", "y") _
                            ) _
                        ) _
                    ) _
                ) _
            ) _
        ) _
    ) _
)

array_values a
%>