PosEx

[DeddyH]

Im Originalcode war das eine Endlosschleife ;)

[himitsu]

Original?
Also das in Beitrag #6, so wie es jetzt ist, ist keine Endlosschleife.



PS:

Delphi-Quellcode:

LastPos := 0;
while true do begin
  i := PosEx('<td align="center">', SubStr, LastPos + 1)
  if i = 0 then break;
  LastPos := i;
end;

Delphi-Quellcode:

LastPos := PosEx('>"retnec"=ngila dt<', ReverseString(SubStr));
if LastPos > 0 then LastPos := Length(SubStr) - LastPos - 18;

Delphi-Quellcode:

SearchStr := '<td align="center">';
LastPos := PosEx(ReverseString(SearchStr), ReverseString(SubStr));
if LastPos > 0 then LastPos := Length(SubStr) - (LastPos - 1) - Length(SearchStr);

(ReverseString aus Unit StrUtils)

[DeddyH]

Der Beitrag ist ja auch editiert worden. Aber nun genug davon :mrgreen: