Лекция: Dim DynArray1

где 1) Dim – служебное слово

2) DynArray – имя переменной массива

То есть, массивом может стать любая объявленная переменная

Далее в программе, где это необходимо, с помощью оператора ReDimуказывают размерность массива. Например:

ReDim DynArray1 (5)‘ для вектора

или

ReDim DynArray1 (3, 4)‘ для матрицы

или

ReDim DynArray1 (2, 4, 7)‘ трёхмерного массива

При каждом выполнении оператора ReDim значения всех элементов массива, сохранённые ранее, теряются. VBScript переустанавливает их в Empty (пустое значение) (для Variant-массивов), в нулевые значения (для числовых массивов), в строки нулевой длины (для строковых массивов).

Конечно, это, скорее всего, неудобно. Если вам нужно добавить к массиву новый элемент в конец массива, то есть увеличить размер массива, то нет смысла терять при этом, может быть, «с трудом полученные» ранее элементы. “К счастью”, с помощью ключевого слова Preserve в операторе ReDim можно указать, чтобы система сохранила значения массива, размеры которого изменяются.

В следующем примере размер вектора увеличивается на единицу от текущего размера с сохранением значений, ранее запомненных в массиве. Текущий размер массива определяется с помощью функции UBound (подробнее о ней будет рассказано ниже):

ReDim Preserve DynArray2 (UBound(DynArray)+1)

VBScript имеет функцию, которая освобождают пользователя от необходимости вручную отслеживать верхний предел массива – функция UBound. Эта функция возвращают верхнее граничное значение индекса массива.

Пример использования:

Dim A (3, 4) ‘ объявление матрицы А

MsgBox UBound (A, 1) ‘ вывод на экран максимального индекса в строке

MsgBox UBound (A, 2) ‘ вывод на экран максимального индекса в столбце

Ценное замечание

Для того чтобы определить является ли переменная массивом можно использовать функцию IsArray(ArrName), возвращающую «Истина», тогда и только тогда когда ArrName – массив.