Inhoud
Index 🔎︎

# 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:

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

### 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

Verwante onderwerpen

Open-instructie

Instructie Put#

Instructie Close