LibreOffice 7.1 Hjælp
Læser en datapost fra en relativ fil, eller en sekvens af bytes fra en binær fil, til en variabel.
Se også:Put-sætning
Get [#]fileNum, [recordNum|filePos], variable
fileNum: Ethvert heltalsudtryk, der bestemmer filnummeret.
recordNum: Ved filer åbnet i Random-tilstand er recordNum nummeret på den post, du vil læse.
Ved filer, der er åbnet i binær tilstand er filePos den byte-position i filen, hvor læsningen starter.
Hvis recordNum og filePos er udeladt, bruges den aktuelle placering eller filens aktuelle datapost.
variable: Navnet på den variabel, der skal læses. Bortset fra objektvariablerne kan du bruge enhver variabeltype.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Skal 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 Position ved begyndelse
Put #iNumber,, "Dette er den første linje tekst" REM Fyld linje med tekst
Put #iNumber,, "Dette er den anden tekstlinje"
Put #iNumber,, "Dette er den tredje tekstlinje"
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 datapost 20"
Print Lof(#iNumber)
Close #iNumber
End Sub