Lof Function

བཱའིཊིསི་ནང་ཡིག་སྣོད་ཀུན་གྱི་ཚད་འདི་སླར་ལོགཔ་ཨིན།

ཚིག་སྦྱོར:


ཨེལ་གྱི་ (FileNumber)

གནས་གོང་སླར་ལོག:

རིངམོ།

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

གསལ་བཤད་ཁ་ཕྱེ།

ཊི་ཨའི་པི་ངོས་དཔར།

ཡིག་སྣོད་ཀྱི་རིང་ཚད་འདི་ལེན་ནི་ལུ་ཁ་མ་ཕྱེ་བ་ཅིན་ ཡིག་སྣོད་ལིན ལས་འགན་ལག་ལེན་འཐབ།


Error codes:

༥ ནུས་མེད་བྱ་སྒོའི་ལམ་ལུགས་བོད་བརྡ་

༥༢ བྱང་ཉེས་ཡིག་སྣོད་མིང་ཡང་ན་ཨང་གྲངས་

དཔེར་བརྗོད:


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

Please support us!