就像我们将一个网页内容复制，粘贴到记事本中一样。
如果一段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中的文本内容"
------解决方案--------------------------------------------------------