Hallo,
hier ist meine - nach langem Leiden - vorläufige Lösung:
Wer eine Idee hat, wie man das optimieren oder wie es ganz anders laufen könnte, dann her damit!
Ich hätte es vor allem noch gerne in einer Stringliste, damit ich mir das Memo sparen kann, was ich eigentlich für mich nur zur Kontrolle eingebaut habe, um zu sehen, ob auch alle Bilder gefunden werden.
Ich würd mich freuen!
Ich hoffe auch, hiermit eine allgemeine Lösung zu liefern, wie man einen Textteil filtern kann und so anderen auch mal helfen könnte!
Viele Grüsse, moperswings
Delphi-Quellcode:
procedure TForm1.Button14Click(Sender: TObject);
var
i, p: integer;
s: string;
bild: string;
dateiname: string;
begin
dateiname := 'd:\image14\daten.html';
Memo1.Lines.LoadFromFile(dateiname);
bild := '<img';
for i := 0 to Memo1.Lines.Count - 1 do
begin
if pos(bild, Memo1.Lines.Strings[i]) > 0 then begin
s := '';
for p := pos(bild, Memo1.Lines.Strings[i]) to
length(Memo1.Lines.Strings[i]) do
if memo1.Lines.Strings[i][p] <> s then
s := s + Memo1.Lines.Strings[i][p]
else
break;
while pos(s[length(s)], '/>') = 0 do
delete(s, length(s), 1);
ListBox1.Items.Add(s);
end;
end;
end;