IBM Lotus Symphony
|
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.
Do [{While | Until} Bedingung = True]
Anweisungsblock
[Exit Do]
Anweisungsblock
Loop
oder
Do
Anweisungsblock
[Exit Do]
Anweisungsblock
Loop [{While | Until} Bedingung = True]
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:
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...
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