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