VBA中的正则表达式（二）

最新推荐文章于 2025-01-20 13:50:39 发布

宏蜘蛛

最新推荐文章于 2025-01-20 13:50:39 发布

阅读量612

点赞数 1

文章标签：正则表达式

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

版权

VBA中的正则表达式（二）

——IgnoreCase属性

1. IgnoreCase属性

IgnoreCase属性有两个可选值，True或False。

2. IgnoreCase属性案例

Sub regular_study()
    '创建正则表达式对象，并命名为re
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    With re
        .Global = True '匹配字符串中，所有与正则表达式规则相符的地方
        .IgnoreCase = True '匹配时是否区分大小写
        'mytxt为案例的文本
        mytxt = "Welcome to HIMACROSPIDER! Let's start with the himacrospider regular expression tutorial."
        'Pattern表示，查找mytxt文本中是否有“HIMACROSPIDER”
        .Pattern = "HIMACROSPIDER"
        '将查找的结果赋值给myresults，返回的结果是个数组
        Set myresults = .Execute(mytxt)
        For Each myresult In myresults
            Debug.Print myresult
        Next
        Debug.Print "mytxt字符串中（HIMACROSPIDER）的个数为:" & myresults.Count
    End With
End Sub

3. 为True时的输出结果↓

HIMACROSPIDER
himacrospider
mytxt字符串中（HIMACROSPIDER）的个数为:2

全文有两处“HIMACROSPIDER”，一处为大写，另一处为小写，当IgnoreCase为True时，即便表达式为大写，也批到了小写的“himacrospider”。

4. 为False时的输出结果↓

HIMACROSPIDER
mytxt字符串中（HIMACROSPIDER）的个数为:1

全文有两处“HIMACROSPIDER”，一处为大写，另一处为小写，当IgnoreCase为False时，只匹配到了和表达式一样的全为大写的“HIMACROSPIDER”，而没有匹配到小写的“himacrospider”。

5. IgnoreCase属性总结

当IgnoreCase为True时，表示匹配时不区分大小写（大写A和小写a是相同的）；当IgnoreCase为False时，表示匹配时区分大小写（大写A和小写a是不同的）；默认值是False。

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