日期:2011-09-16 浏览次数:20776 次
以下是函数源代码: ’========================================================= ’正则式去除链接函数 ’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 |