Anweisung Do...Loop

Repeats the statements between the Do and the Loop statement while the condition is True or until the condition becomes True.

Syntax:

Do statement


  Do {While | Until} condition = True
  ' Do While: The statement block is repeated as long as the condition is true
  ' Do Until: The statement block is repeated as long as the condition is false
     statements
     [Exit Do]
     statements
  Loop

Do...Loop statement


  Do
     statements
     [Exit Do]
     statements
  ' Loop While: The statement block repeats as long as the condition is true
  ' Loop Until: The statement block repeats until the condition is true
  Loop {While | Until} condition = True

Parameter:

The Do...Loop statement executes a loop as long as, or until, a certain condition is True. The condition for exiting the loop must be entered following either the Do or the Loop statement. The above examples are valid combinations.

condition: A comparison, numeric or Basic expression, that evaluates to either True or False.

statements: Statements that you want to repeat while or until a condition is True.

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...

Beispiel:


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

For, Select Case or While statements

Iif or Switch functions

Bitte unterstützen Sie uns!