Чтение онлайн

на главную - закладки

Жанры

Windows Script Host для Windows 2000/XP

Попов Андрей Викторович

Шрифт:

 выражение

[Case значение_2

 выражение_2]

[Case Else

 выражение_3]

End Select

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

выражения
, которое затем по очереди сравнивается со значениями, стоящими после ключевых слов
Case
. В случае совпадения выполняются операторы в соответствующем блоке
Case
. Если же ни одно из имеющихся значений не совпадает со значением
выражения
,
то выполняются операторы, стоящие после слова
Case
Else. Пример использования оператора
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…Next
записывается следующим образом:

For counter=start То end [Step step]

 тело цикла

 [Exit For]

 тело цикла

Next

Параметр

counter
здесь является счетчиком цикла;
start
— начальное значение этого счетчика;
end
— конечное значение;
step
— шаг приращения счетчика. Если ключевое слово
Step
не указано, то шаг приращения берется равным единице. Выход из цикла
For…Next
происходит, когда значение счетчика
counter
становится больше, чем значение параметра
end
. Выражение
Exit For
используется для безусловного выхода из цикла.

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

for
приведен в листинге П2.1.

Листинг П2.1. Пример использования цикла
For…Next

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…Next
предназначен для перебора всех элементов массива или коллекции:

For Each element In group

тело цикла

 [Exit For]

 тело цикла

Next [element]

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

element
является переменной, в которую будет записываться значение текущего элемента массива или коллекции при итерациях;
group
— имя массива или коллекции объектов.

Замечание

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

Enumerator
.

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

Exit For
можно осуществить немедленный выход из цикла.

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

For Each…Next
приведен в листинге П2.2.

Листинг П2.2. Пример использования цикла
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

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

While…Wend
условие выполнения тела цикла проверяется перед началом очередной итерации. Если условие равно
true
, то тело цикла выполняется, в противном случае цикл завершается.

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

While…Wend
приведен в листинге П2.3.

Листинг П2.3. Пример использования цикла
While…Wend

Dim theMoments, theCount

theMoments = ""

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

While (theCount >= 1)

 If (theCount > 1) Then

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

 Else

Поделиться:
Популярные книги

Локки 10. Потомок бога

Решетов Евгений Валерьевич
10. Локки
Фантастика:
фэнтези
юмористическое фэнтези
героическая фантастика
боевая фантастика
5.00
рейтинг книги
Локки 10. Потомок бога

Геном хищника. Книга шестая

Гарцевич Евгений Александрович
6. Я - Легенда!
Старинная литература:
прочая старинная литература
5.00
рейтинг книги
Геном хищника. Книга шестая

По прозвищу Святой. Книга первая

Евтушенко Алексей Анатольевич
1. Святой
Фантастика:
попаданцы
альтернативная история
6.40
рейтинг книги
По прозвищу Святой. Книга первая

Инженер Петра Великого 2

Гросов Виктор
2. Инженер Петра Великого
Фантастика:
попаданцы
альтернативная история
фэнтези
5.00
рейтинг книги
Инженер Петра Великого 2

Лекарь Империи 6

Карелин Сергей Витальевич
6. Лекарь Империи
Фантастика:
городское фэнтези
боевая фантастика
аниме
попаданцы
5.00
рейтинг книги
Лекарь Империи 6

Эволюционер из трущоб. Том 9

Панарин Антон
9. Эволюционер из трущоб
Фантастика:
попаданцы
аниме
фэнтези
фантастика: прочее
5.00
рейтинг книги
Эволюционер из трущоб. Том 9

Маленькая женщина Большого

Зайцева Мария
5. Наша
Любовные романы:
эро литература
современные любовные романы
5.00
рейтинг книги
Маленькая женщина Большого

Последний Паладин. Том 2

Саваровский Роман
2. Путь Паладина
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Последний Паладин. Том 2

Эволюционер из трущоб. Том 3

Панарин Антон
3. Эволюционер из трущоб
Фантастика:
попаданцы
аниме
фэнтези
фантастика: прочее
6.00
рейтинг книги
Эволюционер из трущоб. Том 3

Чужак из ниоткуда

Евтушенко Алексей Анатольевич
1. Чужак из ниоткуда
Фантастика:
попаданцы
альтернативная история
5.00
рейтинг книги
Чужак из ниоткуда

Бастард Императора. Том 15

Орлов Андрей Юрьевич
15. Бастард Императора
Фантастика:
городское фэнтези
аниме
фэнтези
фантастика: прочее
попаданцы
5.00
рейтинг книги
Бастард Императора. Том 15

Полет аистов

Гранже Жан-Кристоф
Детективы:
триллеры
8.88
рейтинг книги
Полет аистов

Ваше Сиятельство 7

Моури Эрли
7. Ваше Сиятельство
Фантастика:
боевая фантастика
аниме
5.00
рейтинг книги
Ваше Сиятельство 7

На границе империй. Том 10. Часть 6

INDIGO
Вселенная EVE Online
Фантастика:
боевая фантастика
космическая фантастика
попаданцы
5.00
рейтинг книги
На границе империй. Том 10. Часть 6