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以降