IBM Lotus Symphony
|
Skriver en post til en relativ fil eller en bytesekvens til en binær fil.
Se også: Get-setningen
Put [#] Filnummer som heltall, [posisjon], variabel
Filnummer: Et heltallsuttrykk som definerer filen du vil skrive til.
Posisjon: For relative filer (filer med tilfeldig tilgang), nummeret på posten som du vil skrive.
For binære filer (binær tilgang), posisjonen til byten i filen der du vil starte å skrive.
Variabel: Navnet på variabelen du vil skrive til filen.
Merknad for relative filer: Hvis innholdet i denne variabelen ikke samsvarer med lengden på posten som er angitt i Len-leddet i Open-setningen, blir mellomrommet mellom slutten av den nylig skrevne posten og neste post fylt ut med eksisterende data fra filen du skriver til.
Merknad for binære filer: Innholdet i variablene blir skrevet til den angitte posisjonen, og filpekeren settes inn rett etter siste byte. Det blir ikke noe mellomrom mellom postene.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Må være en varianttype
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Posisjon for start av skriving
Put #iNumber,, "Dette er første linje med tekst" REM Fyll linjen med tekst
Put #iNumber,, "Dette er andre linje med tekst"
Put #iNumber,, "Dette er tredje linje med tekst"
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,,"Dette er ny tekst"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Dette er teksten i post 20"
Print Lof(#iNumber)
Close #iNumber
end sub