Get Statement

ལེན་ [#] ཡིག་སྣོད་ཨང་ཧྲིལ་ཨང་ [Position]  འགྱུར་ཅན་བཟུམ་སྦེ །

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" རིམ་ ཚིག་ཡིག་གཅིག་ཁར་གྱལ་བཀང་།

    བཙུགས#ཨའི་ཨང་ "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 text"

    Get #iNumber,1,sText

    Get #iNumber,2,sText

    བཙུགས#ཨའི་ཨང་ ༢༠ "This is the text in record 20"

    Print Lof(#iNumber)

    Close #iNumber

End Sub