[Inhalt] [Zurück] [Weiter] [Thema] [Index]

Ein- und Ausgabe (auf Datei)


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

  • Beispiel




    [Inhalt] [______] [______] [Thema] [Index]

    Beispiel


     
    # 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