Module
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