Public Function GetMatches(ByVal patrn, ByVal strng, ByRef MatchesCount, ByRef SubMatchesCount, ByVal regExIgnoreCase, ByVal regExGlobal)
    Dim regEx, Match, Matches            ' 建立变量。
    Dim arrMatch()

    Set regEx = New RegExp               ' 建立正则表达式。
    regEx.Pattern = patrn                ' 设置模式。
    IF regExIgnoreCase="" Then           ' 设置不区分字符大小写。
       regEx.IgnoreCase = True   
    ELSE
       regEx.IgnoreCase = regExIgnoreCase
    End IF                          
    IF regExGlobal="" Then 
       regEx.Global = True
    ELSE
       regEx.Global = regExGlobal
    End IF                               ' 设置全局可用性。
    
    Set Matches = regEx.Execute(strng)   ' 执行搜索。
    
    MatchesCount=Matches.Count           ' 获取匹配数量
    SubMatchesCount=Matches(0).SubMatches.Count

    ReDim arrMatch(MatchesCount)
    ReDim arrMatch(Matches.count,SubMatchesCount)

    n=1     
    For Each Match in Matches           ' 遍历匹配集合。
        arrMatch(n,0)=Match.Value
        For t=1 to Match.SubMatches.Count
            arrMatch(n,t)=Match.submatches(t-1)
        next
        n=n+1
     Next
     
     Set regEx = Nothing
     GetMatches = arrMatch             ' 返回匹配矩阵
End Function
复制代码

Dim arrMatches()
arrMatches=GetMatches(patrn,str,mcount,smcount,true,true)
复制代码

Dim arrMatches
arrMatches=GetMatches(patrn,str,mcount,smcount,true,true)
复制代码

Sub Include(sInstFile)
    On Error Resume Next
 
    Dim oFSO, f, s
 
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    If oFSO.FileExists(sInstFile) Then
        Set f = oFSO.OpenTextFile(sInstFile)
        s = f.ReadAll
        f.Close
        ExecuteGlobal s
    End If
    Set oFSO = Nothing
    Set f = Nothing
End Sub
复制代码

Public Sub GetMatches(ByRef arrMatch(), ByRef patrn, ByVal strng, ByRef MatchesCount, ByRef SubMatchesCount, ByVal regExIgnoreCase, ByVal regExGlobal)
复制代码