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