Ausgabe auf dem Bildschirm Zeilenweise Lesen und Schreiben von Dateien Dateien Lesen und Schreiben | Information über Dateien und Verzeichnisse Operationen auf Dateien und Verzeichnissen Lesen und Schreiben von TAR- und Zip-Archiven Lesen und Schreiben von TBox-Archiven |
# Beispielprogramm zu allen Funktionen dieser Kategorie
AZUR () HREF="explizit/.html">
Print ("Hallo Welt.")
Print ()
Print ("Datei beschreiben ...")
i := 1
PrintFile ("printtest.dat", FALSE, "Zeile ", i, ": Hallo Welt.")
i := i + 1
text := "Dieser Text steht in einer Datei."
PrintFile ("printtest.dat", TRUE, "Zeile ", i, ": ", text)
Print ("Inhalt der Datei ausgeben ...")
WHILE (NOT EndOfFile ("printtest.dat"))
zeile := ReadLine ("printtest.dat")
Print (zeile)
ENDWHILE
Print ("Datei zur\ucksetzen ...")
Rewind ("printtest.dat")
Print ("Zeile lesen und ausgeben ...")
zeile := ReadLine ("printtest.dat")
Print (zeile)
page := NewPage (80, DINA4, PORTRAIT)
TextCenterOnPage (page, 4, "Die Seite", BOLD+BIG)
PrintPage (page, "printtest.ps", "PS")
END
toposoft GmbH 15. Mai 2014