IBM Lotus Symphony
|
Zapiše zapis v relativno datoteko ali zaporedje bajtov v dvojiško datoteko.
Glejte tudi: Stavek Get
Put [#] FileNumber As Integer, [position], Variable
FileNumber: Katerikoli celoštevilski izraz, ki definira datoteko, v katero želite pisati.
Position: Za relativne datoteke (datoteke z naključnim dostopom) je to številka zapisa, ki ga želite zapisati.
Za dvojiške datoteke (dvojiški dostop) je to položaj bajta v datoteki, kjer želite začeti pisanje.
Variable: Ime spremenljivke, ki jo želite zapisati datoteki.
Opomba za relativne datoteke: Če se vsebina te spremenljivke ne ujema z dolžino zapisa, ki je podan v členu Len stavka Open, se prostor med koncem novo zapisanega zapisa in naslednjim zapisom zapolni z obstoječimi podatki iz datoteke, v katero zapisujete.
Opomba za dvojiške datoteke: Vsebina spremenljivk se zapiše na podani položaj, datotečni kazalec pa se vstavi neposredno za zadnjim bajtom. Med zapisi ni praznega prostora.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Must be a variant type
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Position to start writing
Put #iNumber,, "This is the first line of text" REM Fill line with text
Put #iNumber,, "This is the second line of text"
Put #iNumber,, "This is the third line of text"
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,,"To je novo besedilo"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"To je besedilo v zapisu 20"
Print Lof(#iNumber)
Close #iNumber
end sub