在 VB 6.0 中如何使用 RegEx ?

Question

这个类好像 只有 .net 中才有，  vb 6.0 只有 RegExp
但是我需要获得分组匹配的内容，
比如 利用正则式： "([\d]{4})-[\d]{2}-[\d]{2}"  从字符串：“ 我女朋友的生日是：1983-11-12”
中获得年份

Answer 1

另外，vb 中能不能使用 perl 风格的正则表达式，那个用起来比较顺手

Answer 2

'引用Microsoft VBScript Regular Expressions 5.5
    Dim s As String
    Dim p As String
    Dim reg As RegExp
    Dim mc As MatchCollection
    Dim m As Match
    Dim sms As SubMatches
    Dim i As Long
    
    s = "我女朋友的生日是：1983-11-12"
    p = "([\d]{4})-([\d]{2})-([\d]{2})"
    
    Set reg = New RegExp
    reg.Pattern = p
    Set mc = reg.Execute(s)
    
    For Each m In mc
        MsgBox m.Value
        
        Set sms = m.SubMatches
        For i = 0 To sms.Count - 1
            MsgBox sms.Item(i)
        Next i
        Set sms = Nothing
    Next m
    Set mc = Nothing
    
    Set reg = Nothing

Answer 3

谢谢 bdhh(Silent) ，  正是我要的答案 :)