Forum

> > Off Topic > Mehrzeilige *.txt mit Pascal auslesen
Forums overviewOff Topic overviewLog in to reply

German Mehrzeilige *.txt mit Pascal auslesen

1 reply
To the start Previous 1 Next To the start

old Mehrzeilige *.txt mit Pascal auslesen

weltsieger
User Off Offline

Quote
Hi ich hab wiedermal ne frage:
wie bekomme ich es hin, dass ein pascal prog. eine Mehrzeilige txt ausliest und den Inhalt wiedergibt?

ich habs hin bekommen, dass er die erste Zeile der txt ausliest und wiedergibt, doch die anderen fehlen:

1
2
3
4
5
6
7
8
9
10
11
12
13
program lesen;
uses crt;
var datei      : text;
        zeile      : string;
begin
  assign (datei,'datei.txt');
  clrscr; 
  reset (datei);
                            readln (datei,zeile);
                            write (zeile);
  close(datei);
  readln;
end.

danke für eure hilfe.

old Re: Mehrzeilige *.txt mit Pascal auslesen

bizzl
User Off Offline

Quote
Du musst eine Schleife drum herum setzen:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program lesen;
	uses crt;
	var datei : text;
	zeile : string;
begin
	assign(datei,'datei.txt');
	clrscr;
	reset(datei);
	[b]while not EOF(datei) do begin[/b]
		readln(datei,zeile);
		write(zeile);
	[b]end;[/b]
	close(datei);
	readln;
end.
To the start Previous 1 Next To the start
Log in to replyOff Topic overviewForums overview