复制代码 代码如下:

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))