正则表达式

 '注意引用VBScript_RegExp_55.RegExp    

Module RegExp

    '========================================   

    'RegExp   1.0   

    'patrn    表达式   

    'strng    检索字符串   

    '========================================   

    Public Function RegExpTest(ByVal patrn, ByVal strng)

        Dim regEx, Match, Matches, RetStr  ' 建立变量。        

        regEx = New VBScript_RegExp_55.RegExp    ' 建立正则表达式。       

        regEx.Pattern = patrn   ' 设置模式。        
        regEx.IgnoreCase = True   ' 设置是否区分大小写。       
        regEx.Global = True   ' 设置全局替换。        
        Matches = regEx.Execute(strng) ' 执行搜索。        
        For Each Match In Matches  ' 遍历 Matches 集合。           
            RetStr = RetStr & "表达式 " & patrn & " 检索到的位置 "
            RetStr = RetStr & Match.FirstIndex & " 检索结果 " '            
            RetStr = RetStr & Match.Value & "." & Chr(13)
        Next
        RegExpTest = RetStr
End Function   
End Module