IBM Lotus Symphony
|
Læser en post fra en relativ fil eller en sekvens af byte fra en binær fil og lægger værdien i en variabel.
Se også: Sætningen PUT
Get [#] Filnummer As Integer, [Position], Variabel
Filnummer: Et heltalsudtryk, som fastlægger filnummeret.
Position: For filer, der åbnes i tilstanden Random, er Position nummeret på den post, der skal læses.
For filer, der åbnes i tilstanden Binary, er Position den byteposition i filen, hvor læsningen skal begynde.
Hvis Position udelades, bruges den aktuelle position eller den aktuelle datapost i filen.
Variabel: Navnet på den variabel, der skal læses. Du kan bruge alle variabeltyper bortset fra objektvariabler.
Sub DirekteAdgangEksempel
Dim iNummer As Integer
Dim sTekst As Variant REM Skal være 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 i starten
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