IgnoreCase 属性

[code]Function RegExpTest(patrn, strng)  Dim regEx,Match,Matches[/code]         [code]' [/code]建立变量。[code]  Set regEx = New RegExp[/code]         [code]' [/code]建立正则表达式。[code]  regEx.Pattern = patrn[/code]         [code]' [/code]设置模式。[code]  [b]regEx.IgnoreCase[/b] = True[/code]         [code]' [/code]设置不区分大小写。[code]regEx.Global=True                       [/code]      [code]' [/code]设置全局可用性[code]set matches=regExExecute(string )       [/code]      [code]' [/code]执行搜索。[code]for each match in matches               [/code]      [code]' [/code]重复匹配集合[code]RetStr=RetStr &"Match found at position "[/code][code]RetStr=RetStr&Match.FirstIndex&".Match Value is '"[/code][code]RetStr=RetStr&Match.Value&"'."&vbCRLF [/code][code]Next[/code][code]RegExpTest=RetStr[/code][code]End Function[/code][code]MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))[/code]