在web开发中，经常我们会需要将html标签过滤后输出，解决的办法有很多，我刚开始采取的是把所有的<和>分别过滤。
但这样暴露出了一个问题，由于我的文章在首页显示，出现了一系列这样的tag很不美观，于是就在想能不能把这些html tags找出来，并过滤掉呢？

于是就写了下面函数可完成此项工作。

Function nohtml(html)
 Dim regex, result      ' 声明变量
 Set regex = New RegExp ' 创建对象

 regex.Pattern  = "(<|<\/)[^>]+>"
 regex.Global     = True

 result = regex.Replace(html, "")
 
 Set regex = Nothing

 nohtml = result

End Function

当然，这个函数重点的是 regex.Pattern,这样你略加改造就会在任何编程语言中使用了。