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