深圳网站建设技术博客

'-------------------去掉html js css
Function delHtml(strHtml)

Dim objRegExp, strOutput
Set objRegExp = New Regexp '' 建立正则表达式

objRegExp.IgnoreCase = True '' 设置是否区分大小写
objRegExp.Global = True ''是匹配所有字符串还是只是第一个
objRegExp.Pattern = "(<[a-zA-Z!*].*?>)|(<[\/][a-zA-Z!*].*?>)" '' 设置模式引号中的是正则表达式，用来找出html标签

More...