IBM Lotus Symphony


Do...Loop-Anweisung [Laufzeit]

Wiederholt die zwischen der Do- und der Loop-Anweisung aufgeführten Anweisungen solange (While) die angegebene Bedingung wahr ist oder bis (Until) die angegebene Bedingung wahr wird.

Syntax

Do [{While | Until} Bedingung = True]

Anweisungsblock

[Exit Do]

Anweisungsblock

Loop

oder

Do

Anweisungsblock

[Exit Do]

Anweisungsblock

Loop [{While | Until} Bedingung = True]

Parameter/Elemente

Bedingung: Ein Vergleich, numerischer Ausdruck oder Zeichenfolgeausdruck, der als True oder False ausgewertet werden kann.

Anweisungsblock: Anweisungen, die Sie wiederholen möchten, während oder bis die Bedingung erfüllt (True) ist.

Die Anweisung Do...Loop führt eine Schleife so lange aus, wie oder bis eine bestimmte Bedingung erfüllt (True) ist. Die Bedingung zum Verlassen der Schleife muss entweder nach der Do- oder der Loop-Anweisung eingegeben werden. Folgende Beispiele sind gültige Kombinationen:

Syntax

Do While Bedingung = True

...Anweisungsblock

Loop

Der Anweisungsblock zwischen den Anweisungen Do While und Loop wird so lange wiederholt, wie die Bedingung erfüllt ist.

Do Until Bedingung = True

...Anweisungsblock

Loop

Der Anweisungsblock zwischen den Anweisungen Do Until und Loop wird so lange wiederholt, wie die Bedingung nicht erfüllt ist.

Do

...Anweisungsblock

Loop While Bedingung = True

Der Anweisungsblock zwischen den Anweisungen Do und Loop wird so lange wiederholt, wie die Bedingung erfüllt ist.

Do

...Anweisungsblock

Loop Until Bedingung = True

Der Anweisungsblock zwischen den Anweisungen Do und Loop wird so lange wiederholt, bis die Bedingung erfüllt ist.

Um die Schleife bedingungslos zu verlassen, verwenden Sie die Anweisung Exit Do. Sie können diese Anweisung an einer beliebigen Position innerhalb einer Do...Loop-Anweisung einfügen. Sie können eine Abbruchbedingung auch mit einer If...Then-Struktur wie folgt definieren:

Do...

Befehle

If Bedingung = True Then Exit Do

Befehle

Loop...

Beispiel

Sub SortierenA

a$(1) = "Klaus"

Dim sPath As String

a$(3) = "Thorsten"

a$(4) = "Manfred"

If sFile <> "" Then

Do

a$(7) = "Karsten"

sFile = Dir$

Loop Until sFile = ""

End If

End Sub


Produktfeedback | Zusätzliche Dokumentation | Marken