Get-instructie

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:

Get [#] BestandsNummer As Integer, [Position], Variabele

Bestandsnummer: Elke Integer die het bestandsnummer bepaalt.

Positie: Voor bestanden geopend in Random-modus, is Positie het nummer van de record die moet worden gelezen.

Voor bestanden die in binaire modus geopend zijn, is Positie de bytepositie binnen het bestand waar het lezen begint.

Als Positie wordt weggelaten, wordt de huidige positie of de actuele gegevensrecord van het bestand gebruikt.

Variabele: Naam van de variabele die moet worden gelezen. Met uitzondering van objectvariabelen, kan elk type variabele worden gebruikt.

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sTekst As Variant ' Moet een variant zijn

Dim aFile As String

    aFile = "c:\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 regel tekst" ' Vult regel met tekst

    Put #iGetal,, "Dit is de tweede regel tekst"

    Put #iGetal,, "Dit is de derde regel 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 #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