Suchen/Ersetzen in grossen Dateien

[Amateurprofi]

Hallo Heiko,

mal auf die Schnelle etwas für Text Dateien.
Ich habe meine Zweifel, ob das so auch für .doc oder .rtf Dateien funktioniert, aber eventuell kannst du das für deine Zwecke anpassen.

Ich hab es mal mit einer Datei (3.3 MB) getestet.
(Es ist die von der Deutschen Bundesbank publizierte Liste aller Banken in Deutschland.)

Um alle Vorkommen von "Bank" in "ank" zu ändern, braucht die Routine 65 ms, um "Bank" in "GeldBank" zu ändern brauchte sie 340 ms.
StringReplace braucht für die gleiche Aufgabe 54000 ms.

Frage am Rande : So etwas kannst du doch sehr bequem mit Word machen?

Delphi-Quellcode:

PROCEDURE TextFileReplace(const olddsn,newdsn,old,new:String);
var list:TStrings; data,newdata:String; oldlen,newlen:integer;
PROCEDURE Grow(required:integer);
var current:integer;
begin
   current:=Length(newdata);
   if current>=required then exit;
   required:=Max(current+current shr 2,required);
   SetLength(newdata,required);
end;
PROCEDURE Replace;
var p,i,j,len:integer;
begin
   SetLength(newdata,Length(data)+100);
   j:=1;
   p:=1;
   repeat
      i:=p;
      p:=PosEx(old,data,p);
      if p=0 then break;
      len:=p-i;
      Grow(j+len+newlen);
      Move(data[i],newdata[j],len*SizeOf(char));
      Move(new[1],newdata[j+len],newlen*SizeOf(char));
      inc(j,len+newlen);
      p:=p+oldlen;
   until false;
   len:=Length(data)-i+1;
   Grow(j+len);
   Move(data[i],newdata[j],len*SizeOf(char));
   SetLength(newdata,j+len-1);
   list.Text:=newdata;
end;
PROCEDURE ReplaceInplace;
var p,i,j,len:integer;
begin
   j:=1;
   p:=1;
   repeat
      i:=p;
      p:=PosEx(old,data,p);
      if p=0 then break;
      len:=p-i;
      Move(data[i],data[j],len*SizeOf(char));
      Move(new[1],data[j+len],newlen*SizeOf(char));
      inc(j,len+newlen);
      p:=p+oldlen;
   until false;
   len:=Length(data)-i+1;
   Move(data[i],data[j],len*SizeOf(char));
   SetLength(data,j+len-1);
   list.Text:=data;
end;
begin
   list:=TStringList.Create;
   list.LoadFromFile(olddsn);
   data:=list.Text;
   list.Clear;
   oldlen:=Length(old);
   newlen:=Length(new);
   if newlen<=oldlen then ReplaceInplace else Replace;
   list.SaveToFile(newdsn);
end;