Ukaz Do...Loop

Ponavlja ukaze med ukazoma Do in Loop, dokler je pogoj resničen, ali pa dokler se pogoj ne uresniči.

Skladnja

Do [{While | Until} pogoj = True]

blok ukazov

[Exit Do]

blok ukazov

Loop

ali

Do

blok ukazov

[Exit Do]

blok ukazov

Loop [{While | Until} pogoj = True]

Parametri/elementi

Pogoj: primerjava, numeričen izraz ali niz, katerega vrednost je Res ali Ne res.

blok ukazov: Ukazi, ki jih želite ponavljati, dokler je ali dokler ni pogoj resničen.

Ukaz Do...Loop izvaja zanko toliko časa, dokler se navedeni pogoj ne uresniči. Pogoj za konec zanke moramo vnesti za ukazom Do oziroma za ukazom Loop. Naslednji primeri so veljavne kombinacije:

Skladnja

Do While pogoj = True

... blok ukazov

Loop

Blok ukazov med Do While in Loop ukazi se izvaja toliko časa, dokler je pogoj resničen oz. izpolnjen.

Do Until pogoj = True

... blok ukazov

Loop

Blok ukazov med Do Until in Loop ukazi se izvaja toliko časa, dokler pogoj ni izpolnjen.

Do

... blok ukazov

Loop While pogoj = True

Blok ukazov med Do in Loop ukazi se izvaja toliko časa, dokler je pogoj res.

Do

... blok ukazov

Do Until pogoj = True

Blok ukazov med Do in Loop ukazi se izvaja toliko časa, dokler se pogoj ne uresniči.

Če želite zanko brezpogojno zapustiti, uporabite ukaz Exit Do. Ta ukaz lahko uporabite kjerkoli v ukazu Do...Loop. Pogoj lahko tudi definirate s pomočjo strukture If...Then, kot kaže tale primer:

Do...

ukazi

If pogoj = True Then Exit Do

ukazi

Loop...

Primer

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