Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Betriebssysteme (https://www.delphipraxis.net/27-betriebssysteme/)
-   -   Texte in Dateien umbenennen (https://www.delphipraxis.net/128760-texte-dateien-umbenennen.html)

user0815 5. Feb 2009 14:44


Texte in Dateien umbenennen
 
Hallo,

ich bin auf der Suche nach einem Tool (Windows) mit dem ich ein Verzeichnis auswählen kann. In dem Verzeichnis will ich in allen Ordner`n sowie evtl. darin enthaltenen Unterordnern Texte in Dateien *.* suchen und ersetzen lassen.
Dies soll OHNE eine Bestätigung erfolgen - es handelt sich hierbei um ~1000 Dateien.

Im Internet habe ich bis jetzt nichts passendes gefunden.
Wäre schon wenn mir jemand so ein Tool nennen kann von dem er weiss das es auch funktioniert.

Thx
user0815

nahpets 5. Feb 2009 15:10

Re: Texte in Dateien umbenennen
 
Hallo,

UltraEdit sollte das können.

Andreas L. 5. Feb 2009 15:14

Re: Texte in Dateien umbenennen
 
Kannst du dir doch schnell selber bauen.

Delphi-Quellcode:
var
  Files, CurrFile: TStrings;
  iFile: Integer;
begin
  Files := TStringList.Create;
  FindAllFiles(Files, 'C:\', ...); //genaue Parameter hab ich jetzt nicht im Kopf, einfach mal in der CodeLib nach FindAllFiles suchen
  for iFile := 0 to Files.Count -1 do
  begin
    CurrFile := TStringList.Create;
    CurrFile.LoadFromFile(Files[iFile];
    CurrFile.Text := StringReplace(CurrFile.Text, 'Suchstring', 'Ersetzstring', [rfReplaceAll]);
    CurrFile.SaveToFile(Files[iFile]);
    CurrFile.Free;
  end;
end;

user0815 6. Feb 2009 08:09

Re: Texte in Dateien umbenennen
 
Danke !
Beide Antworten haben mir geholfen.

FindAllFiles = http://www.michael-puff.de/Developer...AllFiles.shtml


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:10 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz