|
Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
Delphi 7 Enterprise
|
Re: HTML Tags entfernen
17. Jan 2008, 11:12
Hier auch nochmal ein Vorschlag mit regulären Ausdrücken...
Delphi-Quellcode:
function CleanHtmlTags( Html: string): string;
var RegExpr:TRegExpr;
begin
Result:=' ';
RegExpr:=TRegExpr.Create;
try
RegExpr.ModifierG:=false;
RegExpr.Expression:=' <body>(.*)</body>';
if RegExpr.Exec( Html) then begin
Html:=RegExpr.Match[0];
RegExpr.Expression:=' <.*>';
Result:=RegExpr.Replace( Html, ' ', false);
Result:=trim(StringReplace(Result, ' ', ' ', [rfReplaceAll]));
end;
finally
RegExpr.Free;
end;
end;
 RegExpr
Gruss
Thorsten
|