Управляющие операторы VBScript
VBScript позволяет управлять процессом обработки данных с помощью условных переходов и циклов. С помощью условных выражений вы можете разветвлять сценарий, используя критерий для определения, какую задачу выполнять. Циклы позволяют ваммногократно повторять однотипные действия. И те, и другие помогают создать более сложные и функциональные страницы.
Условные выражения
В VBScript есть две формы условных выражений:
If... Then... Else
Select... Case
If... Then... Else
Это выражение используется для проверки условия, которое может оказаться истиным или ложным, и затем, в зависимости от результата сравнения, для выполнения одной или нескольких строк кода. Вместо того чтобы рассуждать о теоретических возможностях блока If, мы проанализируем несколько примеров.
Самый простой способ использования блока If выглядит так:
If AmountPurchased >10000 Then DiscountAmount = AmountPurchased * .10
В этом премере условие таково:
If AmountPurchased >10000
В нем просто сравнивается сзначение переменной (объем покупок). Если объем покупок больше, условие выполняется. В этом случае выполняется выражение, находящееся в той же строке: DiscountAmount = AmountPurchased * .10
Теперь рассмотрим более сложную версию этой конструкции. Здесь мы можем выполнить несколько действий подряд в случае выполнения условия:
If AmountPurchased >10000 Then
DiscountAmount = AmountPurchased * .10
Subtotal=AmountPurchased - DiscountAmount
End If
В такой форме этой конструкции в случае выполнения условия могут быть выполнены одно или несколько выражений. Для этого нужные выражения помещают между операторами Then и End If.
Следующей формой конструкции является формат If... Then... Else. Эта форма отличается тем, что в случае истинности условного выражения выполняется один блок кода, в случае, если оно ложно, -- другой блок.
If AmountPurchased >10000 Then
DiscountAmount = AmountPurchased * .10
Subtotal=AmountPurchased - DiscountAmount
Else
HandlingFee = AmountPurchased * .3
Subtotal=AmountPurchased + HandlingFee
End If
В этом примере, когда условие выполнено, т. е. стоимость покупки больше $10 000, покупатель получает скидку 10%. Если меньше -- скидка заменяется на 3% комиссионных.
И последняя конструкция функции If -- конструкция If... Then... Else If. В этой форме проверяются все условия либо до тех пор, пока не будет найдено выполненное, либо до выражения Else.
If AmountPurchased >10000 Then
DiscountAmount = AmountPurchased * .10
Subtotal=AmountPurchased - DiscountAmount
Else
If AmountPurchased >5000 Then
DiscountAmount = AmountPurchased * .05
Subtotal=AmountPurchased - DiscountAmount
Else
HandlingFee = AmountPurchased * .3
Subtotal=AmountPurchased + HandlingFee
End If
В этом примере покупатель получает скидку 10% ну покупку стоимостью свыше $10 000, 5% -- на покупку стоимостью свыше $5000, или с него удерживаются комиссионные в размере 3% во всех остальных случаях.
Как можно заметить, VBScript дает вам много возможностей для построения блока If.
Select... Case
Конструкция Select Case является альтернативной блоку If... Then... Else, когда появляются сложные условия. Она хорошо подходит для ситуации, в которой есть несколько возможных значений для проверяемого условия. Так же, как и предыдущая, конструкция Select Case проверяетусловие на основе результата выполняет серию действий.
Синтаксис выглядит так:
Select Case условие
Case значение
Case значение
...
Case Else
End Select
Например, слудующий блок присваивает различные почтовые издержки в зависимости от штата, в который будет послан продукт:
Select Case Document. frmOrder. txtState. Value
Case "California"
ShippingFee = .04
Case "Florida"
ShippingFee = .03
Case Else
ShippingFee = .02
End Select
Такая конструкция проверяет каждое из условий Case до тех пор, пока не найдет выполненное условие. Если такого условия не будет найдено, будут выполнены выражения, находящиеся в Case Else.
СОВЕТ Даже если это не является необходимым, в конструкцию Select Case всегда включайте блок Case Else для обработки условий, которые вам могут казаться невозможными. Для таких условий просто включите функцию Message Box, которая выдаст сообщение о том, что происходит что-то непредвиденное.
Операторы цикла
VBScript поддерживае четыре формы циклов:
For... Next
For Each... Next
Do... Loop
While... WEnd.
Эти четыре выражения могут быть разделены на две группы. Конструкции с оператором For лучше всего использовать, когда вы хотите проделать некоторые действия определенное количество раз. Конструкции, содержащие While, лучше всего использовать для неограниченного количества повторений.
For... Next
Эта структура применяется, когда нужно повторить действия определенное количество раз. в нем используется переменная - счетчик циклов, которая увеличивается или уменьшается с каждым новым циклом. В следующем примере показывается простой цикл For:
For counter = 1 to 12
result = 5 * counter
MsgBox counter & " пять раз будет " & result
Next counter
Переменная counter имеет числовое значение, которое увеличивается или уменьшается. Число 1 определяет его начальное значение, 12 - конечное значение, шаг по умолчанию равен 1. Когда этот цикл завершиться, появится 12 окон сообщения, в которых будет написана таблица умножения на 5 чисел от 1 до 12.
В данном примере переменная counter увеличивается на 1 в конце каждого цикла. Заданием необязательного параметра Step мы можем изменить эту величину:
For counter = 1 to 12 Step 2
result = 5 * counter
MsgBox counter & " пять раз будет " & result
Next counter
Таким образом, слегка изменив код, мы получим результаты перемножения лишь некоторых чисел из данного диапазона. Можно осуществить и цикл с обратным счетом, изменив параметр Step:
For counter = 12 to 1 Step -1
result = 5 * counter
MsgBox counter & " пять раз будет " & result
Next counter
Заметим, что в цикле с обратным счетом конечный номер меньше начального.
For Each... Next
Эта конструкция похожа на предыдущую, отличаясь тем, что вместо заданного количества повторений цикл обрабатывает каждый элемент массива или коллекции.
Do... Loop
Этот тип цикла повторяет выполнение выбранного блока кода до выполнения заданного условия. Обычно при использовании такой структуры проверяемое условие -- результат операции, выполняемой внутри цикла. Два типа этой структуры приведены далее. Это Do... While и Do... Until.
Do... While
Цикл Do, содержащий ключевое слово While, выполняется до тех пор, пока проверяемое условие истино. Вы можете проверять это условие в начале цикла.
Do While условие
выражение
выражение
Loop
Или в конце цикла, как показано ниже:
Do
выражение
выражение
Loop While условие
Разница между этими способами заключается в том, что первый может никогда не выполнить содержащиеся в нем команды, а второй выполнит их как минимум один раз.
Do... Until
Цикл Do, содержащий ключевое слово Until, выполняется до тех пор, пока проверяемое условие ложно. Как и в структуре Do ... While, вы можете поставить условие в начале цикла:
Do Until условие
выражение
выражение
Loop
Или в конце цикла, как показано ниже:
Do
выражение
выражение
Loop Until условие
Пример использования цикла Do... Loop:
password = InputBox("Введите ваш пароль")
Do Until possword = "No Pasaran"
MsgBox "Неправильно введенный пароль. Попробуйте еще раз!"
password = InputBox("Введите ваш пароль")
Loop
В этом примере мы требуем ввести пароль перед выполнением условной части цикла в первый раз. Результат будет таким: если правильный пароль будет введен сразу, цикл не будет выполнен ни разу. Если пользователь введет неверный пароль, будут выполнены действия, указанные внутри цикла, то есть будет выдано сообщение и пользователю будет приедложен снова ввести пароль.
While... WEnd
Cтруктура While... WEnd выполняет цикл до тех пор, пока проверяемое условие верно. Если это так, она работает похоже на Do ... Loop, хотя и без ее гибкости.
Синтаксис структуры такой:
While условие
выражение
выражение
...
WEnd
Четвертое упражнение по VBScript
В этом упражнении мы продолжим усовершенствование нашей страницы. Новые особенности, с которыми мы столкнемся в этом упражнении, такие:
выпадающий список, в котором пользователь может выбрать товар;
автоматическое назначение цены при выборе;
вычисление размера скидок на основе стоимости покупки;
Упражнение 4: работа с циклами
В этом упражнении вы создадите документ HTML, который содержит сценарий, получающий данные со страницы, выполняет расчеты и выводит результат обратно на страницу. Кроме того, он будет оперировать с ценами на товар и расчитывать размер скидки на основе стоимости покупки.
Скопируйте текст докуметна p0004.txt в текстовый редактор и сохраните с расширением. htm. Это часть HTML набранная для вас.
Взгляните на документ. Заметьте появление элемента управления ListBox и дополнительных элементов типа Edit. Обратите внимание, как заполняется список товаров.
Загрузите файл в Internet Explorer. Результат будет таким. Вы уже могли забыть о том, что нужно попытаться нажать на кнопку, так что мы напоминаем.
Теперь добавим на страницу сценарий, для того чтобы кнопка и выпадающий список перестали быть просто элементами художественного оформления.
Добавьте (не скопируйте, а добавьте) выделенные строки в уже имеющийся документ.
<html>
<head>
<title>Учебник по VBScript - Упражнение 4 </title>
<SCRIPT LANGUAGE="VBScript">
<!--Для работы с несовместимым броузерами
Option Explicit
Dim Cost 'Номер продукта
Dim Qty 'Количество заказанного товара
Sub Button1_OnClick()
Dim AD ' AmountofDiscount
Dim AT ' AmountofTax
Dim DISCOUNT_LIMIT
Dim DISCOUNT_RATE
Dim SB 'SubtotalBefore
Dim SA 'SubtotalAfter
Dim TAX_RATE
Dim TC 'TotalCost
'Определение констант
DISCOUNT_LIMIT=1000
DISCOUNT_RATE=0.10
TAX_RATE=0.06
'Вычисление подытога
Qty=document. all. Edit1.value
SB=Qty*Cost
'Проверка на минимальный объем покупок
If (SB>DISCOUNT_LIMIT) Then AD=SB*DISCOUNT_RATE Else AD=0
SA=SB-AD
'Вычисление налога и итога
AT=SA*TAX_RATE
TC=SA+AT
'Отображение результатов
document. all. Edit3.value=CStr(SB) & " $"
document. all. Edit4.value=CStr(AD) & " $"
document. all. Edit5.value=CStr(SA) & " $"
document. all. Edit6.value=CStr(AT) & " $"
document. all. Edit7.value=CStr(TC) & " $"
end sub
sub ListBox_onchange()
Dim intMnt
intMnt=CInt(document. all. ListBox. value)
Select Case intMnt
Case 1
Cost=645
Case 2
Cost=710
Case 3
Cost=320
Case 4
Cost=430
Case 5
Cost=940
Case 6
Cost=255
Case 7
Cost=150
End Select
document. all. Edit2.value=CStr(Cost) & " $"
end sub
-->
</SCRIPT>
</head>
...
Сохраните файл, загрузите его в Internet Explorer. Результат будет, наверное, таким. Выберите один из товаров в списке. Заметим, что поле Цена единицы товара автоматически заполняется значением.
Как это работает
На странице сделанной в упражнении 4, есть две новых особенности: автоматическое присваивание цены и вычисление сидок. Мы рассмотрим каждую из них в отдельности.
Просмотр товаров
Это новшество созданно с помощью программы обработки события ListBox_onChenge() . Как вы, наверное, помните, элемент формы, генерирующий выпадающий список, называется ListBox. Этот элемент поддерживаетсобытие onChenge, которое происходит каждый раз при выборе элементов из списка. Используя инстукцию Select Case, мы получает значение элемента формы. В нашем примере элементы списка жестко зафиксированы в коде. В настоящих приложениях элементы обычно беруться из внешнего источника данных.
sub ListBox_onchange()
Dim intMnt
intMnt=CInt(document. all. ListBox. value)
Select Case intMnt
Case 1
Cost=645
Case 2
Cost=710
Case 3
Cost=320
Case 4
Cost=430
Case 5
Cost=940
Case 6
Cost=255
Case 7
Cost=150
End Select
document. all. Edit2.value=CStr(Cost) & " $"
end sub
ПРИМЕЧАНИЕ Функции преобразуют строку в целое число (CInt) или наоборот (CStr). Это может пригодится вам в дальнейшем.
Вычисление скидок
Сценарий, предназначенный для вычисления скидок, начинается с задания нескольких констант, одна из которых устанавливает для минимальной стоимости покупки, с которой начинаются скидки, значение $1000, вторая -- значение скидки 10%. Наш расчет начинается с вычисления подытога перед назначением скидок и налогов.
После этого назначаются скидки с помощью конструкции If... Then.... Else. Мы сравниваем наш подытог с константой (минимум для скидок). Если подытог больше минимума, размер скидки вычисляется и сохраняется в переменной AD. Если подытог меньше или равен минимуму, значение переменной делается равным 0.
'Проверка на минимальный объем покупок
If (SB>DISCOUNT_LIMIT) Then AD=SB*DISCOUNT_RATE Else AD=0
Значение переменной AD затем вычисляется из подытога. Дальше мы вычисляем ставки налога и полный итог. Заканчивается процедура отображением разультатов на экране.
Развитие этого приложения
В этом примере минимальная стоимость покупки для применения скидок -- $1000. Что мешает нам сделать еще один порого для новых скидок, например, равным $?
Прогресс налицо. Эта страница получает данные от пользователя, обрабатывает их, делает необходимые проверки и возвращает пользователю результат -- и все без передачи данных на сервер и обратно.
В этом разделе вы познакомились:
с условными выражениями, которые позволяют избирательно выполнять вам блоки кода;
конструкциями циклов, которые дают возможность многократно выполнять однотипные действия при условии выполнения заданного требования.
Теперь, когда мы умеем вводить, обрабатывать и отображать данные, пришло время узнать, как проверять правильность данных перед посылкой на сервер.
