IBM Lotus Symphony


Get-Anweisung [Laufzeit]

Liest einen Datensatz aus einer relativen Datei oder eine Folge von Byte aus einer Binärdatei in eine Variable.

Siehe auch: PUT-Anweisung

Syntax:

Get [#] Dateinummer As Integer, [Position], Variable

Parameter:

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.

Beispiel:

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


Produktfeedback | Zusätzliche Dokumentation | Marken