T E X T Textverarbeitung © Herbert Paukert - von Herbert Paukert

Herbert Paukert: Textverarbeitung in DELPHI 4
[04] Suchen und Ersetzen von Texten
Ein Quellstring S soll erstens auf das Vorkommen eines Suchstrings A ab der Startposition Start
durchsucht und dieser an der ersten Fundstelle durch den Ersatzstring B ersetzt werden. Die
Position der Fundstelle wird zurückgeliefert. Der Parameter Flag gibt an, ob die Suche unabhängig
von Groß-/Kleinschrift (Case-insensitiv, Flag = 0) oder davon abhängig (Case-sensitiv, Flag = 1)
erfolgen soll. Die entsprechende Position liefert die Systemroutine POS. Wenn dabei 0 herauskommt,
dann wurde nichts gefunden.
In der letzten Routine wird die Anzahl der Fundstellen bzw. Ersetzungen im ganzen Quelltext
ermittelt. Es wird in einer Wiederholungsschleife der Quelltext S so lange durchlaufen, bis der
Suchstring A nicht mehr gefunden wird. An jeder Fundstelle wird zuerst der Suchstring A gelöscht
und dann der Ersatzstring B eingesetzt. Dabei werden die Systemroutinen DELETE und INSERT
benutzt.
function SearchFirst(S,A: String; Start,Flag: Integer): Integer;
{ Sucht im Text S den Suchstring A ab Start und liefert die Fundposition }
var P : Integer;
begin
S := Copy(S,Start+1,Length(S));
if Flag = 0 then begin
S := UpperCase(S);
A := UpperCase(A);
end;
P := Pos(A,S);
if P = 0 then Result := 0
else Result := Start + P;
end;
function ReplaceFirst(var S: String; A,B:String; Start,Flag: Integer): Integer;
{ String A im Text S suchen und durch String B ersetzen }
{ und die erste Fundstelle ab Position Start liefern }
var P : Integer;
begin
P := SearchFirst(S,A,P,Flag);
if P > 0 then begin
Delete(S,P,Length(A));
Insert(B,S,P);
end;
Result := P;
end;
function ReplaceAll(var S: String; A,B:String; Flag: Integer): Integer;
{ String A im ganzen Text S suchen und durch String B ersetzen }
{ und die Anzahl N der Ersetzungen liefern }
var P,N : Integer;
begin
P := 0;
N := 0;
repeat
P := SearchFirst(S,A,P,Flag);
if P > 0 then begin
N := N + 1;
Delete(S,P,Length(A));
Insert(B,S,P);
P := P + Length(B);
end;
until (P = 0);
Result := N;
end;