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()

関連項目