网络营销电子商务研究中心 - 去除链接的一个正则式函数

网络营销电子商务研究中心 (https://www.0058.net/index.php)

- 代码交流 (https://www.0058.net/forumdisplay.php?f=16)

- - 去除链接的一个正则式函数 (https://www.0058.net/showthread.php?t=2748)

topvip

2007-09-04 04:12 PM

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

去除链接的一个正则式函数,以下是函数源代码：

Quote:

’=========================================================
’正则式去除链接函数
’**: 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

All times are GMT +8. The time now is 09:17 PM.