Modul
Indhald
Innhaldsliste 🔎︎

# Do...Loop-uttrykket

Gjentar uttrykka mellom «DO» og «Loop» så lenge vilkåret er SANN eller til vilkåret vert SANN.

## Syntaks

    Do [{While | Until} cvilkår = SANN]

uttrykksblokk

    [Exit Do]

uttrykksblokk

    Loop

eller

    DO

uttrykksblokk

    [Exit Do]

uttrykksblokk

    Loop [{While | Until} vilkår = True]

## Parameter/Element

Vilkår: Ei samanlikning, tal- eller strenguttrykk, som evaluerer anten til True (SANN) eller False (USANN).

Uttrykksblokk: Uttrykket som skal utførast medan eller til vilkåret er SANN.

Uttrykket Do … Loop utfører ei løkke (loop) så lenge eller til eit bestemt vilkår er SANN. Vilkåret for å avslutta sløyfa må skrivast inn anten etter uttrykket Do eller Loop. Eksempelet viser gyldige kombinasjonar:

## Syntaks

    Do While vilkår = True

… uttrykksblokk

    Loop

Uttrykksblokka mellom uttrykka Do While og Loop vert gjenteke så lenge vilkåret er SANN.

    Do Until vilkår = True

… uttrykksblokk

    Loop

Uttrykksblokka mellom uttrykka Do Until og Loop vert gjenteke så lenge vilkåret er USANN.

    DO

… uttrykksblokk

    Loop While vilkår = True

Uttrykksblokka mellom uttrykka Do og Loop vert gjenteke så lenge vilkåret er SANN.

    DO

… uttrykksblokk

    Loop Until vilkår = True

Uttrykksblokka mellom uttrykka Do og Loop vert gjenteke til vilkåret er SANN.

Bruk uttrykket Exit Do for å avslutta løkka utan vilkår. Du kan setja inn dette uttrykket kvar som helst i eit Do … Loop-uttrykk. Du kan også definera eit «exit»-vilkår med If … Then set opp slik:

    Do …

uttrykk

    If vilkår = True Then Exit Do

uttrykk

    Loop …

## Eksempel

    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