• Главная
• Контакты
• Нашёл ошибку
• Прислать материал
• Добавить в избранное

Язык VBScript (Visual Basic Script Edition) является урезанной версией языка Microsoft Visual Basic, поэтому для тех, кто программировал на Visual Basic или VBA, язык VBScript окажется очень знакомым.

В отличие от JScript, для сценариев VBScript в конце строки не нужно ставить точку с запятой. В случае необходимости написания одного оператора на нескольких строках в конце этих строк нужно ставить символ подчеркивания "_":

s = "Символьная " & _

 "строка"

Комментарием в VBScript считаются все символы в строке, идущие после символа апострофа

'

Rem

Rem Этот комментарий занимает всю строку

theSum=1 'А этот — часть строки

Переменные в VBScript могут быть глобальными (доступными из любого места сценария) и локальными (область действия ограничивается блоком кода, в котором они определены). Все переменные VBScript имеют стандартный тип

Variant

Dim

Dim MyVariable

По умолчанию переменные в VBScript можно предварительно не объявлять; для включения режима обязательного объявления переменных нужно вставить в самую первую строку сценария выражение

Option Explicit

Язык VBScript является регистро-независимым, т.е. имена

MyVariable

myvariable

? имя переменной должно начинаться с буквы и не должно содержать символа "

,

? имя переменной не должно превышать 255 символов.

Значения переменным в VBScript присваиваются с помощью оператора "

=

Dim MyVariable MyVariable = "Привет!"

Здесь мы объявили переменную

MyVariable

MyVariable

MyVariable = 10

Хотя в VBScript определен только один тип

Variant

Таблица П2.1. Подтипы данных

В переменную, которая была ранее объявлена с использованием ключевого слова

Dim

Set

Dim FSO

Set FSO=CreateObject("Scripting.FileSystemObject")

Здесь функция

CreateObject()

FileSystemObject

FSO

После того как ссылка на объект станет ненужной, переменную можно освободить с помощью ключевого слова

Nothing

Set FSO=Nothing

Пользовательские константы в VBScript объявляются с помощью ключевого слова

Const

Const MyConst="Это моя константа"

Кроме этого, VBScript поддерживает много встроенных именованных констант (их не нужно дополнительно объявлять в сценарии), применение которых упрощает использование различных внутренних функций (например,

MsgBox()

InputBox()

Таблица П2.2. Константы для обозначения цветов

Таблица П2.3. Константы для нумерации дней недели

Таблица П2.4. Константы для определения первого дня в неделе и первой недели в году

Таблица П2.5. Константы для работы с датой и временем

Таблица П2.6. Константы для диалоговых окон

Таблица П2.7. Результаты нажатия кнопок в диалоговых окнах

Таблица П2.8. Константы для обозначения подтипов данных

Таблица П2.9. Прочие константы

Массивы в VBScript могут быть двух видов: статические (фиксированной длины) и динамические (переменной длины). Объявляются массивы, как и обычные переменные, с помощью ключевого слова

Dim

Для объявления статического массива нужно после его названия указать в круглых скобках наибольшее значение, которое может принимать индекс элемента в этом массиве, например:

Dim MyArr(10)

В языке VBScript (в отличие, например, от VBA) нумерация в массивах всегда начинается с нуля, поэтому объявленный выше массив

MyArr

MyArr(0)="Это первый элемент"

MyArr(1)="Это второй элемент"

MyVar=MyArr(0)

Можно объявить двумерный массив, указав максимальные значения индексов для строк и столбцов соответственно, например:

Dim MyArr(5, 10) 'Массив из 6 строк и одиннадцати столбцов

При объявлении динамического массива его размеры в круглых скобках не указываются:

Dim MyArr()

Для использования динамического массива в сценарии применяется оператор

ReDim

ReDim MyArray(10)

После этого к элементам динамического массива можно обращаться так же, как и к элементам обычного:

MyArr(0)="Это первый элемент"

MyArr(1)="Это второй элемент"

Отметим, что размеры динамического массива можно менять неоднократно (с помощью того же

ReDim

ReDim

Preserve

ReDim Preserve MyArray(20)

В VBScript поддерживаются операторы нескольких типов, которые описаны ниже.

Арифметические операторы языка VBScript представлены в табл. П2.10.

Таблица П2.10. Арифметические операторы

Операторы отношения используются для сравнения значений двух переменных. Эти операторы, описанные в табл. П2.11, могут возвращать только логические значения

true

false

Таблица П2.11. Операторы отношения

Также внутри условных операторов могут применяться логические операторы (табл. П2.12).

Таблица П2.12. Логические операторы

В VBScript поддерживается условный оператор

If…Then…Else

If условие_1 Then

 выражение_1

[ElseIf условие_2 Then

 выражение_2]

…

[Else

 выражение_3]

End If

При выполнении оператора

If…Then…Else

If

true

ElseIf

Else

If (theCount > 1) Then

 theMoments = "До взрыва осталось " & theCount & " сек!"

Else

 theMoments = "Осталась секунда!"

End If

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

Select Case

Select Case выражение

Case значение_1

 выражение

[Case значение_2

 выражение_2]

…

[Case Else

 выражение_3]

End Select

Здесь сначала вычисляется значение

выражения

Case

Case

Case

Select Case

Select Case MyVar

Case vbRed

 Color = "Красный"

Case vbGreen

 Color = "Зеленый"

Case vbBlue

 Color = "Синий"

Case Else

 Color = "Цвет непонятен"

End Select

В VBScript поддерживаются несколько типов циклов: цикл

For…Next

Do…Loop

While…Wend

For Each…Next

В общем случае оператор цикла

For…Next

For counter=start То end [Step step]

 тело цикла

 [Exit For]

 тело цикла

Next

Параметр

counter

start

end

step

Step

For…Next

Exit For

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

for

Dim howFar 'Верхний предел для счетчика цикла

Dim sum(10) 'Массив из 11 элементов, индексы от 0 до 10

Dim icount, theSum

howFar = 10

theSum = 0

sum(0) = 0

'Цикл выполнится 11 раз

For icount = 0 To howFar

 theSum=theSum+icount

 sum (icount) = theSum

Next

Оператор цикла

For Each…Next

For Each element In group

тело цикла

 [Exit For]

 тело цикла

Next [element]

Здесь параметр

element

Замечание

Напомним, что в JScript для перебора всех элементов коллекции необходимо использовать вспомогательный объект

Enumerator

.

С помощью оператора

Exit For

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

For Each…Next

'Объявляем переменные

Dim FSO, Folder, Files, File, s

s = "Список файлов" & vbCrLf

'Создаем объект FileSystemObject

Set FSO = CreateObject("Scripting.FileSystemObject")

' Создаем объект Folder для корневого каталога диска С:

Set Folder = FSO.GetFolder("C:\")

'Создаем коллекцию Files всех файлов в корневом каталоге диска С:

Set Files = Folder.Files

'Перебираем все элементы коллекции Files

For Each File In Files

 'Выделяем имя файла для текущего элемента File коллекции

 s = s & File.Name & vbCrLf

Next

'Выводим сформированную строку на экран

WScript.Echo s

Цикл

While…Wend

While условие

 тело цикла

Wend

Таким образом, в цикле

While…Wend

true

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

While…Wend

Dim theMoments, theCount

theMoments = ""

theCount = 42 'Начальное значение счетчика цикла

While (theCount >= 1)

 If (theCount > 1) Then

  theMoments = "До взрыва осталось " & theCount & " сек!"

 Else

  theMoments = "Осталась секунда!"

 End If

 theCount = theCount - 1 'Уменьшаем значение счетчика

Wend

theMoments = "ВЗРЫВ!"

Этот цикл может применяться в двух видах (с предусловием, которое проверяется до начала очередной итерации, и с пост-условием, которое проверяется после окончания итерации):

Do [While | Until] условие

 тело цикла

 [Exit Do]

 тело цикла

Loop

или

Do

 тело цикла

 [Exit Do]

 тело цикла

Loop [While | Until] условие

Если в цикле используется ключевое слово

While

true

Until

true

Оператор

Exit Do

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

Do…Loop

Dim howFar 'Верхний предел для счетчика цикла

Dim sum(10) 'Массив из 11 элементов, индексы от 0 до 10

Dim icount, theSum

howFar = 10

theSum = 0

sum(0) = 0

'Цикл выполнится 11 раз

Do

 theSum = theSum+icount

 sum(icount) = theSum

 icount=icount+l

Loop While (icount < howFar)

Рассмотрим еще несколько часто применяемых операторов (табл. П2.13).

Таблица П2.13. Прочие операторы

Режим обработки исключительных ситуаций в VBScript включается с помощью оператора

On Error Resume Next

Для анализа ошибок используется специальный объект

Err

Number

Description

В качестве примера приведем часть сценария, в которой происходит обработка исключительных ситуаций при подключении сетевого диска:

On Error Resume Next ' Включаем обработку ошибок времени выполнения

' Подключаем сетевой диск

WshNetwork.MapNetworkDrive Drive, NetPath

If Err.Numbero<>0 Then

 Mess="Ошибка при подключении диска " & Drive & " к " & NetPath &_

  "Код ошибки: " & е.number & "Описание: " & е.description

 WshShell.Popup Mess, 0, "Подключение сетевого диска", vbCritical

Else

 ' Все в порядке

 Mess = "Диск " & Drive & " успешно подключен к " & NetPath

 WshShell.Popup Mess, 0, "Подключение сетевого диска", vbInformation

End If

Для отмены режима обработки исключительных ситуаций нужно выполнить оператор

On Error Goto 0

VBScript поддерживаются два вида подпрограмм: встроенные функции и функции или процедуры пользователя.

Имеющиеся в VBScript функции, предназначенные для математических вычислений, описаны в табл. П2.14.

Таблица П2.14. Математические функции

Наиболее часто используемые функции, с помощью которых можно производить различные операции над символьными строками, описаны в табл. П2.15.

Таблица П2.15. Символьные функции

Для работы с датой и временем в VBScript имеется большой набор функций, основные из которых приведены в табл. П2.16.

Таблица П2.16. Функции для работы с датой и временем

В табл. П2.17 приведены функции, с помощью которых можно создавать новые массивы и получать сведения об уже имеющихся.

Таблица П2.17. Функции для работы с массивами

При рассмотрении подтипов данных мы уже описывали функции конвертации, которые применяются для преобразования переменной к тому или иному подтипу (см. табл. П2.9).

В табл. П2.18 приведены функции, с помощью которых можно узнать, к какому подтипу принадлежит заданная переменная.

Таблица П2.18. Функции для работы с подтипами данных

Опишем еще несколько часто используемых функций (табл. П2.19).

Таблица П2.19. Некоторые прочие функции

Для определения процедуры, т.е. подпрограммы, которая не возвращает никакого значения, в VBScript используется конструкция

Sub…End Sub

Sub MyProcedure(Param1, Param2)

 Dim Sum

 Sum = Param1+Param2

End Sub

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

Sub MyProcedure()

 …

End Sub

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

MyProcedure 3,10

Во-вторых, можно использовать специальный оператор

Call

Call MyProcedure(3, 10)

Для определения функции, т.е. подпрограммы, которая возвращает определенное значение, применяется конструкция

Function…End Function

Function MyFunction(Param1, Param2)

 …

End Function

Для того чтобы возвратить из функции какое-либо значение, нужно внутри функции присвоить это значение переменной, название которой совпадает с именем функции:

Function MyFunction(Param1, Param2)

Dim Sum

 Sum = Param1 + Param2

MyFunction = Sum

End Function

Если возвращаемое функцией значение не нужно присваивать никакой переменной, то функция вызывается так же, как и процедура — пишется имя этой функции и через пробел указывается список ее аргументов:

MyFunction 3, 5

Если же необходимо записать значение функции в какую-либо переменную, то аргументы функции заключаются в круглые скобки:

Dim а

а = MyFunction(3, 5)