测试下面这段好像正常的哟- data = "fasdfasdf"&vbCrLf&"_ffsafdwsaf"
-
- set ms = RegExMatch(data, "asdfasdf@<")
- MsgBox ms.count
-
- Function RegExMatch(ByRef inputstr, Pattern)
- Set re = New RegExp
- re.Pattern = Pattern
- re.IgnoreCase = True
- re.Global = True
- MsgBox "呵呵呵,脚本要停止运行了..下面的 MsgBox 你看不见了."
-
- Set RegExMatch = re.Execute( inputstr )
- MsgBox "你看不见我,你看不见我"
- End Function
复制代码
|