41. Работа с условными операторами (LotusScript).

Условные операторы служат для выполнения одной или нескольких инструкций в зависимости от значения выражения. В число самых распространенных операто¬ров ветвления входят IF и SELECT CASE.

Оператор IF позволяет исполнять код по условию, которое определяется вы-ражением. Если результат вычисления выражения равен «истине», выполняется основное действие (или действия) оператора. Если результат выражения равен • лжи», выполняется вторичный набор инструкций (если таковой задан за ключе-вым словом ELSE). Обратите внимание, что предложение ELSE не является обязательным. Существуют два вида оператора IF - одно- и многострочный. Однострочный формат оператора IF имеет синтаксис вида:

If выражение then действие1 else действие2

Многострочный формат предназначен для выполнения в зависимости от значения выражения целого набора инструкций. Все многострочные операторы должны начинаться ключевым словом IF и заканчиваться ключевым словом END IF. Наконец, в них могут входить необязательные предложения ELSE с вторичным набором действий. Синтаксически многострочные операторы IF выглядят таким образом:

IF выражение THEN

действие!а

действие1b

действие1с

…

ELSE

действие2а

действие2Ь

действие2с

…

END IF

И в первом, и во втором случае оператор ELSE не является обязательным, и вы можете его опускать. Это значит, что если выражение ложно, а в операторе не содержится ELSE, никакие инструкции выполнены не будут. Так, если переменная состояния равна «New», на экран будет выдано сообщение «This is a new service request». Однако если равенство нарушается, сообщение будет совсем другим. И последнее: вы можете вкладывать операторы IF друг в друга, используя предложение ELSEIF.

IF status = "New" THEN

messagebox "This is a new service request"

ELSE

messagebox "This is an existing service request"

2ND IF

Подобно оператору IF, оператор SELECT предназначен для выполнения одной или нескольких инструкций в зависимости от значения выражения. Синтаксис этого оператора следующий:

SELECT CASE переменная

CASE значение1 :

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

CASE значение2 :

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

CASE значениеЗ :

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

CASE ELSE

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

END SELECT

Обратите внимание, что значение или переменная этого оператора определяется в самом его начале, а в дальнейшем сопоставляется с каждым из значений оператора CASE. Найдя первое совпадение, LotusScript выполняет действие (или действия) соответствующей ветви, а затем выходит из оператора. В случае, если совпадений не обнаружено, в предложении ELSE может задаваться еще один необязательный набор действий.

Например, следующий код запрашивает, какое количество единиц товара хочет заказать пользователь, и сохраняет результат отклика в вариантной переменной result. Затем в каждом операторе case ее значение проверяется, и если найдено совпадение, выводится надлежащее сообщение. Если совпадений не обнаружено, на экран будет выдано предупреждение со значением отклика.

Dim result As String

result = Inputbox$("Do you want 1, 2 or 3 items?")

Select Case result Case "1" :

Messagebox "One item ordered"

Case "2" :

Messagebox "Two items ordered"

Case "3" :

Messagebox "Three items ordered"

Case Else

Messagebox "Incorrect value: " + result

End Select