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ů

Loop

or

Do

blok 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ů

Loop

Blok 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ů

Loop

Blok příkazů mezi příkazy Do Until a Loop se opakuje, dokud je podmínka False.

Do

...blok příkazů

Loop While Podmínka = True

Blok příkazů mezi Do a Loop se opakuje tak dlouho, dokud je podmínka True.

Do

...blok příkazů

Loop Until Podmínka = True

Blok 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 Do

pří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