Line Input # Statement

འགྱུར་ཅན་ནང་ཡིག་སྣོད་འབྱུང་རིམ་ལས་ཡིག་རྒྱུན་ཚུ་ལྷགཔ་ཨིན།

ཚིག་སྦྱོར:

གྱལ་ཨིན་པུཊི #ཡིག་སྣོད་ཨང་་ཧྲིལ་ཨང་བཟུམ་སྦེ་ ཝར་ཡིག་རྒྱུན་བཟུམ་སྦེ།

ཚད་བཟུང་ཚུ་:

ཡིག་སྣོད་ཨང་: ཡིག་སྣོད་ཀྱི་ཨང་དེ་ནང་ཁྱོད་ཀྱིས་ལྷག་ནིཨིན་མི་གནད་སྡུད་དེ་ཡོདཔ་ཨིན། ཡིག་སྣོད་དེ་གཙོ་ཚིག་ ལྷག་ ལག་ལེན་འཐབ་དེ་གིས་ཁ་ཕྱེ་གསལ་བཤད་གཅིག་ཁར་སྔ་གཡར་ནང་ཁ་ཕྱེ་དགོཔ་ཨིན།

var: གྲུབ་འབྲས་མཛོད་ཁང་འགྱུར་ཅན་གྱི་མིང་།

གྱལ་ཨིན་པུཊི་ # གསལ་བཤད་གཅིག་ཁར་ ཁྱོད་ཀྱིས་འགྱུར་ཅན་ནང་ན་ཡིག་སྣོད་ཁ་ཕྱེ་ཅིག་ལས་ཡིག་རྒྱུན་ཚུ་ལྷག་བཏུབ། ཡིག་རྒྱུན་འགྱུར་ཅན་ཚུ་ཆ་མཉམ་ཀེརེ་ཇི་དང་པ་སླར་ལོག་ཚུན་ཚོད་ལུ་གྱལ་རེ་རེ་གི་རེ་རེ་འབད་ (Asc=13) ཡང་ན་ཤོག་གུ་བཙུགས་ཏེ་ (Asc=10)ལྷག་བཏུབ་ཨིན། གྱལ་མཇུག་རྟགས་ཚུ་ཆ་མཉམ་ཡིག་རྒྱུན་འབྱུང་མི་ནང་གྲངས་སུ་མི་རཙིས།

དཔེར་བརྗོད:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Output As #iNumber

    དཔར་བསྐྲུན་འབད#ཨའི་ཨང་ "This is a line of text"

    #ཨའི་ཨང་དཔར་བསྐྲུན་འབད། "This is another line of text"

    Close #iNumber

    iNumber = Freefile

    Open aFile For Input As iNumber

    While Not EOF(iNumber)

        Line Input #iNumber, sLine

        If sLine <>"" Then

            sMsg = sMsg & sLine & chr(13)

        End If

    Wend

    Close #iNumber

    MsgBox sMsg

End Sub