das hab ich grad ohne delphi freihend zusammengeschrieben...
musst schauen, vllt wird eine stelle zuviel oder zuwenig kopiert...
Delphi-Quellcode:
var Namen : TStringList;
i, a : Byte;
p : Cardinal;
s1, s2 : String;
// ...
namen := TStringList.create;
p := 0;
s1 := '<a href="names.php?action=post&name=';
s2 := '&"><img src="images/pn.gif';
for i := 1 to 100 do
begin
p := PosEx(s1, myString, p) + length(s1);
a := PosEx(s2, myString, p) - p;
namen.add(copy(myString, p, a));
end;
namen.SaveToFile('C:\Test.txt');
FreeAndNil(Namen);