第一次真正接触正则表达式

以前只是听说，今天在论坛第一次看到具体实例。

<%

Function GetTextFromHtml(strHtml)

Dim strPatrn

strPatrn="<.*?>" '正则表达式串

Dim regEx

Set regEx = New RegExp '定义一个正则表达式对象

regEx.Pattern = strPatrn

regEx.IgnoreCase = True '对正则表达式对象的属性赋值。忽略大小写

regEx.Global = True '从整个字串中找匹配

GetTextFromHtml = regEx.Replace(strHtml,"")'将匹配的字串替换为空串

End Function

response.write GetTextFromHtml("<a href=http://aaa.com>中华人民共和国</a>")

%>

主要的功能是取<a></a>之间的字符