最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

asp正則表達(dá)式匹配數(shù)字$數(shù)字$數(shù)字$

 更新時(shí)間:2008年04月26日 21:26:50   作者:  
用asp實(shí)現(xiàn)的匹配:數(shù)字$數(shù)字$數(shù)字$...... 的正則
    
復(fù)制代碼 代碼如下:

Dim strOk,strNo 
    strOk = "12312321$12312312312$12312321$" 
    strNo = "12312321$12312312312$12312321$sdfsd" 

    Function RegExpTest(patrn, strng) 
        Dim regEx, match, matches   ' 建立變量。 
        Set regEx = New RegExp   ' 建立規(guī)范表達(dá)式。 
        regEx.Pattern = patrn   ' 設(shè)置模式。 
        regEx.IgnoreCase = True   ' 設(shè)置是否區(qū)分字母的大小寫。 
        regEx.Global = false   ' 設(shè)置全程性質(zhì)。 
        set matches= regEx.Execute(strng)   ' 執(zhí)行搜索。 
        for each match in matches      ' 重復(fù)匹配集合 
            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))

相關(guān)文章

最新評論

曲靖市| 怀来县| 福安市| 二连浩特市| 安仁县| 贡嘎县| 岱山县| 合山市| 巴中市| 宁南县| 南昌县| 龙江县| 金寨县| 获嘉县| 治多县| 芮城县| 新巴尔虎左旗| 张家口市| 新闻| 崇文区| 曲阳县| 富宁县| 延安市| 镇平县| 岳西县| 临海市| 友谊县| 肇源县| 哈巴河县| 古丈县| 永吉县| 靖边县| 社旗县| 原阳县| 昭苏县| 温州市| 江津市| 文成县| 揭西县| 石台县| 临沭县|