Hilfe für LibreOffice 24.8
Wiederholt die Anweisungen zwischen den Anweisungen Do und Loop, solange die Bedingung True ist oder bis die Bedingung True wird.
Do {While | Until} condition = True
' Do While: Der Anweisungsblock wird solange wiederholt, wie die Bedingung wahr ist
' Do Until: Der Anweisungsblock wird solange wiederholt, wie die Bedingung falsch ist
statements
[Exit Do]
statements
Loop
Do
statements
[Exit Do]
statements
' Loop While: Der Anweisungsblock wiederholt sich, solange die Bedingung wahr ist
' Loop Until: Der Anweisungsblock wird wiederholt, bis die Bedingung wahr ist
Loop {While | Until} condition = True
Die Anweisung Do…Loop führt eine Schleife aus, solange oder bis eine bestimmte Bedingung Wahr ist. Die Bedingung zum Verlassen der Schleife muss entweder nach der Anweisung Do oder Loop eingegeben werden. Die obigen Beispiele sind gültige Kombinationen.
condition: Ein numerischer oder einfacher Vergleichsausdruck, der entweder True oder False ergibt.
statements: Anweisungen, die Sie wiederholen möchten, solange oder bis eine Bedingung True ist.
Um die Schleife bedingungslos zu verlassen, verwenden Sie die Anweisung Exit Do. Sie können diese Anweisung an einer beliebigen Position innerhalb einer Anweisung Do…Loop einfügen. Sie können eine Abbruchbedingung auch mit einer Struktur If…Then wie folgt definieren:
Do...
statements
If condition = True Then Exit Do
statements
Loop...
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