网络营销电子商务研究中心 - 去除字符串中所有的超级链接

以下是函数源代码：

Code:

’========================================================= 

’** 函数：RemoveHref_A 

’** 作用：去除字符串中所有的超级链接  

’** 作者：阿里西西 

’** 时间：2005-11-10 

’** 网站：http://www.alixixi.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