代码如下：
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
这是最基本的正则替换，有某些特殊字符还没过滤，可自行添加！
如：
RemoveHTML = Replace(RemoveHTML," ","")
大家有碰到过要想取一字符串里的某些值而无从下手？有没有觉得看书或教材对split的写法糊里糊涂……如果有此疑问的话，请看下面我对例子的解释，相信您会对这个有一定的了解。
我先介绍一下Split函数的用法:
返回值数组 = Split("字符串","分割符")
假设变量strURL保存着URL值，如strURL = "ftp://username ......
1. 超链接的图片去掉边框的方法：
在 语句里加上 border=0
如：<img border=0
src="sadf.jpg">
2.鼠标放上去图片变色的方法：
用到了标签的事件功能，调用方法是 function="this.src='asdf.jpg'"
如� ......
跨行合并：rowspan, 跨列合并： colspan.
<table border=2 width="50%">
<tr>
<td rowspan=2> 天朝 </td>
<td> Party </td>
</tr>
<tr><td>河蟹</td></tr>
</table>
<table border=2 width="50%">
<tr&g ......
