去除链接的一个正则式函数

2022-07-15 80酷酷网 80kuku.com

　　函数|链接|正则|正则式

以下是函数源代码：
’=========================================================
’正则式去除链接函数
’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