IBM Lotus Symphony


Sætningen Get [Runtime]

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

Syntaks:

Get [#] Filnummer As Integer, [Position], Variabel

Parametre:

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.

Eksempel:

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


Produktfeedback | Yderligere dokumentation | Varemærker