Test 方法

对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示是否找到匹配的模式。 [code]object.Test(string)[/code]

object 必选项。总是一个 RegExp 对象的名称。 string 必选项。要执行正则表达式搜索的文本字符串。

正则表达式搜索的实际模式是通过RegExp对象的Pattern属性来设置的。RegExp.Global属性对Test方法没有影响。 如果找到了匹配的模式，Test方法返回True；否则返回False。 下面的代码说明了Test 方法的用法。

[code]Function RegExpTest(patrn, strng)  Dim regEx, retVal            ' [/code]建立变量。[code]  Set regEx = New RegExp         ' [/code]建立正则表达式。[code]  regEx.Pattern = patrn         ' [/code]设置模式。[code]  regEx.IgnoreCase = False         ' [/code]设置是否区分大小写。[code]  retVal = regEx.Test(strng)[/code]         [code]' [/code]执行搜索测试。[code]  If retVal Then[/code][code]    RegExpTest = "[/code]找到一个或多个匹配。[code]"[/code][code]  Else[/code][code]    RegExpTest = "[/code]未找到匹配。[code]"[/code][code]  End If[/code][code]End Function[/code][code]MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))[/code]