IBM Lotus Symphony


While...Wend-Anweisung [Laufzeit]

Wenn das Programm auf eine While-Anweisung trifft, überprüft es die angegebene Bedingung. Ist die Bedingung nicht erfüllt, wird das Programm direkt hinter der Wend-Anweisung fortgesetzt. Ist die Bedingung erfüllt, wird die Schleife ausgeführt, bis das Programm auf die Wend-Anwendung trifft. An diesem Punkt springt das Programm zurück zur While-Anweisung. Wenn die Bedingung dann immer noch erfüllt ist, wird die Schleife ein weiteres Mal ausgeführt usw.

Anders als bei Do...Loop kann eine While...Wend-Schleife nicht mit Exit verlassen werden. Verlassen Sie keinesfalls eine While...Wend-Schleife mit GoTo, da dies zu Laufzeitfehlern führen kann.

In jedem Fall ist die Verwendung von Do...Loop flexibler und damit empfehlenswert.

Syntax:

While Bedingung [Anweisung] Wend

Beispiel:

Sub ExampleWhileWend

Dim stext As String

Dim iRun As Integer

sText ="Das ist ein kleiner Text"

iRun = 1

while iRun < Len(sText)

if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )

iRun = iRun + 1

Wend

MsgBox sText,0,"Text verschlüsselt"

end sub


Produktfeedback | Zusätzliche Dokumentation | Marken