Instructie Get

Leest een record uit een relationeel bestand of een reeks van bytes uit een binair bestand in een variabele in.

Zie ook: PUT-instructie

Syntaxis:

Diagram instructie Get

Get [#]fileNum, [recordNum|filePos], variabele

Parameters:

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.

Voorbeeld:

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

Instructie Open

Instructie Put#

Instructie Close