aspRegex匹配數字$數字$數字$

複製代碼 代碼如下: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))