IBM Lotus Symphony


Sætningen Put [Runtime]

Skriver en post i en relativ fil eller en sekvens af byte i en binær fil.

Se også: Sætningen Get

Syntaks:

Put [#] Filnummer As Integer, [position], Variabel

Parametre:

Filnummer: Et heltalsudtryk, som definerer den fil, du vil skrive til.

Position: For relative filer (filer med direkte adgang (Random)) er det nummeret på den post, du vil skrive.

For binære filer (Binary) er det positionen for den byte i filen, hvor du vil begynde skrivningen.

Variabel: Navn på den variabel, du vil skrive til filen.

Bemærkning om relative filer: Hvis indholdet af variablen ikke svarer til længden på den post, der er angivet i udtrykket Len i sætningen Open, udfyldes mellemrummet mellem slutningen på den netop skrevne post og den næste post med eksisterende data fra den fil, der skrives i.

Bemærkning om binære filer: Variablernes indhold skrives på den angivne position, og filmarkøren placeres lige efter den sidste byte. Der indsættes ikke mellemrum mellem posterne.

Eksempel:

Sub DirekteAdgangEksempel

Dim iNummer As Integer

Dim sTekst As Variant REM Skal være typen Variant

Dim aFil As String

aFil = "c:\data.txt"

iNummer = Freefile

Open aFil For Random As #iNummer Len=32

Seek #iNummer,1 REM Placér for at starte skrivning

Put #iNummer,, "Dette er første linje tekst" REM Udfyld linje med tekst

Put #iNummer,, "Dette er anden linje tekst"

Put #iNummer,, "Dette er tredje linje tekst"

Seek #iNummer,2

Get #iNummer,,sTekst

Print sTekst

Close #iNummer

iNummer = Freefile

Open aFil For Random As #iNummer Len=32

Get #iNummer,2,sTekst

Put #iNummer,,"Dette er ny tekst"

Get #iNummer,1,sTekst

Get #iNummer,2,sTekst

Put #iNummer,20,"Dette er teksten i post nr. 20"

Print Lof(#iNummer)

Close #iNummer

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker