IBM Lotus Symphony
|
Zapíše záznam do relatívneho súboru alebo sekvenciu bajtov do binárneho súboru.
Pozrite si tiež: Príkaz Get
Put [#] Číslo_súboru ako celé číslo, [Pozícia], Premenná
Číslo_súboru: Ľubovoľný celočíselný výraz, ktorý definuje súbor, do ktorého chcete zapisovať.
Pozícia: Pre relatívne súbory (súbory s náhodným prístupom) číslo záznamu, ktorý chcete zapísať.
Pre binárne súbory (binárny prístup) pozícia bajtu v súbore, kde chcete začať zapisovanie.
Premenná: Názov premennej, ktorú chcete zapísať do súboru.
Poznámka pre relatívne súbory: Ak sa obsah tejto premennej nezhoduje s dĺžkou záznamu, ktorý je špecifikovaný v klauzule Len príkazu Open, medzera medzi koncom novo zapísaného záznamu a nasledujúcim záznamom je vyplnená existujúcimi údajmi zo súboru, do ktorého zapisujete.
Poznámka pre binárne súbory: Obsah premenných je zapísaný do špecifikovanej pozície a smerník súboru je vložený priamo za posledný bajt. Medzi záznamami nie je ponechaná žiadna medzera.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Musí byť typ 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čiatok zapisovania
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