復制代碼 代碼如下:
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ī)范表達式。
regEx.Pattern = patrn ' 設置模式。
regEx.IgnoreCase = True ' 設置是否區(qū)分字母的大小寫。
regEx.Global = false ' 設置全程性質(zhì)。
set matches= regEx.Execute(strng) ' 執(zhí)行搜索。
for each match in matches ' 重復匹配集合
RetStr=RetStr "Match found at position "
RetStr=RetStrMatch.FirstIndex".Match Value is '"
RetStr=RetStrMatch.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))
您可能感興趣的文章:- PHP匹配連續(xù)的數(shù)字或字母的正則表達式
- js正則表達式匹配數(shù)字字母下劃線等
- python正則表達式去掉數(shù)字中的逗號(python正則匹配逗號)
- 匹配5到10位無重復數(shù)字的正則表達式
- JS正則表達式匹配檢測各種數(shù)值類型(數(shù)字驗證)
- 常見的數(shù)字驗證正則表達式整理
- JS正則表達式驗證數(shù)字代碼
- JS只能輸入數(shù)字或數(shù)字和字母等的正則表達式
- 最全的常用正則表達式大全——包括校驗數(shù)字、字符、一些特殊的需求等
- 正則表達式實現(xiàn)匹配連續(xù)數(shù)字的方法