While...Wend Statement

ལས་རིམ་ཅིག་གིས་གནས་སྐབས་གསལ་བཤད་ཅིག་གདོང་ཐུག་འབྱུངམ་ད་ དེ་གིས་གནས་སྟངས་དེ་བརྟག་ཞིབ་འབདཝ་ཨིན། གནས་སྟངས་དེ་རྫུན་མ་ཅིན་ལས་རིམ་དེ་གིས་་ཐད་ཀར་དུ་ཝིནཌི་གསལ་བཤད་རྗེས་སུ་གྲངས་ནི་འཕྲོ་མཐུདཔ་ཨིན། གནས་སྟངས་དེ་བདེན་པ་ཅིན་ འཕྲལ་བཀོལ་དེ་ལས་རིམ་གྱིས་ཝིནཌི་མ་ཐོབ་ཚུན་ཚོད་ལག་ལེན་འཐབ་ཡོདཔ་དང་ དེ་ལས་ལོག་ གནས་སྐབས་གསལ་བཤད་ལུ་མཆོངམ་ཨིན། གནས་སྟངས་དེ་ད་ལྟོ་ཡང་བདེན་པ་ཅིན་ འཕྲལ་བཀོལ་དེ་ལོག་ལག་ལེན་འཐབ་ཡོདཔ་ཨིན།

འདྲ་བཤོལ་ འབད་...འཕྲལ་བཀོལ་ གསལ་བཤད་དེ་ ཁྱོད་ཀྱིས་ གནས་སྐབས་...ཝིནཌི་ འཕྲལ་བཀོལ་གཅིག་ཁར་ ཕྱིར་ཐོན་ཆ་མེད་གཏང་ནི་མི་འོང་།. ནམ་རང་འབད་རུང་གནས་སྐབས་...ཝིནཌི་འཕྲལ་བཀོལ་གཅིག་ཁར་ འགྱོ་ལུ་ཕྱིར་ཐོན་འབད་ནི་མི་འོང་ འ་ནི་རྒྱ་རྐྱེན་གྱིས་རཱན་ཊའིམ་འཛོལ་བ་འབྱུང་སྲིད།

འཕྲལ་བཀོལ་......འབད་དེ་ཝིནཌ...སྐབས་ལས་ལྷགཔ་བྱ་སྟབས་བདེ་ཏོག་ཏོ་ཡོདཔ་ཨིན།

ཚིག་སྦྱོར:

གནས་སྟངས་ཝིནཌ་ [Statement] སྐབས།

དཔེར་བརྗོད:

འོག་མ་ དཔེར་བརྗོད་ཝཱའིལ་ཝིནཌ།

མདངས་གྲིབ་ཨེསི་ཚིག་ཡིག་ ཡིག་རྒྱུན་བཟུམ་སྦེ།

མདངས་གྲིབ་ཨའི་རཱན་ཧྲིལ་ཨང་བཟུམ་སྦེ།

    ཨེསི་ཚིག་ཡིག ="This is a short text"

    ཨའི་རཱན = ༡

    སྐབས་ལུ་ཨའི་རཱན་ < ལིན་(ཨེསི་ཚིག་ཡིག)

        འབྲིང་མ་ཨིན་པ་ཅིན་(sText,iRun,1 )<> " " དེ་ལས་འབྲིང་མ( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )

        ཨའི་རཱན་ = ཨའི་རཱན + ༡

    ཝིནཌི།

    འཕྲིན་དོན་སྒྲོམ་ཨེསི་ཚིག་ཡིག་ ༠ "Text encoded"

End Sub