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

最新推荐文章于 2025-07-04 20:08:15 发布

原创最新推荐文章于 2025-07-04 20:08:15 发布 · 701 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#正则表达式 #regex #function

技术类文章专栏收录该内容

36 篇文章

订阅专栏

博客展示了使用正则表达式提取<a></a>标签内字符的实例。定义正则表达式对象，设置其属性，包括忽略大小写、全局匹配等，最后将匹配的标签替换为空串，从而获取标签内字符。

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

<%
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>之间的字符