Hi Leute,
ich weiß der Thread ist etwas älter. Aber da viele Leute auf diese Funktionen hier zurückgreifen, möchte ich noch ergänzen.
Unter dem
Geschwindigkeitsaspekt habe ich gemessen:
dwStrips benötigte im Durchschnitt 77,6 ms
StripTags benötigte im Durchschnitt 56,3 ms
CleanHTMLTags benötigte im Durchschnitt 4,6 ms
Für kleinere Anwendungen oder wenigen Anrufen spielt es keine Rolle welche Funktion man nimmt. Möchte man aber größere Texte, öfters Texte durchlaufen lassen sollte man CleanHTMLTags nehmen. dwStrips zieht sich schnell in die Länge.
Bei CleanHTMLTags habe ich eine kleine Änderung vorgenommen und sieht so aus:
Delphi-Quellcode:
function CleanHtmlTags(
Html:
string):
string;
var RegExpr:TRegExpr;
begin
Result:='
';
RegExpr:=TRegExpr.Create;
try
RegExpr.ModifierG:=false;
RegExpr.Expression:='
<.*>';
Result:=RegExpr.Replace(
Html, '
', false);
Result:=trim(StringReplace(Result, '
', '
', [rfReplaceAll]));
finally
RegExpr.Free;
end;
end;
Das Ergebnis sah bei allen Funktionen gleich aus, wobei ich hier keinen genauen vergleich gemacht habe.
LG
Monday