IBM Lotus Symphony
|
Kirjoittaa tietueen suhteelliseen tiedostoon tai tavusarjan binaaritiedostoon.
Katso myös: Get-lause
Put [#] FileNumber As Integer, [position], Variable
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.
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