VBA中的正则表达式（一）

宏蜘蛛

已于 2022-07-30 10:52:21 修改

阅读量2.4k

点赞数

文章标签：正则表达式

于 2022-07-29 23:28:02 首次发布

原文链接：https://mp.weixin.qq.com/s?__biz=MzkxNTI4NzgzNQ==&mid=2247483870&idx=1&sn=1dd4feb41ef9e3e180030b1baeb23a03&chksm=c1603baaf617b2bc3e69eec5a2de44aeaabfa8563f7b9eec3575f408f15db395eed02fe63aab&token=812408781&lang=zh_CN#rd

版权

本文介绍了VBA中正则表达式对象的Global属性，用于在文本中查找所有匹配项。当Global为True时，能匹配所有符合规则的文本，而为False时仅匹配第一个。通过实例展示了不同设置下的匹配结果，帮助理解该属性在实际操作中的作用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VBA中的正则表达式（一）

——Global属性

1. 正则表达式的用处

从给定的文本中，找到符合正则表达式规则的文本，并提取出来。例如从一串字符串中找到电话号码、找到邮箱地址等。

上述是正则表达式的其中一个用法

2. 正则表达式对象引入

Sub regular_study()
    '创建正则表达式对象，并命名为re
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
End Sub

3. Global属性的作用

Global属性只有两个可选状态，True或False。

Global属性案例

Sub regular_study()
    '创建正则表达式对象，并命名为re
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    With re
        .Global = True'.Global = False
        'mytxt为案例的文本
        mytxt = "宏蜘蛛欢迎你!下面开始学习宏蜘蛛正则表达式教程。"
        'Pattern，表示查找mytxt文本中是否有“宏蜘蛛”
        .Pattern = "宏蜘蛛"
        '将查找的结果赋值给myresults，返回的结果是个数组
        Set myresults = .Execute(mytxt)
        For Each myresult In myresults
            Debug.Print myresult
        Next
        Debug.Print "mytxt字符串中（宏蜘蛛）的个数为:" & myresults.Count
    End With
End Sub

为True时的输出结果↓

全文有两处“宏蜘蛛”，已全部匹配出来。

宏蜘蛛
宏蜘蛛
mytxt字符串中（宏蜘蛛）的个数为:2

为False时的输出结果↓

全文有两处“宏蜘蛛”，只匹配一处。

宏蜘蛛
mytxt字符串中（宏蜘蛛）的个数为:1

4.Global属性总结

当Global为True时，可以匹配整个字符串中，所有与正则表达式规则相符的文本；为False时, 只匹配第一次出现的文本（默认值是False）。

本文章，首发于微信公众号：宏蜘蛛，原文链接：VBA中的正则表达式（一）