Question

如何去掉所有HTML标记,只保留纯文本

Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"") ................................

其中 re.Pattern="<(.[^>]*)>" 表示去了< >中的内容。但是，我想去了空格字符。如何去啊。
如何去了   这个空格字符啊。

Answer 1

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