无为清净楼资源网 Design By www.qnjia.com
    复制代码 代码如下:
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))
标签:
asp,正则表达式

无为清净楼资源网 Design By www.qnjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com