Ich hab jetzt mal im Forum gesucht, ich bekomme es als Anfänger ja hin das erste zu finden und dazwischen auszugeben aber das er danach mit den andern weitermach bekomm ich nich hin, hier mal mein Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var StringList:TStringList;
posi:integer;
s:string;
begin
StringList := TStringList.Create;
try
StringList.Text := Memo1.text ;
s:=StringList.Text;
delete(s, 1, pos('<td><span class="dodo">', s) + length('<td><span class="dodo">') - 1);
Memo2.Text := copy(s, 1, pos('</span></td>', s) - 1);
finally
StringList.free;
end;
LG
Detrox