去除字符串中所有的超级链接

链接|字符串

以下是函数源代码:
’=========================================================
’** 函数: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
时间: 2024-09-17 04:12:50

去除字符串中所有的超级链接的相关文章

asp 去除字符串中的空格和数字正则表达式

本文章为你提供一款超好的asp教程 去除字符串中的空格和数字正则表达式哦,这四款替换空格与数字的正则是各有不同哦. <script language="网页特效" type="text/javascript"> var str; str="10    3333    abc123"; var rg; rg=/[0-9]{1,}|s/ig; var newstr=str.replace(rg, ""); docume

指针-新手OJ,C语言 去除字符串中的所有空格模块, 不知为何出错,求大神指点

问题描述 新手OJ,C语言 去除字符串中的所有空格模块, 不知为何出错,求大神指点 作用: 把数组a中的所有空格去除, 并把后面的往前移动.例如: a b c变成:abc 字符指针 *p *q 数组a[] for(p=&a[0]; p!=''; p++)if(*p==' ')for(q=p; *(q+1)!=''; q++)*q=(q+1); //去除a字符串中的空格 但总是不对, 求大神指点. 解决方案 #include<stdio.h>int main(){ char str[20

怎么去除百度中网站的死链接

问题描述 怎么去除百度中网站的死链接 我们做的网站:www.kiford.com 中间进行过改版,后来就导致了在百度上有很多死链,在百度站长工具上也提交了这些死链,但是死链依然存在,难道是要等2三个月才能去除死链?百度在对待死链上是一种什么样的机制? 解决方案 1.网站有三个月的黑洞期,着急不来: 2.改版如果提交改版的规则,一般一个月左右会生效,并不会删除就生效: 3.死链对网站影响很大,尽量避免死链: 4.js的网页提交效果不好,建议采用上面的实时提交工具. 5.页面尽量静态化,不行的话搞伪

VB 6.0关于在菜单控件中添加一个超级链接的问题

问题描述 VB 6.0关于在菜单控件中添加一个超级链接的问题 在VB 6.0编程系统中怎么在主菜单条控件上增加一个超级链接,点超级链接就打开公司的购买网站页面? 解决方案 可以把超链接放在coolbar的带区上,把菜单条也放入coolbar实现.

C语言实现去除字符串中空格的简单实例_C 语言

在网上看了些去除空格的代码,觉得都不是很简洁,就自己写代码实现它本着高效率,不使用额外存储空间的想法实现该功能去除空格一共有三种: 1.去除全部空格: 2.一种是去除左边空格: 3.去除右边空格  想去除左右两边空格,只要先去除左边再去除右边的就行了 以下是实现代码: /*去除字符串中所有空格*/ voidVS_StrTrim(char*pStr) { char *pTmp = pStr; while (*pStr != '/0') { if (*pStr != ' ') { *pTmp++ =

sql函数实现去除字符串中的相同的字符串_MsSql

复制代码 代码如下: ---去除字符串中重復的值函數 create function StringRemove(@str nvarchar(2000)) returns varchar(2000) as begin declare @result nvarchar(2000),@temp nvarchar(1000) set @result='' set @temp='' while(charindex(',',@str)<>0) begin set @temp=substring(@str,

sqlserver中去除字符串中连续的分隔符的sql语句_MsSql

以下测试用于去除任何字符串中连线的分隔符 复制代码 代码如下: --去除字符串中连续的分隔符 declare @str nvarchar(200) declare @split nvarchar(200),@times int set @str='中 国1 2 34 55 5 6 7 7';--字符 set @split=' '; --分隔符 select @times=(len(@str)-len(replace(@str,@split+@split,'')))/2 while @times>

Java去除字符串中的数字

//去除字符串中的数字 private void testString(){ String string="0079527大白菜"; char foodName[]=string.toCharArray(); StringBuilder stringBuilder=new StringBuilder(); for (int i = 0; i < foodName.length; i++) { char c=foodName[i]; boolean isDigit=Characte

Sql: 去除字符串中的相同的字符串函數

---去除字符串中重復的值函數 create function StringRemove(@str nvarchar(2000)) returns varchar(2000) as begin declare @result nvarchar(2000),@temp nvarchar(1000) set @result='' set @temp='' while(charindex(',',@str)<>0) begin set @temp=substring(@str,1,charindex