Question

ASP如何去掉文章中所有空格，所连续空格

'取消HTML,UBB代码
Public Function LoseHtml(ByVal ContentStr)
If IsNul(ContentStr) Then LoseHtml="": Exit Function
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True

objRegExp.Pattern = "<.+?>"
Set Matches = objRegExp.Execute(ContentStr)
For Each Match in Matches
ContentStr=Replace(ContentStr,Match.Value,"")
Next
objRegExp.Pattern = "\[.+?\]"
Set Matches = objRegExp.Execute(ContentStr)
For Each Match in Matches
ContentStr=Replace(ContentStr,Match.Value,"")
Next
LoseHtml=ContentStr
Set objRegExp = Nothing
End Function

这代码只能去掉HTML标签，高手能改一下吗？谢谢

Answer 1

将下面这句
LoseHtml=ContentStr

改为
LoseHtml=Replace(ContentStr, " ", "")
就可以删掉空格了. 如果有全角空格,就换成
LoseHtml=Replace(Replace(ContentStr, " ", ""), "　","")

Answer 2

replace啊，替换啊。。。

楼上说了。。