IBM Lotus Symphony
|
Skriver en post i en relativ fil eller en sekvens af byte i en binær fil.
Se også: Sætningen Get
Put [#] Filnummer As Integer, [position], Variabel
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.
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