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

[cp713]

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个关键字的所有超链接不删除

[天际的海浪]

ra.Pattern = "<a(?![^>]+(baidu\.com|sina\.cn))[^>]+>(.+?)<\/a>"