While...Wend Statement

āϝāĻ–āύ āĻāĻ•āϟāĻŋ āĻĒā§āϰ⧋āĻ—ā§āϰāĻžāĻŽā§‡ āĻāĻ•āϟāĻŋ While āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟ āĻĒāĻžāĻ“ā§ŸāĻž āϝāĻžā§Ÿ, āĻāϟāĻŋ āĻļāĻ°ā§āϤ āĻĒāϰ⧀āĻ•ā§āώāĻž āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āϝāĻĻāĻŋ āĻļāĻ°ā§āϤāϟāĻŋ False āĻšā§Ÿ, āϤāĻžāĻšāϞ⧇ āĻĒā§āϰ⧋āĻ—ā§āϰāĻžāĻŽāϟāĻŋ āϏāϰāĻžāϏāϰāĻŋ Wend āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟ āĻ…āύ⧁āϏāϰāĻŖ āĻ•āϰāĻžāϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ āϚāĻžāϞāĻžāύ⧋ āĻšā§ŸāĨ¤ āϝāĻĻāĻŋ āĻļāĻ°ā§āϤāϟāĻŋ True āĻšā§Ÿ, āϤāĻžāĻšāϞ⧇ āĻĒā§āϰāĻ—ā§āϰāĻžāĻŽā§‡ Wend āϖ⧁āρāĻœā§‡ āύāĻž āĻĒāĻžāĻ“ā§ŸāĻž āĻĒāĻ°ā§āϝāĻ¨ā§āϤ āϞ⧁āĻĒāϟāĻŋ āϚāĻžāϞāĻŋā§Ÿā§‡ āϝāĻžā§Ÿ āĻāĻŦāĻ‚ āϤāĻžāϰāĻĒāϰ āĻ¸ā§āĻĨāĻžāύ āĻĒāϰāĻŋāĻŦāĻ°ā§āϤāύ āĻ•āϰ⧇ While āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āĻĒā§‚āĻ°ā§āĻŦ⧇ āĻĢāĻŋāϰ⧇ āϝāĻžā§ŸāĨ¤ āϝāĻĻāĻŋ āĻļāĻ°ā§āϤāϟāĻŋ āϤāĻ–āύāĻ“ True āĻšā§Ÿ, āϤāĻžāĻšāϞ⧇ āϞ⧁āĻĒāϟāĻŋ āĻĒ⧁āύāϰāĻžā§Ÿ āϚāĻžāϞāĻžāύ⧋ āĻšā§ŸāĨ¤

Do...Loop āĻāϰ āĻŽāϤ āύ⧟, āφāĻĒāύāĻŋ āĻāĻ•āϟāĻŋ While...Wend āϞ⧁āĻĒ āĻĒā§āϰāĻ¸ā§āĻĨāĻžāύ āĻāϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ āĻŦāĻžāϤāĻŋāϞ āĻ•āϰāϤ⧇ āĻĒāĻžāϰ⧇āύ āύāĻžāĨ¤ āĻ•āĻ–āύāĻ“ While...Wend āϞ⧁āĻĒ GoTo āĻĻā§āĻŦāĻžāϰāĻž āĻŦāĻžāϤāĻŋāϞ āĻ•āϰāĻŦ⧇ āύāĻž, āϝ⧇āĻšā§‡āϤ⧁ āĻāϟāĻŋ āϰāĻžāύ āϟāĻžāχāĻŽ āĻ¤ā§āϰ⧁āϟāĻŋāϰ āĻ•āĻžāϰāĻŖ āĻšāϤ⧇ āĻĒāĻžāϰ⧇āĨ¤

A Do...Loop is more flexible than a While...Wend.

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:


While Condition [Statement] Wend

āωāĻĻāĻžāĻšāϰāĻŖ:


  Sub ExampleWhileWend
  Dim stext As String
  Dim iRun As Integer
      sText ="This is a short 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