Mehrere Dateien nach String durchsuchen

[foxy]

servus Leute hab mal ne frage wenn ich einen Best. String habe kann ich dann alle .txt dateien in einem ordner nach diesem absuchen ... also ich meine den Inhalt der .txt dateien .....

Bitte um rückmeldung

[Christian Seehase]

Moin Foxy,

sicher geht das.
Jetzt stellt sich mir noch die Frage, wo genau Dein Problem liegt:
Finden der Dateien?
Lesen der Dateien?
Wie nach einem String suchen?

Alles zusammen?

Irgendetwas anderes?

[wwerner]

Hi Foxy, in der Netikette sind crosspostings unerwünscht. Erst einmal in einem Forum fragen und nicht gleich in mehreren. Und dann sollte man auch mal selbst suchen. Jedes Forum hat eine Suchfunktion. Hier ist übrigens dein Crossposting: http://www.swissdelphicenter.ch/de/f...666&highlight=

Gruß

WW

[sakura]

@wwerner

Zitat von wwerner:

Hi Foxy, in der Netikette sind crosspostings unerwünscht.

Hi,

ich bin gerade noch einmal unsere Regeln alle durchgegangen und habe keinen Verweis darauf gefunden. Ich finde es auch nicht dramatisch, wenn jemand dringend Hilfe braucht, an mehreren Stellen nach einer möglichen Lösung zu suchen. Verschiedene Quellen bieten oft auch verschiedene Lösungsansätze.

@foxy : Wenn Du eine Lösung in einem anderen Forum erhälst sei fair und präsentiere uns diese. Einerseits wissen wir, dass Du jetzt glücklich bist, andererseits kann diese auch uns weiterhelfen.

Oh, und hilf uns auf den Weg. Christians Fragen solltest Du beantworten, damit wir gezielt helfen können.

[wwerner]

@sakura
Hi, Ich habe nicht von den Richtlineien in diesem Forum geschreiben, sondern von der allgemeinen Netikette

Gruß

Wolfgang

[thomasdrewermann]

Trotzdem sehe auch ich keinen Grund eine Frage deshalb nicht zu beantworten.

[foxy]

Also Leute
es geht darum ich habe in einer Dir. mehrere txt-files ich will alle nacheinander öffnen um herauszufinden wo mein string der gesucht wird siche befindet .... den string suchen weis ich wie das geht in einer datei aber nich wie ich mehrere Dateien hintereinader öffne .... wenns das irgendmöglich ist was ich nich weis weil ich erst seit 6 monate programmier
also die dateien haben alle den namen xxxch.txt die ich eigentlich öffnen will
xxx steht für ein datum
es gibt aber auch noch dateien in der Dir. xxxdr.txt xxxma.txt die brauch ich eigentlich nicht zu öffnen aber .. ach ka =) ich hoffe ihr kommt damit klar ...
danke im vorraus

[thomasdrewermann]

Also muss das Programm die Letzten 6 Zeichen Vergleichen. Wenn diese "ch.txt" sind soll es die Datei öffnen und nach einem vorher eingegebenen String durchsuchen?

[foxy]

Genau wenn er in dieser nicht gefunden dann die nächste xxxch.txt durchsuchen ... es gibt für jeden tag eine xxxch.txt

[sakura]

Hier also die Routine zum Durchsuchen eines Verzeichnisses. Diese Routine ruft dann die Routine Search mit dem gefundenen Dateinamen inkl. Pfad auf. Diese hast Du wohl schon

Delphi-Quellcode:

procedure FindFiles(Pfad, Mask: String);
var
  SR: TSearchRec;
begin
  // letzten backslash bei Bedarf anhängen.
  if AnsiLastChar(Pfad)^ <> '\' then
    Pfad := Pfad + '\';
  if FindFirst(Pfad + Mask, faAnyFile, SR) = 0 then
  repeat
    if SR.Attributes and faDirectory = 0 then
      [color=#ff0044]Search(Pfad + SR.Name);[/color]
  until FindNext(SR) <> 0;
  FindClose(SR);
end;
[color=#0019ff]
Aufruf mit:

FindFiles('C:\Temp', '*.ch.txt');
[/color]

......