JP1/Script(Windows(R)用)
![[目次]](FIGURE/CONTENT.GIF)
![[用語]](FIGURE/GLOSS.GIF)
![[索引]](FIGURE/INDEX.GIF)
![[前へ]](FIGURE/FRONT.GIF)
- 機能
- 指定した条件が真(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以降
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.