Ich bin öfters mal auf das Problem gestoßen, dass man einen String zwischen 2 Strings auslesen muss.
Diese function macht's möglich.
Delphi-Quellcode:
function GetString(Wort, WortVor, WortNach: string): string;
var
IndexVor, IndexNach: integer;
i: integer;
Ergebnis: string;
begin
IndexVor := pos(WortVor, Wort);
IndexNach := pos(WortNach, Wort);
if (IndexVor <> 0) and (IndexNach <> 0) then
for i := IndexVor+Length(WortVor) to IndexNach-1 do
begin
Ergebnis := Ergebnis+Wort[i];
end;
Result := Ergebnis;
end;