字符串的问题~

sjmlsxp 2008-04-01 05:45:49
我要从一段字符串中截去
也就是去掉一堆标签中的内容该怎么做啊?
像图片的标签<img .....到</img>
连同标签一起去掉
...全文
55 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
sjmlsxp 2008-04-01
对于没有规则书写的标签
如<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]
这样不行吧~ 中间的不是变成乱码一样了?

很丑的
回复
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>
这样写嘛? 好像一用所以字符都不见了
回复
龙宜坡 2008-04-01
replace("<img>","")
replace("</img>","")

两次replace,我这样做过,因为满足了当时需要而已
回复
sjmlsxp 2008-04-01
都去掉
也可以考虑替换掉
回复
文盲老顾 2008-04-01
<a>asdf</a>

是全去掉,还是保留 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
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-01 05:45
社区公告
暂无公告