Inhalte

# Anweisung Get

Liest einen Datensatz aus einer relativen Datei oder eine Folge von Bytes aus einer binären Datei in eine Variable ein.

Vergleichen Sie auch: Anweisung PUT

### Syntax:

    Get [#]DateiNum, [DSatzNum|DateiPos], Variable

### Parameter:

DateiNum: Ein ganzzahliger Ausdruck, der die Dateinummer festlegt.

DSatzNum: Bei Dateien, die im Zufallsmodus geöffnet wurden, ist DSatzNum die Nummer des Datensatzes, den Sie lesen möchten.

Bei im Binärmodus geöffneten Dateien ist DateiPos die Byte-Position in der Datei, an der das Lesen beginnt.

Wenn DSatzNum und DateiPos weggelassen werden, wird die aktuelle Position bzw. der aktuelle Datensatz der Datei verwendet.

Variable: Name der zu lesenden Variablen. Mit Ausnahme von Objektvariablen können Sie jeden Variablentyp verwenden.

### Beispiel:

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Muss "Variant" sein
          Dim aFile As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' Auf Anfang positionieren
          Put #iNumber, , "Dies ist die erste Zeile Text" ' Zeile mit Text füllen
          Put #iNumber, , "Dies ist die zweite Zeile Text"
          Put #iNumber, , "Dies ist die dritte Zeile Text"
          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 #iNumber, , "Dies ist ein neuer Text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "Dies ist der Text im Datensatz 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Muss "Variant" sein
          Dim aFile As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' Position am Anfang
          Put #iNumber, , "Dies ist die erste Zeile Text" ' Zeile mit Text füllen
          Put #iNumber, , "Dies ist die zweite Zeile Text"
          Put #iNumber, , "Dies ist die dritte Zeile Text"
          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 #iNumber, , "Dies ist ein neuer Text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "Dies ist der Text im Datensatz 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

Verwandte Themen

Anweisung Open

Anweisung Put#

Anweisung Close