|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.链接|字符串以下是函数源代码:
’=========================================================
’**函数:RemoveHref_A
’**感化:往除字符串中一切的超等链接
’**阿里西西
’**工夫:2005-11-10
’**网站:http://www.alixixi.com/
’=========================================================
FunctionRemoveHref_A(HTMLstr)
Dimn,str1,str2,str3,str4
HTMLstr=Lcase(HTMLstr)
Forn=1toUbound(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
EndFunction
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧 |
|