TurboPL Referenz

Read

Syntax

Read(FileHandle, Count: Integer): String

Kategorie

Basisfunktion

Erklärung

Bei FileHandle handelt es sich um einen über die Funktion Reset ermittelten Datei-Handle. Das Ergebnis der Funktion ist die gelesene Zeichenkette. Wird über das Ende der Datei hinaus gelesen, so werden entsprechend weniger Zeichen gelesen und die Funktion Eot liefert den Wert 1.

Count gibt an, wieviele Zeichen gelesen werden. Ist er nicht vorhanden, so wird nur ein Zeichen gelesen. Der Wert -1 bedeutet, dass soviele Zeichen gelesen werden, vorhanden sind.

Laufzeitfehler

2        Datei ist defekt oder gesperrt.

37        Der Datei-Handle ist ungültig.

Anmerkung

In den Versionen bis TurboDB Studio 3 waren hier höchstens 255 Zeichen pro Aufruf zugelassen. Diese Beschränkung gilt nicht mehr.

Beispiel

Schnelle Kopie einer Textdatei, wobei die Zeilen auch länger als 255 Zeichen sein können.

VAR Dateiname = "EXTERN.TXT"
VARDEF Eingabe, Ausgabe : Integer
IF Eingabe := Reset(Dateiname) > 0
               IF Ausgabe := Rewrite("A:\"+Dateiname)
                               WHILE NOT Eot(Eingabe)
                                               Write(Ausgabe, Read(Eingabe,255))
                               END
                               Close(Ausgabe)
               ELSE
                               Message("A:\"+Dateiname+" kann nicht erzeugt werden","Fehler",1)
               END
               Close(Eingabe)
ELSE
               Message(Dateiname+" nicht gefunden","Fehler",1)
END

Siehe auch

Close, Eot, ReadLn, Reset, Rewrite, TAppend, Write, WriteLn