Zitat von
omata:
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
Durch das "gierige Verhalten" von RegExp würde das aber alles vom ersten bis zum letzten Tag löschen...