7.1.7　While...End

機能

指定した条件が真（True）である間，一連のステートメントの実行を繰り返すフロー制御ステートメントです。

形式

While  Condition
  〔Statements〕
  〔Exit While〕
End〔While〕

指定項目

Condition: 真（True），または偽（False）を評価する条件式を指定します。
Statements: Conditionが真（True）の間に実行する一つ，または複数のステートメントを指定します。複数のステートメントを記述する場合は，ステートメントごとに改行します。

説明

Conditionが真（True）の場合は，Endステートメントに達するまで，Statements内のすべてのステートメントが実行されます。実行がEndステートメントに達すると，制御は再びWhileステートメントに戻り，Condition が評価されます。Conditionが真（True）の間，この処理が繰り返されます。真（True）でない場合は，Endステートメントの次のステートメントに制御が移ります。

Exit Whileステートメントは，制御構造While...Endループ内だけで使用できます。Exit Whileステートメントを使用すると，指定した以外の条件でWhile...Endループを終了させることができます。Exit Whileステートメントは，While...Endループ内の任意の位置で何回でも指定できます。

While...Endループは，任意のレベルでネスト（入れ子）構造にすることができます。Endステートメントは最後に実行された Whileステートメントに対応します。

例

' 二次元の配列変数の全要素の中から指定のデータを検索する。
Dim array1( , )
Dim line
:
(配列変数array1への値格納処理)
:
line = 0
allCnt = GetArrayCount ( array1 )
While  line < allCnt
    buff = InArray ( array1( line + 1 ) ,"1999" ,1 ,False )
    If 0 < buff Then
        Exit While
    End If
    line = line + 1
End while

対象バージョン

JP1/Script 01-00以降

ページの先頭へ

7.1.7 While...End

7.1.7　While...End