IBM Lotus Symphony


Put-lause [käytönaikainen]

Kirjoittaa tietueen suhteelliseen tiedostoon tai tavusarjan binaaritiedostoon.

Katso myös: Get-lause

Syntaksi:

Put [#] FileNumber As Integer, [position], Variable

Parametrit:

FileNumber: Mikä tahansa sen tiedoston määrittävä kokonaislukulauseke, johon haluat kirjoittaa tiedot.

Position: Suhteellisissa tiedostoissa (hajasaantitiedostoissa) Position ilmaisee kirjoitettavan tietueen numeron.

Binaaritiedostoissa (binaarinen käsittely) Position ilmaisee sen tavun paikan tiedostossa, josta kirjoitus aloitetaan.

Variable: Tiedostoon kirjoitettavan muuttujan nimi.

Suhteellisia tiedostoja koskeva huomautus: Jos muuttujan sisältö ei vastaa Open-lauseen Len-lauseessa määritettyä tietueen pituutta, järjestelmä täyttää uuden kirjoitetun tietueen lopun ja seuraavan tietueen väliin jäävän tilan kirjoitettavaan tiedostoon aiemmin tallennetuilla tiedoilla.

Binaaritiedostoja koskeva huomautus: Järjestelmä kirjoittaa muuttujien sisällön määritettyyn paikkaan ja lisää tiedoston osoittimen suoraan viimeisen tavun jälkeen. Tietueiden väliin ei jää tyhjää tilaa.

Esimerkki:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Tähän on määritettävä muunnoslaji

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Paikka, johon aletaan kirjoittaa

Put #iNumber,, "Tämä on ensimmäinen tekstirivi" REM Täyttää rivin tekstillä

Put #iNumber,, "Tämä on toinen tekstirivi"

Put #iNumber,, "Tämä on kolmas tekstirivi"

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,,"Tämä on uutta tekstiä"

Get #iNumber,1,sText

Get #iNumber,2,sText

Put #iNumber,20,"Tämä on tietueen 20 teksti"

Print Lof(#iNumber)

Close #iNumber

end sub


Palautetta tuotteesta | Lisäohjeet | Tavaramerkit