Get Statement

Legas rikordon el relativa dosiero, aŭ sekvencon da bajtoj el duuma dosiero, en variablon.

Vidu ankaŭ: PUT-ordono

Sintakso:

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

Parametroj:

FileNumber: Entjera esprimo kiu difinas la dosieran numeron.

Position: por dosieroj malfermitaj laŭ reĝimo Random (hazarda), Position estas la nombro de la rikordo legota.

Por dosieroj malfermitaj laŭ reĝimo Binary (duuma), Position estas la bajta pozicio en la dosiero kie komenci legi.

Se ellasiĝas Position, uziĝos la aktuala pozicio aŭ la aktuala datuma rikordo de la dosiero.

Variable: Nomo de la variablo legota. Escepte de objektaj variabloj, oni povas uzi iun ajn variablan tipon.

Ekzemplo:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Devas esti subtipo

Dim aFile As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Random As #iNumber Len=32

    Seek #iNumber,1 REM Lokigu ĉe la komenco

    Put #iNumero,, "Jen la unua linio de teksto" REM Plenigu linion per teksto

    Put #iNumero,, "Jen la dua linio de teksto"

    Put #iNumero,, "Jen la tria linio de teksto"

    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,,"Jen nova teksto"

    Get #iNumber,1,sText

    Get #iNumber,2,sText

    Put #iNumero,20,"Jen la teksto en rikordo 20"

    Print Lof(#iNumber)

    Close #iNumber

End Sub