回头望望，为了走得更稳 - 正则表达式

赵国辉

很久没看正则了，似乎慢慢遗忘了，今天复习下正则中两个对象的5个属性，高手绕过，纯属扫盲

'1、matches集合的count、item属性
Sub matches()
    Dim reg As Object
    Dim s As String
    Dim i As Byte
    Dim matches As Object
    Set reg = CreateObject("vbscript.regexp")
    s = "a25b31c67d4e"
    With reg
        .Global = True
        .Pattern = "\d+"
        Set matches = .Execute(s)
    End With
    MsgBox "匹配结果集合中元素个数为：" & matches.Count 'count属性
    For i = 1 To matches.Count
        MsgBox "matches集合中第" & i & "个元素为：" & matches.Item(i - 1) 'item属性
    Next
End Sub
'2、match 对象firstindex属性、length属性、value属性
Sub match()
    Dim reg As Object
    Dim s As String
    Dim i As Byte
    Dim match As Object, matches As Object
    Set reg = CreateObject("vbscript.regexp")
    s = "a11b22c32d43e"
    i = 1
    With reg
        .Global = True
        .Pattern = "\d+"
        Set matches = .Execute(s)
    End With
    For Each match In matches
        MsgBox "matches集合中第" & i & "个元素在字符串中" & vbCrLf _
               & "位置：" & match.firstindex & vbCrLf _
               & "长度为：" & match.Length & vbCrLf _
               & "值为：" & match.Value
        i = i + 1
    Next
End Sub

2009年9月2日，前行的路上，不要忘记回头望望，为了走的更稳！

[ 本帖最后由 taller 于 2009-9-5 02:24 编辑 ]

ty1013

赵老师，请问正则如何用呀，

赵国辉

论坛上关于正则的基础很多，可以先搜搜看看
模式很固定的
主要掌握好pattern属性的构建就行了
具体问题再讨论吧

Moneky

收藏学习，对于我来说是我的空白区。谢谢楼主！

flying_micky

很久以前就想用，不过总是偷懒。。。
正则其实很好的

LWLZ001

多谢，你温故我知新

Qinqinjiang

找到组织了，太好了~经典

fankairong

这个必须得好好学习学习，谢谢了

赵莲

{:soso_e191:}hao{:soso_e102:}

gameshan

很好。正则表达式很犀利