Module
Enhavo
Indekso 🔎︎

# 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