2007-09-04, 04:12 PM
|
|
超级版主
|
|
Join Date: 2006-01-04
Posts: 1206
|
|
去除链接的一个正则式函数
去除链接的一个正则式函数,以下是函数源代码：
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
|
|