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