Zeichenkette gezeilt absuchen und gefundene Zeichenausschnei

[choose]

Hallo skaven,

für Probleme dieser Art eignen sich reguläre Ausdrücke, mit deren Hilfe Du Dein Problem vielleicht in der Art

Delphi-Quellcode:

with RegExp('PRD[^>]*?(\d+)[^>]*>') do
  if Execute(AString) then
  repeat 
    myResult.Add(Match[1]);
  until not ExecuteNext;

lösen könntest.