Contents
Index 🔎︎

# Get Statement

འབྲེལ་ཡོད་ཡིག་ཆའི་ནང་ཐོ་འགོད་གཅིག་ཀློག་པའམ་ཡང་ན་གཉིས་གོང་སྒྲིལ་ཡིག་ཆའི་ནང་ཡིག་ཚེགས་རིམ་སྟར་གཅིག་ཀློག་པ་མ་ཟད་དེ་འགྱུར་ཚད་གཅིག་ནང་འཇོག

ཁྱེད་ཀྱིས་གཟིགས་རོགས་ PUT རྗོད་པ་

## བརྡ་འཕྲོད་

    Get [#] FileNumber As Integer, [Position], Variable

## ཁུགས་གྲངས་

FileNumber:ཡིག་ཆའི་ཨང་སྒྲིག་གི་ཧྲིལ་གྲངས་མཚོན་ཚུལ་གཏན་འཁེལ་བྱས།

Position Random མ་ཚུལ་གྱིས་ཁ་ཕྱེ་བའི་ཡིག་ཆ་ Position ནི་ཀློག་ལེན་ཟིན་བྲིས་ཀྱི་གྲངས་ཚད་ཡིན།

Binary མ་ཚུལ་ཁ་ཕྱེ་བའི་ཡིག་ཆའི་ Position དངོས་གནས་ཡིག་ཆའི་ནང་ཀློག་འགོ་ཚུགས་པའི་ཡིག་ཚེགས་གནས་ས་།

གལ་སྲིད་གཏན་མ་འཁེལ་ན་ Position ཡིག་ཆའི་མིག་སྔའི་གཞི་གྲངས་ཐོ་འགོད་དང་ཡང་ན་མིང་སྔའི་གནས་ས་བེད་སྤྱོད།

Variable:ཀློག་པའི་འགྱུར་ཚད་མིང་བྱ་ཡུལ་འགྱུར་ཚད་ཕུད་པའི་འགྱུར་ཚད་རིགས་གང་རུང་ཞིག་བེད་སྤྱོད་ཆོག

## དཔེ་གཞི་

    Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sText As Variant REM ངེས་པར་དུ་འགྱུར་ཚད་ཡིན་དགོས་
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Seek #iNumber,1 REM འགོ་འཛུགས་གནས་ས་
        Put #iNumber,, "This is the first line of text" REM ཡི་གེ་སྐོང་གསབ་ཕྲེང་སྤྱོད་
        Put #iNumber,, "This is the second line of text"
        Put #iNumber,, "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
        Put #iNumber,,"This is a new text"
        Get #iNumber,1,sText
        Get #iNumber,2,sText
        Put #iNumber,20,"This is the text in record 20"
        Print Lof(#iNumber)
        Close #iNumber
    End Sub