Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.631 Beiträge
Delphi 12 Athens
|
AW: Nach unbestimmten String suchen
10. Aug 2011, 14:11
Aus dem Hut:
Delphi-Quellcode:
s := Memo1.Lines.Text;
Anfang := PosEx('<img scr="', s, 0);
while Anfang > 0 do
begin
Anfang := Anfang + Length('<img scr="');
Ende := PosEx('"', s, Anfang);
Delete(s, Anfang, Ende - Anfang);
Insert(NeuerPfad, s, Anfang);
Anfang := PosEx('<img scr="', s, Ende);
end;
Memo1.Lines.Text := s;
Es kann sein, dass die Positionen hier nicht exakt stimmen, aber das wirst Du schon herausbekommen und kannst es ggf. korrigieren.
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|
|
Zitat
|