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