Перебирать все элементы в любом массиве в VBScript

Question

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

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

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

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

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 
%>