Dateinamen aus Datei an der Kommandozeile mit '<'

[HPW]

Es gibt Programme/Tools bei denen kann man eine Datei mit Dateinamen auf der
Kommandozeile übergeben und das Tool verarbeitet jede Datei nacheinander.

Code:

tool.exe < prog.lst

Also das '<' Zeichen leitet den Inhalt der Datei einzeln dem Tool zu.

Wie kann ich das mit einer delphi-consol-Anwendung machen.

ParamStr(1) ist bei meinen Test leer.

[rantanplan99]

ParamStr(1) ist ja der übergebene Parameter. < prog.lst ist aber kein Parameter, sondern ein Pipe symbol.
< prog.lst heisst das er den inhalt der datei prog.lst in STDIN schreibt. Unter Linux müsstest du die Datei STDIN öffnen und auslesen, unter Delphi ist es INPUT

Schau mal in der Hilfe unter INPUT und OUTPUT nach.

[neolithos]

Eigentlich kann man den inhalt von prog.lst mittels Readln und Read lesen.

Delphi-Quellcode:

var s : string;
begin
  repeat
    readln(s);
    Writeln(s);
  until Length(s) = 0;
end;

NICHT GETESTET!

[HPW]

Danke für die Tips, beide sind richtig und funktionieren so weit.

Ich habe jetzt nur noch das Problem festzustellen ob überhaupt 'Input'
anliegt. Es soll ja eine Datei als Parameter oder eine Dateiliste aus der
Umleitung möglich sein.

Also:

Code:

tool.exe < prog.lst 

und

tool.exe file1.txt

Bei der einzelnen Datei will ich ja gar keine Abfrage-Schleife starten.

[Chewie]

Prüfe einfach mit eof, ob die "Datei" am Ende ist.

[neolithos]

Via EOF(Input) z.B.

[HPW]

Habe ich ja vorher versucht:

Code:

 Reset(Input);
  while not Eof(Input) do
    begin
      Readln(Input, s);
      Writeln(s);
    end;
  CloseFile(Input);

Geht aber trotdem in die while-Schleife.

Bin ich zu dumm?

[Chewie]

Und es wird nichts ausgegeben?
Vielleicht ein Leerzeichen?

[d3g]

Wenn ich mich richtig erinnere, gibt es eine Konstante StdIn. Wenn Input == StdIn, dann liegt kein Input über < an.

[Chewie]

Zitat:

Zitat von d3g

Wenn ich mich richtig erinnere, gibt es eine Konstante StdIn. Wenn Input == StdIn, dann liegt kein Input über < an.

Davon steht in der DElphi-Hilfe nix. Und == gibts schon gar nicht ;)