字符串的问题~

[sjmlsxp]

我要从一段字符串中截去
也就是去掉一堆标签中的内容该怎么做啊？
像图片的标签<img .....到</img>
连同标签一起去掉

[md5e]

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

[文盲老顾]

<a>asdf</a>

是全去掉，还是保留 asdf 。。。。

[sjmlsxp]

都去掉
也可以考虑替换掉

[龙宜坡]

replace("<img>","")
replace("</img>","")

两次replace,我这样做过，因为满足了当时需要而已

[sjmlsxp]

<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>
这样写嘛？ 好像一用所以字符都不见了

[sjmlsxp]

[Quote=引用 4 楼 goga21cn 的回复:]
replace(" <img>","")
replace(" </img>","")
[/Quote]
这样不行吧~ 中间的不是变成乱码一样了?

很丑的

[文盲老顾]

<%
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>","")
%>

[文盲老顾]

<([a-zA-Z]+)?( [^<>]*?>|>)([\s\S]*?)</\1>

正则调整了下，只匹配闭合的标签

[sjmlsxp]

对中文也有效吗？

[sjmlsxp]

对于没有规则书写的标签
如<br>
这样的标签还是不行的啊
后面的的内容都会丢失