2.8w+
社区成员
字符串的问题~
我要从一段字符串中截去
也就是去掉一堆标签中的内容该怎么做啊？
像图片的标签<img .....到</img>
连同标签一起去掉
也就是去掉一堆标签中的内容该怎么做啊？
像图片的标签<img .....到</img>
连同标签一起去掉
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
sjmlsxp 2008-04-01
对于没有规则书写的标签
如<br>
这样的标签还是不行的啊
后面的的内容都会丢失
如<br>
这样的标签还是不行的啊
后面的的内容都会丢失
sjmlsxp 2008-04-01
对中文也有效吗？
文盲老顾 2008-04-01
<([a-zA-Z]+)?( [^<>]*?>|>)([\s\S]*?)</\1>
正则调整了下，只匹配闭合的标签
正则调整了下，只匹配闭合的标签
文盲老顾 2008-04-01
<%
Function RegReplace(vStr,vReg,vCode)
Dim Re,sStr
sStr = vStr
Set Re = New RegExp
Re.Pattern = vReg
Re.IgnoreCase = True
Re.Global = True
If Re.Test(sStr) Then
sStr = Re.Replace(sStr,vCode)
End If
RegReplace = sStr
End Function
Dim a
a = "abcdefg<a>this is a link</a>hijklmn<div>this i<b>s a div</div>opq<img src='a.jpg' width=100 height=40 />rst<font size=4>this is a font style</font>uvwxyz<b></b>"
Response.Write RegReplace(RegReplace(a,"<([^<>]*?)/>",""),"<([a-zA-Z]+)?[^<>]*?>([\s\S]*?)</\1>","")
%>sjmlsxp 2008-04-01
[Quote=引用 4 楼 goga21cn 的回复:]
replace(" <img>","")
replace(" </img>","")
[/Quote]
这样不行吧~ 中间的不是变成乱码一样了?
很丑的
replace(" <img>","")
replace(" </img>","")
[/Quote]
这样不行吧~ 中间的不是变成乱码一样了?
很丑的
sjmlsxp 2008-04-01
<script language="javascript">
function nohtml(str)
if not isnull(str) or str <>"" then
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\ <.[^\ <]*\>)"
str=re.replace(str," ")
re.Pattern="(\ <\/[^\ <]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end if
end function
</script>
这样写嘛？ 好像一用所以字符都不见了
function nohtml(str)
if not isnull(str) or str <>"" then
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\ <.[^\ <]*\>)"
str=re.replace(str," ")
re.Pattern="(\ <\/[^\ <]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end if
end function
</script>
这样写嘛？ 好像一用所以字符都不见了
龙宜坡 2008-04-01
replace("<img>","")
replace("</img>","")
两次replace,我这样做过，因为满足了当时需要而已
replace("</img>","")
两次replace,我这样做过，因为满足了当时需要而已
sjmlsxp 2008-04-01
都去掉
也可以考虑替换掉
也可以考虑替换掉
文盲老顾 2008-04-01
<a>asdf</a>
是全去掉，还是保留 asdf 。。。。
是全去掉，还是保留 asdf 。。。。
md5e 2008-04-01
function nohtml(str)
if not isnull(str) or str<>"" then
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end if
end function
if not isnull(str) or str<>"" then
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end if
end function
