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:

Diagramm zur Anweisung Get

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

Anweisung Open

Anweisung Put#

Anweisung Close