delphi过滤一段字符里面的HTML代码的函数

本文整理自网络，侵删。

  以下函数可以用于过滤字符里的HTML代码：


function FilterHTMLCode(HTML: string; AllowURL: Boolean): string;
var
UrlStart, UrlEnd: Integer;
TempStr: string;
begin
HTML := AnsiReplaceStr(HTML, '&', '&');
HTML := AnsiReplaceStr(HTML, '<', '<');
HTML := AnsiReplaceStr(HTML, '>', '>');
HTML := AnsiReplaceStr(HTML, #13, ' <br>');
HTML := AnsiReplaceStr(HTML, #32, ' ');

if AllowURL then
begin
TempStr := '';
UrlStart := AnsiPos('http://', LowerCase(HTML));
while UrlStart > 0 do
begin
TempStr := TempStr + Copy(HTML, 1, UrlStart - 1);
HTML := Copy(HTML, UrlStart, Length(HTML));
UrlEnd := AnsiPos(' ', HTML);
if UrlEnd <= 0 then
UrlEnd := Length(HTML) + 1;
TempStr := TempStr + '<a href="' + Copy(HTML, 1, UrlEnd - 1) +
'" target="_blank"><font color="#0000ff">' + Copy(HTML, 1, UrlEnd - 1)
+ '</font></a>';
HTML := Copy(HTML, UrlEnd, Length(HTML));
UrlStart := AnsiPos('http://', LowerCase(HTML));
end;
TempStr := TempStr + Copy(HTML, 1, Length(HTML));
Result := TempStr;
end
else
begin
Result := HTML;
end;
end;

 

相关阅读 >>

Delphi tdsauthenticationmanager的用法

Delphi Delphi tparallel cleanup needed用法

Delphi 获取毫秒级时间戳

winapi 字符及字符串函数(2): charlowerbuff - 把缓冲区中指定数目的字符转小写

Delphi 字符串的分割

Delphi让listbox实现即指即显功能

Delphi 接口尚未调用尚未调用coinitialize解决办法

Delphi 递归算法遍历文件

Delphi shgetfileinfo函数获取任何文件大图标

Delphi xe 关闭android应用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi过滤一段字符里面的HTML代码的函数