Dim myarray() ' Определение динамического массива

Redim myarray(1) ' Установка длины массива равной 2

' Определение элементов массива

myarray(0) = "Вася"

myarray(1) = "Маша"

' Вывод строки со значениями элементов массива: "Вася Маша"

MsgBox myarray(0) + " " + myarray(1)

Если в программе изменяется длина массива, то значения его уже определенных элементов элементов могут быть потеряны.

 

Пример:

Dim myarray() ' Определение динамического массива

Redim myarray(1) ' Установка длины массива равной 2

' Определение элементов массива

myarray(0) = "Вася"

myarray(1) = "Маша"

Redim myarray(2) ' Установка новой длины массива, равной 3

myarray(2) = 3.14 ' Установка значения 3-го элемента массива

' Вывод строки со значениями элементов массива: строка пуста

MsgBox myarray(0) + " " + myarray(1)

 

Для сохранения значений динамического массива при изменении его длины используется ключевое слов Preserve (предохранить):

 

Redim Preserve имя_массива(n)

 

Пример:

Dim myarray() ' Определение динамического массива

Redim myarray(1) ' Установка длины массива равной 2

' Определение элементов массива

myarray(0) = "Вася"

myarray(1) = "Маша"

Redim Preserve myarray(2) ' Установка новой длины массива, равной 3

myarray(2) = 3.14 ' Установка значения 3-го элемента массива

' Вывод строки со значениями элементов массива: "Вася Маша 3.14"

MsgBox myarray(0) + " " + myarray(1) + " " + Сstr(myarray(2))

 

При работе с массивами, особенно динамическими, часто требуется знать их длину. Для этой цели служат две функции:

Lbound — возвращает наименьший индекс для данного массива

Ubound — возвращает наибольший индекс массива. Количество элементов всегда на 1 больше этого значения

В следующем примере длина существующего массива myarray увеличивается на 1 с сохранением всех его уже имеющихся значений:

Redim Preserve myarray(Ubound(myarray) + 1)

Переменные, значения которых нельзя изменять, называются константами. Лучше сказать, что константы это именованные и неизменяемые значения.

Константа задается следующим оператором:

Const имя_константы = значение

 

Имя константы задается так же, как и имя переменной.

В VBScript имеется большое количество предопределенных констант, некоторые из них приведены ниже:

 

Константы системных цветов

Константа Значение Цвет

vbBlack &h00 Черный

vbRed &hFF Красный

vbGreen &hFF00 Зеленый

vbYellow &hFFFF Желтый

vbBTue &hFF0000 Голубой

vbMagenta &hFF00FF Малиновый

vbCyan &hFFFF00 Циан

vbWhite &hFFFFFF Белый

 

Константы сравнения

Константа Значение Описание

vbBinaryCompare 0 Сравнение двоичных чисел

vbTextCompare 1 Сравнение текста

vbOatabaseCompare 2 Сравнение той части информации в базе данных,где была применена

 

Константы даты и времени

Константа Значение Описание

vbSunday 1 Воскресенье

vbMonday 2 Понедельник

vbTuesday 3 Вторник

vbWednesday 4 Среда

vbThursday 5 Четверг

vbFrlday 6 Пятница

ybSaturday 7 Суббота

vbFirstJan1 1 Неделя, когда наступило 1 января текущего года

vbFirstFourDays 2 Первая неделя, в которой было как минимум 4 дня нового года

vbFlrstFullWeek 3 Первая полная неделя года

vbUseSystem 0 Использование формата установок даты и времени, принятой для этого компьютера

vbUseSystemDayOfWeek 0 Использовать установленный на данном компьютере первый день недели

 

Константы форматов даты