Module
Contents
Index 🔎︎

# Příkaz While...Wend

Když program narazí na příkaz While, ověří podmínku. Je-li podmínka False, program pokračuje přímo příkazem následujícím za příkazem Wend. Je-li podmínka True, smyčka se provádí, dokud program nenarazí na Wend a poté skočí zpět na While. Je-li podmínka stále True, smyčka se spustí znovu.

Na rozdíl od příkazu Do...Loop, není možné smyčku While...Wend přerušit pomocí Exit. Nikdy neukončujte smyčku While...Wend příkazem GoTo. Pokus o takovou akci způsobí chybu.

Smyčka Do...Loop je flexibilnější než While...Wend.

## Syntaxe:

    While Podmínka [Příkaz] Wend

## Příklad:

    Sub ExampleWhileWend

    Dim stext As String

    Dim iRun As Integer

        sText ="Toto je krátký 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 encoded"

    End Sub