While...Wend Statement

αž“αŸ…β€‹αž–αŸαž›β€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈβ€‹αž‡αž½αž”β€‹αž”αŸ’αžšαž‘αŸ‡β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ While αžœαžΆαžŸαžΆαž€αž›αŸ’αž”αž„β€‹β€‹αž›αž€αŸ’αžαžαžŽαŸ’αžŒΒ αŸ” αž”αŸ’αžšαžŸαž·αž“β€‹αž”αžΎβ€‹αž›αž€αŸ’αžαžαžŽαŸ’αžŒβ€‹αž˜αž·αž“β€‹αž–αž·αž αž€αž˜αŸ’αž˜αžœαž·αž’αžΈβ€‹αž”αž“αŸ’αžβ€‹αžŠαŸ„αž™β€‹αž•αŸ’αž‘αžΆαž›αŸ‹β€‹αž”αž“αŸ’αž‘αžΆαž”αŸ‹β€‹αž–αžΈβ€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ WendΒ αŸ” αž”αžΎβ€‹αž›αž€αŸ’αžαžαžŽαŸ’αžŒβ€‹αž–αž·αž αžšαž„αŸ’αžœαž·αž›β€‹αž‡αž»αŸ†β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž‘αžΆαž›αŸ‹β€‹αžαŸ‚β€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈβ€‹αž‡αž½αž”β€‹ Wend αž αžΎαž™β€‹αž”αž“αŸ’αž‘αžΆαž”αŸ‹β€‹αž˜αž€β€‹αž›αŸ„αžβ€‹αžαŸ’αžšαž‘αž”αŸ‹β€‹αž‘αŸ…β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ While Β αŸ” αž”αžΎβ€‹αž›αž€αŸ’αžαžαžŽαŸ’αžŒβ€‹αž“αŸ…β€‹αžαŸ‚β€‹αž–αž·αž αž“αŸ„αŸ‡β€‹αžšαž„αŸ’αžœαž·αž›β€‹αž‡αž»αŸ†β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž˜αŸ’αžαž„β€‹αž‘αŸ€αžΒ αŸ”

αžαž»αžŸβ€‹αž–αžΈβ€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ Do...Loop αž’αŸ’αž“αž€β€‹αž˜αž·αž“β€‹αž’αžΆαž…β€‹αž”αŸ„αŸ‡αž”αž„αŸ‹β€‹αžšαž„αŸ’αžœαž·αž›β€‹αž‡αž»αŸ† While...Wend αžŠαŸ„αž™β€‹αž”αŸ’αžšαžΎ ExitΒ αŸ” αž€αž»αŸ†β€‹αž…αŸαž‰β€‹αž–αžΈβ€‹αžšαž„αŸ’αžœαž·αž›β€‹αž‡αž»αŸ† While...Wend αžŠαŸ„αž™β€‹αž”αŸ’αžšαžΎ GoTo αžŠαŸ„αž™β€‹αžŸαžΆαžšβ€‹αžαŸ‚β€‹αž“αŸαŸ‡β€‹αž’αžΆαž…β€‹αž”αžŽαŸ’αžαžΆαž›β€‹αž²αŸ’αž™β€‹αž˜αžΆαž“β€‹αž€αŸ†αž αž»αžŸβ€‹αž–αŸαž›β€‹αžšαžαŸ‹Β αŸ”β€‹

Do...Loop αž˜αžΆαž“β€‹αž›αž€αŸ’αžαžŽαŸˆβ€‹αžšαžŸαŸ‹β€‹αžšαžœαžΎαž€β€‹αž‡αžΆαž„ 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!