Zeilennummern
Tim Wisiorek
ich bin relativ neu und habe eine ganz banale Frage: Gibt es irgendein
Tool, das mir beim Ausdruck von Listings automatisch Zeilennummern
einfuegt? Wenn ja, wer kann mir ein solches geben?
TW
INTERNET: *Spect...@aol.com*
--- CrossPoint v3.1
* Origin: (2:2457/395.28)
Alexander Wolf
TW> ich bin relativ neu und habe eine ganz banale Frage: Gibt es irgendein
TW> Tool, das mir beim Ausdruck von Listings automatisch Zeilennummern
TW> einfuegt? Wenn ja, wer kann mir ein solches geben?
Selber schreiben ;-)
uses printer;
var datei: text;
Zeile: string;
ZNummer: word;
begin
ZNummer:=0;
assign(Datei, paramstr(1));
reset(Datei);
while not eof(Datei) do begin
Inc(ZNummer);
readln(Datei, Zeile);
writeln(Zeile:3,': ',Zeile);
end;
close(Datei);
end.
Allerdings geht dabei das fett/kursivgedruckte verloren...
Hier koenntest Du Dir gerade 'ne neue Datei mit Zeilennummern erstellen lassen
und dies dann ueber TP ausdrucken...
See you... Internet: al...@wolf-aw.sub.de
...Alexander Wolf, Sysop der FAST BBS
--- GoldED 2.50+
* Origin: --> FAST BBS, Karlsruhe (+49 721 888151) <-- (2:2476/481)
Jens Groenewold
Am Sonntag, den 25. Februar 1996 schrieb Tim Wisiorek an Alle:
TW> *Hallo Ihr da Draussen*,
TW> ich bin relativ neu und habe eine ganz banale Frage: Gibt es irgendein
TW> Tool, das mir beim Ausdruck von Listings automatisch Zeilennummern
TW> einfuegt? Wenn ja, wer kann mir ein solches geben?
Wozu Tool. Wir sind in der Pascal.Ger. Ich hoffe, Du arbeitetst mit Dos. Du
compilierst das, und tippst dann bloss noch 'NUMBER <Datei>'. Die Ausgabe
kannst Du dann leicht auf den Drucker umleiten.
program number;
uses dos;
var f:text;
s:string;
i:integer;
begin
assign(f,paramstr(1)); reset(f);
i:=0;
while not eof(f) do begin
inc(i); readln(f,s); writeln(i:3,': ',s);
end;
close(f);
end.
Bis dann,
Jens
--- GoldED/386 2.50.A0918+
* Origin: Point der Flintstones-BBS (2:2426/1120.3)
Philipp Gerlach
TW>ich bin relativ neu und habe eine ganz banale Frage: Gibt es irgendein
TW>Tool, das mir beim Ausdruck von Listings automatisch Zeilennummern
TW>einfuegt? Wenn ja, wer kann mir ein solches geben?
TW>
Wieso schreibst Du Dir nicht ein kleines Programm ?
z.B :
uses printer; {geht glaube nur bei Versionen < TP7 !}
var datei :text;
st : string;
zahl : word;
begin
assign (datei,paramstr(1));
reset (datei);
zahl:=0;
readln (datei,st);
while not eof(datei) do
begin
inc (zahl);
writeln (lst,' Zeile :',zahl,' ',st);
readln (datei,st);
end;
close (datei);
end.
Gruss,
Philipp
--- CrossPoint v3.1
* Origin: (2:2437/511.36)
Jens Glaeser
zum Thema "Zeilennummern":
TW> *Hallo Ihr da Draussen*,
Ja, hallo erst mal ... ;-)
TW> ich bin relativ neu und habe eine ganz banale Frage: Gibt es
TW> irgendein Tool, das mir beim Ausdruck von Listings automatisch
TW> Zeilennummern einfuegt? Wenn ja, wer kann mir ein solches geben?
Hm, ziemlich einfach.
program Zeilennummern;
uses printer; {fuer Drucken}
var Eingabe,Inhalt:string;
Datei:text;
Zaehler:longint;
begin
write('Bitte Dateinamen eingeben : ');
readln(Eingabe);
assign(Datei,Eingabe);
{$I-} {I/O-Pruefung aus}
reset(Datei) {Zum lesen oeffnen}
{$I+} {I/O-Pruefung wieder ein}
if IOResult <> 0 then {Fehlermeldung}
begin
writeln(^g,'Fehler ! Datei nicht gefunden.');
Halt(1); {Ende und Errorlevel 1 }
end;
Zaehler:=0; {Zaehler auf 0 setzen}
while not EoF(Datei) do {EoF ist End of File}
begin
readln(Datei,Inhalt); {aus der Datei lesen}
Inc(Zaehler); {Zaehler um eins }
{erhoehen }
writeln(lst,Zaehler:5,Inhalt); {lst fuer Drucker }
{Zaehler mit 5 Stellen}
end; {Ende von Drucken}
writeln(lst,#12); {Formfeed}
writeln('Das wars schon.');
end.
Gruesse von Point 007, Jens ;-)
--- CrossPoint v3.1 R
* Origin: Mail oder nicht Mail ? Das ist hier die Frage ! (2:2410/610.7)