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

Please support us!