Function RegRemoveHref(HTMLstr)
Set ra = New RegExp
ra.IgnoreCase = True
ra.Global = True
ra.Pattern = "<a[^>]+>(.+?)<\/a>"
RegRemoveHref = ra.replace(HTMLstr,"$1")
END Function
Function RegRemoveHref(HTMLstr) Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = "]+>(.+?)" RegRemoveHref = ra.replace(HTMLstr,"$1") END Function 这个是取消所有超链接的正则 在这个基础上修改 包含特定网址的超链接不删除 比如包含 baidu.com 或 sina.cn 这个2个关键字的所有