so hab da was zusammen gewürfelt
Code:
Memo3.Text := Copy(Memo3.Text, Pos('<h1 itemprop="name">', Memo3.Text) + 1, Pos('</h1>', Memo3.Text) - Pos('<h1 itemprop="name">', Memo3.Text) - 1);
Mit ein paar Zwischenvariablen wird der Code bestimmt übersichtlicher und es erspart doppelten Code.
Außerdem kann man so besser nachprüfen ob die Berechnung stimmt.
Delphi-Quellcode:
Start := Pos('<h1 itemprop="name">', Memo3.Text);
Ende := Pos('</h1>', Memo3.Text);
Memo3.Text := Copy(Memo3.Text, Start + 1, Ende - Start - 1);
z.B.
Start + 1
kann doch wohl nicht ganz stimmen, zumindestens nicht, wenn man nach mehr als nur
einem Zeichen sucht, für die Startbedingung.
Start +
Length des gesuchten Textes würde wohl eher das richtige Ergebnis liefern.
+1 =
<h1 itemprop="name">