函數TestRegExp(ByVal myString$，ByVal myPattern$，可選myMark$ = "gimt "，可選myRepString$)
如果myString = " "或myPattern = " "那麽
TestRegExp = " "
調試。打印“數據不能為空”
退出功能
如果…就會結束
創建對象。
Dim objRegExp As RegExp
Dim對象匹配作為匹配
Dim列匹配作為匹配集合
Dim RetStr作為字符串
Set objRegExp = New RegExp
常規公式
objRegExp。模式=我的模式
IIf(InStr(myPattern，" s ")& lt；& gt0，""，myPattern)
區分大小寫嗎？
objRegExp。ignore case = IIf(InStr(LCase $(my mark)，" I ")& gt；0，真，假)
它是全球性的嗎？
objRegExp。Global = IIf(InStr(LCase$(myMark)，" g ")& gt；0，真，假)
妳想打包嗎？
objRegExp。MultiLine = IIf(InStr(LCase $(my mark)，" m ")& gt；0，真，假)
如果objRegExp。然後測試(myString)
If InStr(myMark，" r ")& gt；那麽0
調試。打印“替換”
RetStr = objRegExp。Replace(我的字符串，我的字符串)
調試。打印IIf(RetStr <。& gt""，"替換結果" &；Left(RetStr，10)，“找不到可替換的字符”)
其他
調試。打印“搜索”
Set colMatches = objRegExp。執行(myString)'執行搜索。
MsgBox列匹配。數數
對於colMatches的Iterate Matches集合中的每個objMatch。
RetStr = RetStr & ampobjMatch。第壹索引
RetStr = RetStr & ampobjMatch。價值與價值。vbCrLf
然後
調試。打印IIf(RetStr <。& gt""，"搜索結果" &；Left(RetStr，10)，“未找到匹配結果”)
如果…就會結束
其他
RetStr = " "
調試。打印“未找到匹配結果，請檢查常規公式是否正確”
如果…就會結束
TestRegExp = RetStr
結束功能