去除字符串中所有的超级链接
日期：2011-09-16 浏览次数：20901 次
| 以下是函数源代码： ’========================================================= ’** 函数：RemoveHref_A ’** 作用：去除字符串中所有的超级链接 ’** 作者：爱易学习网 ’** 时间：2005-11-10 ’** 网站：http://www.aiyiweb.com/ ’========================================================= Function RemoveHref_A(HTMLstr) Dim n,str1,str2,str3,str4 HTMLstr = Lcase(HTMLstr) For n=1 to Ubound(Split(HTMLstr,"<a")) str1 = Instr(HTMLstr,"<a") str2 = Instr(str1,HTMLstr,">") HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2))) HTMLstr = replace (HTMLstr,"</a>","") RemoveHref_A = HTMLstr Next End Function |
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
