LibreOffice 7.2 Hjelp
Les ein post frå ei relativ fil eller ein sekvens frå ei binærfil inn i ein variabel.
Sjå også PUT-uttrykk
Get [#]fileNum, [recordNum|filePos], variabel
fileNum: Kva heiltal som helst som bestemmer filnummeret.
recordNum: For filer opna i Random-modus er recordNum nummeret på den posten du ønskjer å lesa.
For filer opna i Binary-modus er filePos byte-posisjonen i fila der lesinga byrjar.
Viss recordNum og filePos er sløyfa, vert den gjeldande posisjonen eller den gjeldande dataposten i fila brukt.
variable: Namnet på variabelen som skal lesast. Du kan bruka kva variabeltype som helst, bortsett frå objektvariablar.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' MÃ¥ vera ein variant
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Startposisjonen
Put #iNumber,, "Dette er den første tekstlinja" ' Fyll linja med tekst
Put #iNumber,, "Dette er den andre tekstlinja"
Put #iNumber,, "Dette er den tredje tekstlinja"
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 ein 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
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' MÃ¥ vera ein variant
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Startposisjonen
Put #iNumber,, "Dette er den første tekstlinja" ' Fyll linja med tekst
Put #iNumber,, "Dette er den andre tekstlinja"
Put #iNumber,, "Dette er den tredje tekstlinja"
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 ein 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