IBM Lotus Symphony


Stavek Put [izvajalno okolje]

Zapiše zapis v relativno datoteko ali zaporedje bajtov v dvojiško datoteko.

Glejte tudi: Stavek Get

Skladnja:

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

Parametri:

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.

Primer:

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


Povratne informacije o izdelku | Dodatna dokumentacija | Blagovne znamke