CrLf

测试下面这段好像正常的哟

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
复制代码