Delphi-Quellcode:
s := idhttp1.GET('http://test/showcat-4');
Anfang := '<td>[B][In den Korb][/B]</td>';
Ende := 'Anzeigen';
Pos0 := Pos(Anfang, s);
Ergebnis := Copy(s, Pos0 + length(Anfang), 100);
Pos1 := Pos(Ende, Ergebnis);
Delete(Ergebnis, Pos1, 100 + length(Anfang));
Delete(Ergebnis, 1, 20);
Showmessage(ergebnis);
Anzeigen klappt zwar aber es kann sein das der Eintrag verändert wird wie automatiesiere ich die Delete Funktion, und es kann ja sein das mehrere Einträge da sein könnten ich verzweifel noch dran
Mfg,
Eistee