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 获取其他进程句柄的几种方法

Delphi 一个中英文记录Delphi实现

Delphi ini 文件操作记要: 使用 tmeminifile

Delphi-获取毫秒-计算代码运行的时间

Delphi inttostr 将“整数型”转换成“字符型”

Delphi 如何快速从列表框tlistbox中删除重复项

Delphi webbrowser1 缩放网页

Delphi 让窗体自适应屏幕显示

Delphi读写utf-8、unicode格式文本文件

Delphi 文件路径获取文件名不带扩展名

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...