asp正则表达式匹配数字$数字$数字$

复制代码 代码如下:

Dim strOk,strNo 

    strOk = "12312321$12312312312$12312321$" 

    strNo = "12312321$12312312312$12312321$sdfsd"

Function RegExpTest(patrn, strng) 

        Dim regEx, match, matches   ' 建立变量。 

        Set regEx = New RegExp   ' 建立规范表达式。 

        regEx.Pattern = patrn   ' 设置模式。 

        regEx.IgnoreCase = True   ' 设置是否区分字母的大小写。 

        regEx.Global = false   ' 设置全程性质。 

        set matches= regEx.Execute(strng)   ' 执行搜索。 

        for each match in matches      ' 重复匹配集合 

            RetStr=RetStr &"Match found at position " 

            RetStr=RetStr&Match.FirstIndex&".Match Value is '" 

            RetStr=RetStr&Match.Value&"'."&vbCRLF 

        Next 

        IF Not IsEmpty(matches) And matches(0).Value = strng Then 

            RegExpTest = true 

        Else  

            RegExpTest = false 

        End IF 

    End Function 

    MsgBox(RegExpTest("[\d+\$]+", strOk))