Hallo,
ich möchte zB. nach
2</a> suchen, wenn das vorhanden ist, dann möchte ich Test ins Memo schreiben.
<a href="Test">2</a>
Ich könnte auch einfach nach " suchen und mit PosEx ab dieser Position+1 nach dem 2ten " suchen und den Inhalt dann rauskopieren.
Das funktioniert aber so nicht, da ich mehrere solche Links habe, beispiel:
<a href="Test">2</a><a href="Test">3</a><a href="Test">4</a>
Ist es vieleicht möglich PosEx umzuschreiben, das es nach hinten Prüft statt vorwärts?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| function PosEx(const Substr: string; const S: string; Offset: Integer): Integer;
begin
if Offset <= 0 then Result := 0
else
Result := Pos(Substr, Copy(S, Offset, Length(S)));
if Result <> 0 then
Result := Result + Offset - 1;
end; |
Ich habe mir überlegt statt
Delphi-Quelltext
1:
| Result := Result + Offset - 1; |
gleich
Delphi-Quelltext
1:
| Result := Result - Offset + 1; |
zu schreiben.
Würde das funktionieren oder muss man da noch was umschreiben?
Danke euch schonmal für die Hilfe.
MfG
bruce185
