Moin,
ich habe hier folgenden Code, mit dem ich Tags aus
HTML-Code entfernen möchte:
Delphi-Quellcode:
While containsTags = True do begin
If (AnsiContainsText(HTMLCode, '<')) and (AnsiContainsText(HTMLCode, '>')) then begin
containsTags:= True;
Pos1:= AnsiPos('<', HTMLCode);
Pos2:= AnsiPos('>', HTMLCode);
Delete(HTMLCode, Pos1, Pos2-Pos1+1);
end else containsTags:= False;
end;
Das funzt ganz gut, versagt aber mit einer Endlosschleife, wenn der
HTML-Code fehlerhaft ist, also zb. mitten im Text nach anderen Tags ein br> (hier fehlt die spitze Klammer auf) steht und noch weitere Tags folgen.
Beispiel:
<td colspan=3>F.R.I.E.N.D.S - Die Serie ist das TV-Phänomen der letzten Jahre. Die Geschichten von sechs Freunden, die in New York Liebe und Leben meistern, hat eine weltweite Fan-Gemeinde. Kein Wunder, daß die Besetzung immer noch die selbe ist, wie beim Start im Jahre 1994.
b>Episoden:[/b] // Hier der Fehler im
HTML-Code
[*]Durch den Wind
[*]Ist das Leben nicht schlecht?
[*]Im Namen der Männlichkeit
Ergebnis der Routine oben ist eine Endlosschleife.
Hat da jemand ne Idee?
Gruß
Gambit