42. Операторы циклов. Организация циклов (LotusScript).

Как и другие языки программирования, LotusScript использует целый ряд опера¬торов. Эти операторы применяются в математических уравнениях и для сравне¬ния выражений. К числу самых распространенных операторов языка относятся следующие:

Оператор Знак Описание

Сложение + Сложение чисел

Вычитание - Вычитание чисел

Умножение * Умножение чисел

Деление 1 Деление чисел

Конкатенация + Слияние текстовых строк

Конкатенация & Объединение значений. Все значения

автоматически преобразуются в строки,

после чего соединяются воедино

Продолжение строки - Знак нижнего подчеркивания указывает, что

оператор будет продолжен наследующей

строке.

Равно = Сравнение двух значений. Например, если

сегодняшний день недели есть

"Tuesday", произвести действие.

Присваивание = Задание значения переменной. Например,

присвоить строке текста конкретное

значение: "Your document has been saved."

Меньше < Сравнение двух значений.

Больше > Сравнение двух значений.

Не равно <> Сравнение двух значений.

Не равно >< Сравнение двух значений.

Примечание

В языке LotusScript оператором присваивания выступает знак равенства, а не знак равенства с предваряющим двоеточием :=, как в языке формул.

Язык LotusScript предлагает многочисленные циклические конструкции, включая операторы DO, FOR и WHILE. Каждый из перечисленных операторов непрерывно выполняет одну или несколько инструкций такое число раз, которое определяется выражением, значением или найденным результатом.

Оператор DO существует в двух различных форматах. Он может выполнять цикл, пока условие истинно (WHILE), либо пока оно не окажется таковым (UNTIL). И в том, и в другом случае условие вычисляется в начале или в конце цикла. Синтаксически оператор имеет вид:

DO [ WHILE | UNTIL ] условие

действие(-я)

LOOP

Также выражение можно проверять в конце цикла, используя следующий формат:

DO

действие (-я)

LOOP [ WHILE | UNTIL ] условие

Например, следующий код обнуляет переменную-счетчик counter. Затем LotusScript проверяет, действительно ли сейчас ее значение меньше пяти. На каждой из итераций counter возрастает на 1, а на экране появляется сообщение. Цикл завершается, когда счетчик достигает значения 5.

Dim counter As Integer

counter = 0

Do While counter < 5

counter = counter + 1

Messagebox counter

Loop

Оператор FOR служит для выполнения цикла по набору операторов LotusScript конкретное число раз. В упомянутом операторе производится установка и инкремент собственной перемен-ной. Цикл выполняется до тех пор, пока не будет достигнуто желаемое количество итераций. Оп-ционально можно задать шаг приращения переменной. Если значение после STEP не указано, переменная возрастает на единицу.

Шаг инкремента, равный, например двум, означает, что цикл будет считать по две единицы за итерацию. Синтаксически этот цикл таков:

FOR счетчик = начзнач ТО конзнач [STEP шаг]

действие(-я)

NEXT счетчик

Приведенный ниже пример выводит значение счетчика на экран. Счет начина¬ется с единицы и производится пятикратно. Как только счетчик достигает шести, цикл прекращается.

For counter = 1 То 5

Messagebox counter

Next

Наконец, оператор WHILE выполняет цикл до тех пор, пока условие сохраняет истинное значение. Когда условие становится ложным, LotusScript немедленно выходит из цикла.

WHILE условие

действие(-я)

WEND

Например, следующий код спрашивает пользователя о продолжении работы. При нажатии клавиши «Y» или «у» диалог ввода появляется еще раз. При вводе других значений цикл прекращается.

Dim result As String

result = Inputbox$("Do you want to continue (Y / N)?")

While result = "Y" Or result = "y"

result = Inputbox$("Do you want to continue (Y / N)?")

Wend

Рекомендуемая практика программирования предполагает, что создаваемые циклические конструкции всегда должны по умолчанию завершаться. Это предотвращает возможность по-явления бесконечного цикла. Бесконечные циклы могут заблокировать приложение и рабочую станцию, потенциально расходуя значительный объем памяти или ресурсов серверного процес-сора. Для прекращения цикла по некоему условию воспользуйтесь оператором EXIT.

EXIT типцикла

где типцикла представляет текущую циклическую конструкцию, например, DO, FOR или FORALL. Также упомянутый оператор может применяться для выхода из таких блоков кода, как FUNCTION, SUB или PROPERTY.