IBM Lotus Symphony


Get-setningen [kjøretid]

Leser en post fra en relativ fil, eller en bytesekvens fra en binær fil, til en variabel.

Se også: PUT-setningen

Syntaks:

Get [#] Filnummer som heltall, [Posisjon], Variabel

Parametere:

Filnummer: Et heltallsuttrykk som bestemmer filnummeret.

Posisjon: For filer som er åpnet i Random-modus (Tilfeldig), er Posisjon nummeret til posten du vil lese.

For filer som er åpnet i binær modus, er Posisjon byteposisjonen i filen der lesingen starter.

Hvis Posisjon utelates, brukes gjeldende posisjon eller gjeldende datapost for filen.

Variabel: Navnet på variabelen som skal leses. Med unntak av objektvariabler kan du bruke hvilken som helst variabeltype.

Eksempel:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Må være en variant

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Posisjon ved begynnelsen

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 en 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