IBM Lotus Symphony


Put-setningen [kjøretid]

Skriver en post til en relativ fil eller en bytesekvens til en binær fil.

Se også: Get-setningen

Syntaks:

Put [#] Filnummer som heltall, [posisjon], variabel

Parametere:

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.

Eksempel:

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


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker