A Der PASCAL – Teil

Skript zur Vorlesung Allgemeine Datenverarbeitung 75
An dem folgendem Beispielprogramm soll der Umgang mit Textdateien
veranschaulicht werden. Bei dem Programm handelt es sich um einen sehr
einfachen Texteditor, in dem ein Text zeilenweise eingegeben und anschließend
auf dem Bildschirm wieder ausgegeben wird.
program text_datei;
uses wincrt;
const datei='text_dat.txt'; {Dateiname}
var f:text; {Dateivariable}
{--Textdatei für Schreiboperationen öffnen-------------------------}
procedure oeffne_schreiben(var d_var:text;d_name:string);
var taste:char;
{--Text eingeben--------------------}
procedure schreiben;
var zeile:string[50];
begin
writeln;writeln;
writeln(d_var); {Leerzeile schreiben}
repeat
readln(zeile); {Text einlesen (Zeile)}
writeln(d_var,zeile); {und in Datei schreiben}
until readkey = #27 {Ende mit [ESC]}
end;
{-----------------------------------}
begin
assign(d_var,d_name); {Dateivariable mit Datei verbinden}
{$I-} {Fehlererkennung ausschalten}
append(d_var); {Textdatei öffnen}
{$I+} {Fehlererkennung einschalten}
if ioresult = 0 {Kein Fehler beim öffnen}
then
begin
schreiben; {Text eingeben(Prozedur)}
close(d_var); {Datei schließen}
end
else
begin {Fehler beim öffnen der Datei}
writeln('Datei nicht vorhanden oder Fehler beim öffnen.');
write('Datei neu anlegen (J/N) ?: ');
readln(taste);
if upcase(taste)='J'
then
begin
rewrite(d_var); {Neue Datei anlegen und öffnen}
schreiben; {Text eingeben(Prozedur)}
close(d_var); {Datei schließen}
end
else writeln('Programm wird beendet');
end;
end; {oeffne_schreiben}
Fachhochschule Gelsenkirchen Prof. Dr.-Ing. A. Rinschede
Fachbereich Versorgungs- und Entsorgungstechnik