复制代码 代码如下:
DimstrOk,strNo
strOk="12312321$12312312312$12312321$"
strNo="12312321$12312312312$12312321$sdfsd"

FunctionRegExpTest(patrn,strng)
DimregEx,match,matches'建立变量。
SetregEx=NewRegExp'建立规范表达式。
regEx.Pattern=patrn'设置模式。
regEx.IgnoreCase=True'设置是否区分字母的大小写。
regEx.Global=false'设置全程性质。
setmatches=regEx.Execute(strng)'执行搜索。
foreachmatchinmatches'重复匹配集合
RetStr=RetStr&"Matchfoundatposition"
RetStr=RetStr&Match.FirstIndex&".MatchValueis'"
RetStr=RetStr&Match.Value&"'."&vbCRLF
Next
IFNotIsEmpty(matches)Andmatches(0).Value=strngThen
RegExpTest=true
Else
RegExpTest=false
EndIF
EndFunction
MsgBox(RegExpTest("[\d+\$]+",strOk))