IBM Lotus Symphony


Príkaz Put [Runtime]

Zapíše záznam do relatívneho súboru alebo sekvenciu bajtov do binárneho súboru.

Pozrite si tiež: Príkaz Get

Syntax:

Put [#] Číslo_súboru ako celé číslo, [Pozícia], Premenná

Parametre:

Čí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.

Príklad:

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


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky