IBM Lotus Symphony
|
Liest einen Datensatz aus einer relativen Datei oder eine Folge von Byte aus einer Binärdatei in eine Variable.
Siehe auch: PUT-Anweisung
Get [#] Dateinummer As Integer, [Position], Variable
Dateinummer: Integer-Ausdruck, der die Dateinummer bestimmt.
Position: Für die im Modus "Zufällig" geöffneten Dateien ist Position die Nummer des Datensatzes, den Sie lesen möchten.
Für die im Modus "Binär" geöffneten Dateien ist Position die Byteposition in der Datei, an der der Lesevorgang startet.
Es wird die aktuelle Position oder der aktuelle Datensatz der Datei verwendet, wenn Position nicht angegeben wird.
Variable: Name der zu lesenden Variablen. Mit Ausnahme von Objektvariablen können Sie beliebige Variablentypen verwenden.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Muss eine Variante sein
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Am Anfang positionieren
Put #iNumber,, "Dies ist die erste Textzeile" REM Zeile mit Text füllen
Put #iNumber,, "Dies ist die zweite Textzeile"
Put #iNumber,, "Dies ist die dritte Textzeile"
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 in Datensatz 20"
Print Lof(#iNumber)
Close #iNumber
end sub