Ja mit allem, mir fehlt irgendwie der zündene Gedanke, hab mich irgendwie voll festgefahren.
Hab es angefangen so zu lösen (eine von gefühlten 100 Wegen):
Delphi-Quellcode:
for i := 0 to Memo1.Lines.Count - 1 do
begin
if (Pos('class="Image">', Memo1.Lines.Strings[i]) > 0)
then
begin
s := '';
for p := Pos('class="Image">', Memo1.Lines.Strings[i]) to
Length(Memo1.Lines.Strings[i]) do
s := s + Memo1.Lines.Strings[i][p];
ListBox2.Items.Add(Utf8ToAnsi('[' + s + ']'));
...
So zeigt er mir immerhin schon 30 mal 'class="Image">'an, was auch der Benutzeranzahl auf der Seite entspricht. Aber gerade da dort Zeilenumbrüche usw drin sind, ist das echt ziemlich schwierig - oder ich bin inzwischen einfach nur müde
