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

Bonvolu subteni nin!