PosEx

[himitsu]

Zitat von DeddyH:

So solltest Du eine Endlosschleife erhalten, da Du immer wieder von Pos1 ausgehst, diese aber nie verändert wird.

Nee, wäre keine Endlosschleife, aber wenn mal ein ; an erster Stelle steht, dann wird dieses nicht entdeckt, da erst ab Position 2 begonnen wird. (1+1 = 2)

Delphi-Quellcode:

Pos1 := 0;
repeat
  Pos1 := PosEx('<td align="center">', SubStr, Pos1 + 1);
  if Pos1 <> 0 then Count:= Count + 1
until Pos1 = 0;

bzw.

Delphi-Quellcode:

Pos1 := 0;
repeat
  Pos1 := PosEx('<td align="center">', SubStr, Pos1 + 1);
  if Pos1 = 0 then break;
  Count:= Count + 1
until false;
// oder
Pos1 := 0;
while true do begin
  Pos1 := PosEx('<td align="center">', SubStr, Pos1 + 1);
  if Pos1 = 0 then break;
  Count:= Count + 1
end;

[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