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