LOTUSSCRIPT 言語

例:On Error ステートメント
この例で On Error ステートメントは、LotusScript に Best 関数の実行中にエラーが発生した場合、次のステートメントから実行を再開するように指示します。

Call ステートメントを実行すると、y を z で割ろうとしたところでゼロによる除算エラーが発生します。実行は次のステートメント (If ステートメント) から再開します。そのときのエラー番号は、%Include ステートメントでスクリプトに取り込んだ lserr.lss ファイルに定義されている定数 ErrDivisionByZero の値になります。したがって Print ステートメントが実行されます。Exit Function ステートメントは、プロシージャ内の残りのステートメントを実行せずに Best() 内の実行を終え、呼び出し側に制御を戻します。

%Include "lserr.lss"
Function Best()
Dim x As Integer, y As Integer, z As Integer

' After any error-generating statement, resume
' execution with the next statement.
On Error Resume Next
' ...
y% = 3
z% = 0
' ...
x% = y% / z% ' Generates division-by-zero error.
If Err = ErrDivisionByZero Then
Print "Attempt to divide by 0. Returning to caller."
Exit Function
End If
' ...
End Function
Call Best()

関連項目