Schleifen und Suchroutinen

[dominikkv]

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);