Module
Contents
Index 🔎︎

# 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