Module
Enhavo
Indekso 🔎︎
Iteracioj

# Do...Loop Statement

ripetas la ordonojn inter la Do kaj la ordono Loop dum la kondiĉo estas True (vera) aŭ ĝis la kondiĉo fariĝas True.

## Sintakso

    Do [{While | Until} condition = True]

ordona bloko

    [Exit Do]

ordona bloko

    Loop

aŭ

    Do

ordona bloko

    [Exit Do]

ordona bloko

    Loop [{While | Until} condition = True]

## Parametroj/Elementoj

Condition: Komparo, numera aŭ ĉena esprimo, kiu komputiĝas al True aŭ False.

Statement block: Ordonoj ripetotaj dum uax ĝis la kondiĉo estas True.

La ordono Do...Loop rulas iteracion ĝis kiam specifa kondiĉo estas vera. Metu la kondiĉon por eliri el la iteracio post aŭ la ordono Do aŭ Loop. La jenaj ekzemploj estas validaj konbinaĵoj:

## Sintakso

    Do While condition = True

...ordona bloko

    Loop

La ordona bloko inter la Do While kaj la Loop ripetiĝos dum la kondiĉo estas vera.

    Do Until condition = True

...ordona bloko

    Loop

La ordona bloko inter la Do Until kaj la Loop ripetiĝos dum la kondiĉo estas falsa.

    Do

...ordona bloko

    Loop While condition = True

La ordona bloko inter la ordonoj Do kaj Loop ripetiĝos dum la kondiĉo estas vera.

    Do

...ordona bloko

    Loop Until condition = True

La ordona bloko inter la ordonoj Do kaj Loop ripetiĝos ĝis kiam la kondiĉo estas vera.

Uzu la ordonon Exit Do por kondiĉe fini la iteracion. Oni povas enmeti ĉi tiun ordonon ie ajn en ordono Do...Loop. Oni povas ankaŭ difini eliran kondiĉon per la strukturo If...Then jene:

    Do...

ordonoj

    If condition = True Then Exit Do

ordonoj

    Loop...

## Ekzemplo

    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