Desktop Management スクリプト言語 › 文 › 反復文 › REPEAT..UNTIL 文

REPEAT..UNTIL 文

REPEAT..UNTIL 文には、文ブロックが含まれます。 1 つの式により、1 つの式の反復実行が制御されます。

文ブロックが実行され、式が評価されます。 式の結果は Integer タイプである必要があります。 文ブロックは、式が真（ゼロ以外）と評価されるまで、繰り返し実行されます。

この文には以下の構文があります。

REPEAT
文ブロック
UNTIL expression

例： REPEAT … UNTIL 文

DIM FileName as String
DIM NoOfLines as Integer
DIM TmpLine as string
DIM hFile as Integer
FileName="C:¥AUTOEXEC.BAT"
NoOfLines=0
hFile=OpenFile(FileName,0,0)
REPEAT
 ReadFile(hFile,TmpLine)
 NoOfLines=NoOfLines+1
UNTIL Eof(hFile)
CloseFile(hFile)
NoOfLines=NoOfLines-1
PRINT FileName + " Contains "+ str(NoOfLines) + " lines."
end: