Lof Function
བཱའིཊིསི་ནང་ཡིག་སྣོད་ཀུན་གྱི་ཚད་འདི་སླར་ལོགཔ་ཨིན།
ཚིག་སྦྱོར:
ཨེལ་གྱི་ (FileNumber)
གནས་གོང་སླར་ལོག:
རིངམོ།
ཚད་བཟུང་ཚུ་:
གསལ་བཤད་ཁ་ཕྱེ།
ཡིག་སྣོད་ཀྱི་རིང་ཚད་འདི་ལེན་ནི་ལུ་ཁ་མ་ཕྱེ་བ་ཅིན་ ཡིག་སྣོད་ལིན ལས་འགན་ལག་ལེན་འཐབ།
དཔེར་བརྗོད:
Sub ExampleRandomAccess
Dim iNumber As Integer
མདངས་གྲིབ་ཨེསི་ཚིག་ཡིག་མི་མཐུན་པ་བཟུམ་སྦེ་ཨར་ཨི་ཨེམ་དེ་མི་མཐུན་པ་དགོཔ་ཨིན།
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
#ཨའི་ཨང་ ༡་ རིམ་གནས་ས་འགོ་བཙུགས་ལུ།
#ཨའི་ཨང་བཙུགས "This is the first line of text" REM Fill with text
བཙུགས#ཨའི་ཨང་ "This is the second line of text"
བཙུགས #ཨའི་ཨང་ "This is the third line of text"
Seek #iNumber,2
Get #iNumber,,sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber,2,sText
#ཨའི་ཨང་བཙུགས"This is a new line of text"
Get #iNumber,1,sText
Get #iNumber,2,sText
བཙུགས#ཨའི་ཨང་ ༢༠ "This is the text in record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub