XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Textdateien lesen und schreiben
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Dateien schreiben
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    05.01.2001
-----------------------------------------------
Erklärung:
----------
Dateien ganz einfach mit ein paar Zeilen schreiben.
Verschiedene Modi:
REWRITE = Erstellt Datei (vorhandene wird überschrieben)
APPEND  = Hängt Daten in eine vorhandene Datei an (Prüfung auf vorhandensein ist wichtig!)
RESET   = Lesen einer vorhandenen Datei (Prüfung auf vorhandensein ist wichtig!)
******* Wichtig ******
Wie man Dateien per Reset ausliest, in einer weiteren Demo-Prh von mir
**********************
Es wird hier kein Fenster benötigt.
ASSIGN #1,C:TEST.TXT
das #1 ist die Dateikennung (es können hierdurch mehrere Dateien behandelt werden),
auf welche man im Programm zugreift.
REWRITE #1					Siehe oben Erklärung
Ab hier wird Zeile für Zeile in die (#)Datei geschrieben
Print #1,Diese Datei wurde mit
Print #1,dem Beispielprogramm
Print #1,von Rolf Koch
Print #1,erstellt, um zu
Print #1,demonstrieren, wie
Print #1,Dateien erstellt werden!
Print #1,BIS HIER WAR ES DER BEFEHL REWRITE
CLOSE #1					SEHR WICHTIG - Nicht mehr benötigt Datei schließen!!!
********************************
Hier zur Demo noch ein paar Zeilen per Append anfügen.
Normalerweise immer per @findfirst() (siehe Profanhilfe) zuerst auf
Existenz prüfen.
ASSIGN #2,C:TEST.TXT				Wieder zuerst die Datei zuweisen
APPEND #2					Befehl zum Anhängen von Daten
Ab hier werden in vorhandene Datei Daten angehängt
Print #2,***************************
Print #2,Und so sieht es aus
Print #2,wenn man per Befehl
Print #2,APPEND irgendetwas
Print #2,an die vorhandene Datei
Print #2,anhängt
print #2,***************************
CLOSE #2					WIE IMMER WICHTIG - SONST DATENVERLUST!!!
SHELL Notepad C:TEST.TXT			Zur Kontrolle Datei in Notepad anzeigen.
End						=s4 href='./../../function-references/XProfan/programmende/'>End of program