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

Please support us!