LibreOffice 7.2 Help
Leest een record uit een relationeel bestand of een reeks van bytes uit een binair bestand in een variabele in.
Zie ook: PUT-instructie
Get [#]fileNum, [recordNum|filePos], variabele
fileNum: Een expressie die het getal aangeeft dat bestandsnummer is.
recordNum: Voor bestanden die in Willekeurige modus zijn geopend, is recordNum het nummer van het record dat u wilt lezen.
Voor bestanden die in Binaire modus zijn geopend, is filePos de bytepositie in het bestand waar het lezen begint.
Als recordNum en filePos worden weggelaten, wordt de huidige positie of het huidige gegevensrecord van het bestand gebruikt.
variabele: Naam van de te lezen variabele. Met uitzondering van objectvariabelen kunt u elk type variabele gebruiken.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sTekst As Variant ' Moet een variant zijn
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Zoek #iGetal,1 REM Positie bij het begin
Put #iGetal,, "Dit is de eerste tekstregel" ' Vul de regel met tekst
Put #iGetal,, "Dit is de tweede tekstregel"
Put #iGetal,, "Dit is de derde tekstregel"
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 #iGetal,, "Dit is een nieuwe tekst"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iGetal, 20, "Dit is de tekst in record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Moet een variant zijn
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iGetal,1 ' Beginpositie voor het zoeken
Put #iGetal, "Dit is de eerste tekstregel" 'Vul de regel met tekst
Put #iGetal,, "Dit is de tweede tekstregel"
Put #iGetal,, "Dit is de derde tekstregel"
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 #iGetal,, "Dit is een nieuwe tekst"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
Put #iGetal, 20, "Dit is de tekst in record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub