Modul
Indhold
Indholdsfortegnelse 🔎︎

# Do...Loop-udtryk

Gentager sætningerne mellem Do og Loop sætningerne så længe betingelsen er True eller indtil betingelsen bliver True.

## Syntaks

    Do [{While | Until} condition = True]

sætningsblok

    [Exit Do]

sætningsblok

    Loop

eller

    Do

sætningsblok

    [Exit Do]

sætningsblok

    Loop [{While | Until} condition = True]

## Parametre/Elementer

Condition: En sammenligning, numerisk eller strengudtryk, som evaluerer til enten True eller False.

Sætningsblok: Sætninger som du vil gentage mens eller indtil betingelsen er True.

Sætningen Do...Loop udfører en løkke så længe, eller indtil, en bestemt betingelse er True. Betingelsen for at afslutte løkken skal indtastes enten efter Do-sætningen eller efter Loop-sætningen. Følgende eksempler er gyldige kombinationer:

## Syntaks

    Do While condition = True

...sætningsblok

    Loop

Sætningsblokken mellem Do While og Loop-sætningerne bliver gentaget så længe betingelsen er True.

    Do Until condition = True

...sætningsblok

    Loop

Sætningsblokken mellem Do Until og Loop-sætningerne bliver gentaget så længe at betingelsen er False.

    Do

...sætningsblok

    Loop While condition = True

Sætningsblokken mellem Do og Loop-sætningerne gentages så længe betingelsen er True.

    Do

...sætningsblok

    Loop Until condition = True

Sætningsblokken mellem Do og Loop-sætningerne gentages indtil betingelsen er True.

Brug sætningen Exit Do til ubetinget at afslutte løkken. Du kan tilføje denne sætning hvor som helst i en Do...Loop sætning. Du kan også definere en afslutningsbetingelse ved at bruge strukturen If...Then som følger:

    Do...

sætninger

    If condition = True Then Exit Do

sætninger

    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