Rekursiv Suchen

[GroZ]

@Mod Erledigt hoffe das reicht so. Was anderes ist mir nicht eingefallen :lol:

@SirRufo mein Problem besteht ja darin das auch weiterhin nur einzelene Dateien konvertierbar sein müssen. Kann ich trotzdem eine generelle nehmen?

[Sir Rufo]

Zitat:

Zitat von GroZ (Beitrag 1320942)

@SirRufo mein Problem besteht ja darin das auch weiterhin nur einzelene Dateien konvertierbar sein müssen. Kann ich trotzdem eine generelle nehmen?

Wenn ich das richtig verstanden habe, dann willst du alle *.frp Dateien im Verzeichnis C:\WoAuchImmer umwandeln. Richtig?

Delphi-Quellcode:

procedure ConvertFrpToPdf( const AFilename: string );
begin
  FrpToPdf( AFilename, ChangeFileExt( AFilename, '.pdf' ) );
end;

procedure DoIt;
begin
  ProcessFiles( 'C:\WoAuchImmer', '*.frp', ConvertFrpToPdf );
end;

Fertig => Ja, kann man (und vor allem sehr übersichtlich)

[GroZ]

Zitat:

Zitat von Sir Rufo (Beitrag 1320943)

Zitat:

Zitat von GroZ (Beitrag 1320942)

@SirRufo mein Problem besteht ja darin das auch weiterhin nur einzelene Dateien konvertierbar sein müssen. Kann ich trotzdem eine generelle nehmen?

Wenn ich das richtig verstanden habe, dann willst du alle *.frp Dateien im Verzeichnis C:\WoAuchImmer umwandeln. Richtig?

Delphi-Quellcode:

procedure ConvertFrpToPdf( const AFilename: string );
begin
  FrpToPdf( AFilename, ChangeFileExt( AFilename, '.pdf' ) );
end;

procedure DoIt;
begin
  ProcessFiles( 'C:\WoAuchImmer', '*.frp', ConvertFrpToPdf );
end;

Fertig => Ja, kann man (und vor allem sehr übersichtlich)

Genau. Das Verzeichnis möchte ich dann via Konsole angeben. Das geht alles auch schon wie ich das möchte. Lediglich die Endlosschleife krieg ich nicht gelöst. Aber ich werde jetzt deinen Vorschlag mal ausprobieren und werde berichten.

[p80286]

Zitat:

Zitat von GroZ (Beitrag 1320944)

Lediglich die Endlosschleife krieg ich nicht gelöst. Aber ich werde jetzt deinen Vorschlag mal ausprobieren und werde berichten.

Darf ich Deine Aufmerksamkeit auf #2 lenken, du solltest auf

Delphi-Quellcode:

<>0

testen und nicht auf

Delphi-Quellcode:

=1

und als Überschrift wäre "Dateien rekursiv suchen" noch besser.

Gruß
K-H

[GroZ]

Zitat:

Zitat von p80286 (Beitrag 1320945)

Zitat:

Zitat von GroZ (Beitrag 1320944)

Lediglich die Endlosschleife krieg ich nicht gelöst. Aber ich werde jetzt deinen Vorschlag mal ausprobieren und werde berichten.

Darf ich Deine Aufmerksamkeit auf #2 lenken, du solltest auf

Delphi-Quellcode:

<>0

testen und nicht auf

Delphi-Quellcode:

=1

und als Überschrift wäre "Dateien rekursiv suchen" noch besser.

Gruß
K-H

Das hab ich probiert nur wird da die Funktion komplett übersprungen. Also er schreibt dann 'Konvertierung erfolgreich' aber Dateien wurden nicht konvertiert. Und gleich danach Fehler 1 das bedeutet dass das Verzeichnis falsch ist....

[baumina]

Du warst nie und nimmer in einer Endlosschleife drin, denn deine if-Abfrage auf "PFAD/dir" hat verhindert, dass du jemals in die repeat-Schleife reinkommst, außer deine Eingabe lautete tatsächlich "PFAD/dir" und dieses Verzeichnis wird's wohl nicht geben.

[GroZ]

Zitat:

Zitat von baumina (Beitrag 1320948)

Du warst nie und nimmer in einer Endlosschleife drin, denn deine if-Abfrage auf "PFAD/dir" hat verhindert, dass du jemals in die repeat-Schleife reinkommst, außer deine Eingabe lautete tatsächlich "PFAD/dir".

Doch ich war in einer drin. Also die CPU auslastung ist von 3% auf 95% hochgegangen :lol:
und "PFAD" ist zum Beispiel "C:\Programme\Foo\Alt\usw" nicht das Wort Pfad :lol:

[baumina]

Wie kannst du in der Endlosschleife drin sein, wenn er angeblich schreibt "Konvertierung erfolgreich". :gruebel:

[GroZ]

Das "Konvertierung erfolgreich" kommt nur wenn ich

Delphi-Quellcode:

<> 0

habe. Sprich da ist keine Endlosschleife. Die Endlosschleife kommt nur wenn ich

Delphi-Quellcode:

= 0

nutze.

[baumina]

Dann hab ich wohl deinen Post #4 falsch interpretiert.