IBM Lotus Symphony
|
Leser en post fra en relativ fil, eller en bytesekvens fra en binær fil, til en variabel.
Se også: PUT-setningen
Get [#] Filnummer som heltall, [Posisjon], Variabel
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.
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