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