FreeFile Function
ཡིག་སྣོད་ཁ་ཕྱེ་ནིའི་དོན་ལུ་ཤུལ་མམ་གྱི་ཐོབ་ཚུགས་པའི་ཡིག་སྣོད་ཨང་དེ་སླར་ལོགཔ་ཨིན། ཡིག་སྣོད་ཨང་ལག་ལེན་འཐབ་མི་ཡིག་སྣོད་ད་ལྟོ་ཁ་ཕྱེ་ཡིག་སྣོད་ཀྱིས་ཧེ་མ་ལས་ལག་ལེན་མ་འཐབ་མི་ལུ་ཁ་ཕྱེ་ནིའི་དོན་ལུ་འ་ནི་ལས་འགན་དེ་ལག་ལེན་འཐབ།
ཚིག་སྦྱོར:
FreeFile
གནས་གོང་སླར་ལོག:
ཧྲིལ་ཨང་།
ཚད་བཟུང་ཚུ་:
འ་ནི་ལས་འགན་དེ་ཁ་ཕྱེ་གསལ་བཤད་ཀྱི་གདོང་ཁ་དེ་འཕྲལ་ལས་ལག་ལེན་འཐབ་བཏུབ་ཨིན། རང་དབང་ཡིག་སྣོད་ཀྱིས་ཤུལ་མམ་ཐོབ་ཚུགས་པའི་ཡིག་སྣོད་ཨང་དེ་སླར་ལོགཔ་ཨིན་རུང་་ ཟུར་གསོག་མི་འབད།
དཔེར་བརྗོད:
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "c:\data.txt"
sMsg = ""
iNumber = Freefile
Open aFile For Output As #iNumber
དཔར་བསྐྲུན་ #ཨའི་ཨང་ "First line of text"
དཔར་བསུཔ་ #ཨའི་ཨང་། "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