wort zwischen 2 zeichen rauskopieren

[himitsu]

Zitat von RuSsAk:

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">