您当前的位置: 就像我们将一个网页内容复制，粘贴到记事本中一样。
如果一段html文本代码：
<p><b>欢迎</b>访问<a href="http://www.baidu.com">百度</a>!您<font color="#FF00FF">可以</font>在<a href="http://zhidao.baidu.com">百度知道</a>中提问题。</p>
转换成纯文本就变成了：
欢迎访问百度!您可以在百度知道中提问题。
请问这样的vbscript应该如何编写。要求用vbscript。
------解决方案--------------------
var str="<p> <b>欢迎 </b>访问 <a href="http://www.baidu.com">百度 </a>!您 <font color="#FF00FF">可以 </font>在 <a href="http://zhidao.baidu.com">百度知道 </a>中提问题。 </p>";
var re=/<[^>]*>/g;
alert(str.replace(re,""));
------解决方案--------------------
1楼的是Javascript用法，我来VBScript的：
- VBScript code
'***********************************************************************************************
'用正则表达式匹配替换字符串，返回替换后的字符串，匹配尽可能多次。
'regPattern: 匹配模式；regString: 待匹配字符串；subString: 用来替换的字符串。
'***********************************************************************************************
Function RegReplaceAll(regPattern, regString, subString)
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.pattern = regPattern
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.MultiLine = True
RegReplaceAll = myRegExp.Replace(regString, subString)
End Function
SourceHTML = "<p> <b>欢迎</b>访问<a href=""http://www.baidu.com"">百度</a>!您<font color=""#FF00FF"">" _
& "可以</font>在<a href=""http://zhidao.baidu.com"">百度知道</a>中提问题。</p> "
re = "<[^>]*>"
Msgbox RegReplaceAll(re,SourceHTML,""),,"HTML中的文本内容"
------解决方案--------------------