Bin kein Profi, aber vielleicht geht es mittels Regex einfacher?
Delphi-Quellcode:
with TPerlRegEx.Create(nil) do
try
RegEx := '(?<=>)\d+(?=<)|(?<=javascript:get\('')\d+(?='')';
Subject := {Source};
if Match then
repeat
AStringList.Add(MatchedExpression);
until not MatchAgain;
finally
Free;
end;
Ergebnis für deinen Quote in #1:
Zitat:
15
2200
77000
476
16
2300
63000
476