Question

如何去掉HTML标记中的全部空格符号？

Function cutStr(str,strlen)
'去掉所有HTML标记
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing............................................. 等。

内容中调用使用的是：&cutStr(rs("info"),130)&

我只能理解 re.Pattern="<(.[^>]*)>" 是去了< >中的一切。但是空格符号呢   ；
如何去掉呢。

求用上面的代码，去了文本中全部的空格符号。调用需要。只调用纯文本。

Answer 1

空格不仅仅是按空格键所产生的空格，还包括按tab键、回车键等产生的空格，因为这些空格有html的标记中是合法的。js中的这类空格是\s，我不知道vbs中的是不是，你试一下，把你的re.Pattern="<(.[^>]*)>" 换成re.Pattern="<(\s+)>"

Answer 2

set re=Nothing
后面加上下面两行就行了。
str=Replace(str," ","")
str=Replace(str,"　","")
一个是去掉普通空格，一个是去掉全角空格。