Do...Loop Statement

གནས་སྟངས་དེ་བདེན་པ་ཡང་ན་གནས་སྟངས་བདེན་པ་ཚུན་སྐབསའཕྲལ་བཀོལ་གསལ་བཤད་དང་ འབད་ བར་ན་གསལ་བཤད་ཚུ་བསྐྱར་ལོག་འབདཝ་ཨིན།

ཚིག་སྦྱོར།

འབད་ [{While | Until} condition = True]

གསལ་བཤད་འགག་ནི།

[ཕྱིར་ཐོན་འབད]

གསལ་བཤད་འགག་ནི།

འཕྲལ་བཀོལ།

ཡང་་ན།

འབད།

གསལ་བཤད་འགག་ནི།

[ཕྱིར་ཐོན་འབད]

གསལ་བཤད་འགག་ནི།

འཕྲལ་བཀོལ་ [{While | Until} condition = True]

ཚད་བཟུང་ཚུ/རྒྱུ་རྫས་ཚུ།

གནས་སྟངས་: ཨང་གྲངས་ཀྱི་ཡང་ན་ཡིག་རྒྱུན་་གསལ་བརྗོད་ དེ་བདེན་པ་ཡང་ན་རྫུན་པ་བརྟག་ཞིབ་འབད་བའི་ག་བསྡུར་འབད་ནི།

གསལ་བཤད་སྡེབ་ཚན་: གསལ་བཤད་ཚུ་དེ་ཁྱོད་ཀྱིས་གནས་སྟངས་དེའི་སྐབས་ཡང་ན་ཚུན་དེ་བདེན་པ།

འབད་...འཕྲལ་བཀོལ་ གསལ་བཤད་དེ་རིངམ་སྦེ་ཡང་ན་ ངེས་ཅན་གནས་སྟངས་དེ་བདེན་པ་ཚུན་ཚོད་འཕྲལ་བཀོལ་ཅིག་ལག་ལེན་འཐབ་ཨིན། འཕྲལ་བཀོལ་ཕྱིར་ཐོན་དོན་ལུ་གནས་སྟངས་དེ་འོག་གི་ འབད་ ཡང་ན་ འཕྲལ་བཀོལ་ གསལ་བཤད་དེ་བཙུགས་དགོཔ་ཨིན། འོག་གི་དཔེར་མཛོད་ཚུ་ནུས་ཅན་མཉམ་མཐུད་ཚུ་་ཨིན:

ཚིག་སྦྱོར།

གནས་སྟངས་ = བདེན་པའི་སྐབས་འབད།

...གསལ་བཤད་འགག་ནི།

འཕྲལ་བཀོལ།

གསལ་བཤད་བཀག་དམ་ འབད་སྐབས་དང་ འཕྲལ་བཀོལ་གསལ་བཤད་བར་ན་དེ་གནས་སྟངས་དེ་བདེན་པ་སྦེ་བསྐྱར་ལོགཔ་ཨིན།

གནས་སྟངས་ = བདེན་པ་ཚུན་འབད།

...གསལ་བཤད་འགག་ནི།

འཕྲལ་བཀོལ།

གསལ་བཤད་བཀག་དམ་་འབད་ཚུན་ཚོད་ དང་ འཕྲལ་བཀོལ་གསལ་བཤད་བར་ན་དེ་ གནས་སྟངས་དེ་གནས་སྟངས་རྫུན་མ་སྦེ་བསྐྱར་ལོག་འབད་ཡོདཔ་ཨིན།

འབད།

...གསལ་བཤད་འགག་ནི།

གནས་སྟངས་ = བདེན་པའི་སྐབས་འཕྲལ་བཀོལ་འབད།

གསལ་བཤད་བཀག་དམ་ འབད་དང་ འཕྲལ་བཀོལ་གསལ་བཤད་ཚུ་བར་ན་གནས་སྟངས་དེ་བདེན་པ་སྦེ་སླར་ལོགཔ་ཨིན།

འབད།

...གསལ་བཤད་འགག་ནི།

གནས་སྟངས་ = བདེན་པ་ཚུན་འཕྲལ་བཀོལ་འབད།

གསལ་བཤད་སྡེབ་ཚན་ འབད་དང་་གསལ་བཤད་ཚུ་འཕྲལ་བཀོལ་བར་ན་གནས་སྟངས་དེ་བདེན་པ་ཚུན་ཡང་བསྐྱར་འབདཝ་ཨིན།

ཕྱིར་ཐོན་འབད་ གསལ་བཤད་དེ་ འཕྲལ་བཀོལ་དེ་གནས་སྟངས་མེདཔ་ལུ་ལག་ལེན་འཐབ། ཁྱོད་ཀྱིས་འ་ནི་གསལ་བཤད་དེ་ འབད་...འཕྲལ་བཀོལ་ གསལ་བཤད་ནང་ག་སྟོ་ལུ་ར་ཁ་སྐོང་འབད་བཏུབ། ཁྱོད་ཀྱིས་ད་རུང་ཡང་ ཨིན་པ་ཅིན་...དེ་ལས་ གཞི་བཀོད་འོག་ལུ་བཟུམ་སྦེ་ལག་ལེན་འཐབ་དེ་ཕྱིར་ཐོན་ཅིག་ངེས་འཛིན་འབད་བཏུབ:

འབད...

གསལ་བཤད་ཚུ།

གནས་སྟངས་ = བདེན་པ་ཨིན་པ་ཅིན་དེ་ལས་ཕྱིར་ཐོན་འབད།

གསལ་བཤད་ཚུ།

ལུང་ཐག...

དཔེར་བརྗོད།


Sub ExampleDoLoop
Dim sFile As String
Dim sPath As String
    sPath = "c:\"
    sFile = Dir$( sPath ,22)
    If sFile <> "" Then
        Do
            MsgBox sFile
            sFile = Dir$
        Loop Until sFile = ""
    End If
End Sub

Please support us!