日期:2011-09-16  浏览次数:20721 次

以下是函数源代码:
’=========================================================
’正则式去除链接函数
’QQ: 50489390
’=========================================================
Function RegRemoveHref(HTMLstr)
 Set ra = New RegExp
 ra.IgnoreCase = True
 ra.Global = True
 ra.Pattern = "<a[^>]+>(.+?)<\/a>"
 RegRemoveHref = ra.replace(HTMLstr,"$1")
END Function