Modul
Vsebina
Kazalo 🔎︎

# 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