So, habe jetzt mal ein bisschen probiert, aber irgendwie funktioniert das noch nicht.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Pos1, Pos2,Pos3: byte;
s, SubStr: string;
begin
s := '<div class="H1"><a href="/s/RubD16E1F55D21144C4AE3F9DDF52B6E1D9/Doc~E9E3E544B0814490A9D64596C57269FAB~ATpl~Ecommon~Scontent.html">Bahn bestellt 137 Doppelstockwagen</a></div>';
Pos1 := Pos('"H1">', s);
if Pos1 <> 0 then // überschrift gefunden
begin
Pos2 := PosEx('>', s, Pos1 + 1);
Pos3 := PosEx('<', s, Pos2 + 1);
if Pos2 <> 0 then
SubStr := Copy(s, Pos2, Pos3);
ShowMessage(SubStr + '');
end;
end;
Eigentlich habe ich jetzt so gedacht das ich mit Pos1 "H1"> als erste Position gefunden habe mit Pos2 das nächste > zeichen und mit Pos3 das nächste < zeichen und das kopiere und als ShowMessage das der Text kommen müsste: Bahn bestellt 137 Doppelstockwagen
Wo ist mein Fehler dort?