写个正则 取消内容中的超链接

cp713 2015-03-14 03:35:17
Function RegRemoveHref(HTMLstr)
Set ra = New RegExp
ra.IgnoreCase = True
ra.Global = True
ra.Pattern = "<a[^>]+>(.+?)<\/a>"
RegRemoveHref = ra.replace(HTMLstr,"$1")
END Function

这个是取消所有超链接的正则 在这个基础上修改 包含特定网址的超链接不删除 比如包含 baidu.com 或 sina.cn 这个2个关键字的所有超链接不删除
...全文
148 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
天际的海浪 2015-03-14
  • 打赏
  • 举报
回复
ra.Pattern = "<a(?![^>]+(baidu\.com|sina\.cn))[^>]+>(.+?)<\/a>"

28,376

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧