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