Do...Loop Statement
ripetas la ordonojn inter la Do kaj la ordono Loop dum la kondiÄo estas True (vera) aÅ Äis la kondiÄo fariÄas True.
Sintakso
Do [{While | Until} condition = True]ordona bloko
[Exit Do]ordona bloko
LoopaÅ
Doordona bloko
[Exit Do]ordona bloko
Loop [{While | Until} condition = True]Parametroj/Elementoj
Condition: Komparo, numera aÅ Äena esprimo, kiu komputiÄas al True aÅ False.
Statement block: Ordonoj ripetotaj dum uax Äis la kondiÄo estas True.
La ordono Do...Loop rulas iteracion Äis kiam specifa kondiÄo estas vera. Metu la kondiÄon por eliri el la iteracio post aÅ la ordono Do aÅ Loop. La jenaj ekzemploj estas validaj konbinaĵoj:
Sintakso
Do While condition = True...ordona bloko
LoopLa ordona bloko inter la Do While kaj la Loop ripetiÄos dum la kondiÄo estas vera.
Do Until condition = True...ordona bloko
LoopLa ordona bloko inter la Do Until kaj la Loop ripetiÄos dum la kondiÄo estas falsa.
Do...ordona bloko
Loop While condition = TrueLa ordona bloko inter la ordonoj Do kaj Loop ripetiÄos dum la kondiÄo estas vera.
Do...ordona bloko
Loop Until condition = TrueLa ordona bloko inter la ordonoj Do kaj Loop ripetiÄos Äis kiam la kondiÄo estas vera.
Uzu la ordonon Exit Do por kondiÄe fini la iteracion. Oni povas enmeti Äi tiun ordonon ie ajn en ordono Do...Loop. Oni povas ankaÅ difini eliran kondiÄon per la strukturo If...Then jene:
Do...ordonoj
If condition = True Then Exit Doordonoj
Loop...Ekzemplo
Sub ExampleDoLoop
Dim sFile As String
Dim sPath As String
sPath = "c:\"
sFile = Dir$( sPath ,22)
If sFile <> "" Then
Do
MsgBox sFile
sFile = Dir$
Loop Until sFile = ""
End If
End Sub