自学正则表达式过程分享——更新在63楼WORD版本！！！

ctp_119

ctp_119

实例实测十七：        tihuan函数测试(\w)
程太平_119        程太平
6-1. Regexp对象               
    这是正则表达式匹配模式中的主要对象了。其提供的属性用于设置那些用来比较的传递给Regexp实例的字符串的模式；其提供的方法以确定字符串是否与正则表达式的特定模式相匹配。               
    该对象的属性有：               
        pattern          一个字符串，用来定义正则表达式。               
"        IgnoreCase       一个布尔值属性，用来标明是否匹配英文字母的大小写。如果True，则忽略英文字母大小写进行
                         正则表达式的匹配。"               
"        Global           设置或返回一个布尔值，用来标明一个模式是匹配整个搜索字符串中的所有匹配项还是只匹配第
                         一个。如果True，匹配所有匹配项。"               
"        Multiline        设置或返回一个布尔值，用来指明是否在字符串的多行中进行搜索匹配，如果要匹配一个字符串
                         中的多行，请把该属性设置为True；相反设为false。"               
    该对象的方法有：               
        Replace          返回一个将匹配的字符串替换为指定的字符串。               
        Test             返回一个布尔值，该值真假表明正则表达式是否与字符串成功匹配。               
        Execute          返回一个MatchCollection对象，该对象包含每个成功匹配的Match对象。               
下面通过自定义函数一一测试，看其效果。               
实例实测十八：        IgnoreCase测试(缺省或Flase)        IgnoreCase测试(True)
Ctp_119 ctp_119        tp_119 ctp_119        tp_119 tp_119
Function IgnoreCase_test(str As String, pat As String, Optional bl As Boolean = False)               
'Optional定义是参数是可选参数，Optional bl As Boolean = False整句意思是bl为布尔型的可选参数，当缺省时，bl为假。               
Dim reg As RegExp               
Set reg = New RegExp               
With reg               
    .IgnoreCase = bl               
    .Global = True               
    .Pattern = pat               
    IgnoreCase_test = .Replace(str, "")               
End With               
Set reg = Nothing               
End Function               

ctp_119

Function Execute_test(str As String, pat As String)               
Dim S As String               
Dim i As Integer               
Dim reg As RegExp               
Set reg = New RegExp               
With reg               
    .Global = True               
    .MultiLine = True               
    .Pattern = pat               
    Set matchs = .Execute(str)               
    For Each Match In matchs       
        S = S & Match       
        i = i + 1       
    Next       
End With       
Execute_test = S & "——共匹配了" & i & "次"       
Set reg = Nothing       
End Function       
实例实测二二：        Test测试
Ctp_119 ctp_119        119119——共匹配了15次
Function Test_test(str As String, pat As String)       
Dim S As String       
Dim i As Integer       
Dim reg As RegExp       
Set reg = New RegExp       
With reg       
    .Global = True
    .MultiLine = True
    .Pattern = pat
    For i = 1 To VBA.Len(str)
        If .Test(VBA.Mid(str, i, 1)) Then S = S & VBA.Mid(str, i, 1)
    Next i
End With
Test_test = S & "——共匹配了" & i - 1 & "次"
Set reg = Nothing
End Function
我相信大家通过这么多实例实测加以帮助理解，应该没有什么问题了，剩下的是大家自己去一一变通测试。一定要自己动手哟！

风云际会6

支持一下，感谢楼主

delete_007

支持一下，随便说一句：复制贴上来的效果不好。最好再编辑一下。

ctp_119

谢谢大家的捧场，，，我编辑了，开始还出现了乱码。很是郁闷……

sunsoncheng

这个是我一直没有碰的多个内容之一，先留个印，以后学习

ctp_119

sunsoncheng 发表于 2012-6-19 17:03
这个是我一直没有碰的多个内容之一，先留个印，以后学习

正因为如此，才发上来给大家一起分享！！！

jiminyanyan

ctp_119 发表于 2012-6-19 17:05
正因为如此，才发上来给大家一起分享！！！

ctp_119 兄，如有ＷＯＲＤ版本，应更佳．．

ctp_119

感谢赵老师的赏识，看来一个来月的努力没有白费，，，两天下来，没有几个人回帖，着实是我心拔凉拔凉的，后续更新都差点不想发了。。呵呵，，今早一来，，，看见了赏识很是高兴，兴致盎然。谢谢赵老师！！！