Příkaz Do...Loop
Příkazy mezi příkazy Do a Loop se budou opakovat, je-li podmínka splněna nebo do splnění podmínky.
Syntaxe
Do [{While | Until} Podmínka = True]blok příkazů
[Exit Do]blok příkazů
Loopor
Doblok příkazů
[Exit Do]blok příkazů
Loop [{While | Until} Podmínka = True]Parametry/elementy
Podmínka: Porovnávací, číselný nebo řetězcový výraz, který se vyhodnotí jako True nebo False.
Blok příkazů: Příkazy, které se opakují podle platnosti podmínky.
Příkaz Do...Loop se spouští ve smyčce podle platnosti podmínky. Podmínka pro ukončení smyčky se zadává buď po Do nebo Loop. Následující příkazy jsou platné kombinace:
Syntaxe
Do While Podmínka = True...blok příkazů
LoopBlok příkazů mezi příkazy Do While a Loop se opakuje tak dlouho, dokud je podmínka True.
Do Until Podmínka = True...blok příkazů
LoopBlok příkazů mezi příkazy Do Until a Loop se opakuje, dokud je podmínka False.
Do...blok příkazů
Loop While Podmínka = TrueBlok příkazů mezi Do a Loop se opakuje tak dlouho, dokud je podmínka True.
Do...blok příkazů
Loop Until Podmínka = TrueBlok příkazů mezi příkazy Do a Loop se opakuje, dokud pomídnka je True.
Bezpodmínečně smyčku ukončíte příkazem Exit Do. Tento příkaz je možné přidat kamkoliv mezi příkazy Do...Loop. Ukončovací podmínku je také možné určit pomocí struktury If...Then takto:
Do...příkazy
If Podmínka = True Then Exit Dopříkazy
Loop...Příklad
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