IBM Lotus Symphony
|
Načíta záznam z relatívneho súboru alebo postupnosť bajtov z binárneho súboru do premennej.
Pozrite si tiež: Príkaz PUT
Get [#] Číslo_súboru ako celé číslo, [Pozícia], Premenná
Číslo_súboru: Ľubovoľný celočíselný výraz, ktorý určuje číslo súboru.
Pozícia: Pre súbory otvorené v režime Random, je Pozícia číslo záznamu, ktoré chcete čítať.
Pre súbory otvorené v režime Binary, je Pozícia pozícia bajtu v súbore, kde začne čítanie.
Ak je Pozícia vynechaná, použije sa aktuálna pozícia alebo aktuálny dátový záznam súboru.
Premenná: Názov premennej pre načítanie. S výnimkou premenných objektov môžete použiť ľubovoľný typ premennej.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Musí byť variant
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Pozícia na začiatku
Put #iNumber,, "Toto je prvý riadok textu" REM Vyplniť riadok textom
Put #iNumber,, "Toto je druhý riadok textu"
Put #iNumber,, "Toto je tretí riadok textu"
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,,"Toto je nový text"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Toto je text v zázname 20"
Print Lof(#iNumber)
Close #iNumber
end sub