VBScript正则表达式应用一例

在采用在线编辑器的新闻发布系统中，内容中一般包含HTML标记，为了在首页显示新闻的摘要（最前面的一些内容），需要过滤HTML标记，否则将造成页面的混乱。下面的VB的函数实现了这个功能。

RegexFilter(str)
Set regEx = New RegExp  
regEx.IgnoreCase = True  
regEx.Global = True
regEx.Pattern="< table[^>]*>(.*?)< /table>"  '过滤整个表格
str = regEx.Replace(str, "")
regEx.Pattern="< img[^>]*>" '过滤图像
str = regEx.Replace(str, "")
regEx.Pattern="<[^>]*>" '清除所有的HTML标记
str = regEx.Replace(str, "")
RegexFilter=str
End