Regular Expression Example - Test Method

Function RegExpTest(patrn, strng) 
Dim regEx, retVal                    ' Create variable. 
Set regEx = New RegExp     ' Create regular expression. 
regEx.Pattern = patrn                    ' Set pattern. 
regEx.IgnoreCase = False        ' Set case sensitivity. 
retVal = regEx.Test(strng)   ' Execute the search test.
If retVal Then 
  RegExpTest = "One or more matches were found." 
  RegExpTest = "No match was found." 
End If 
End Function 
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4")) 
The University of Southern California does not screen or control the content on this website and thus does not guarantee the accuracy, integrity, or quality of such content. All content on this website is provided by and is the sole responsibility of the person from which such content originated, and such content does not necessarily reflect the opinions of the University administration or the Board of Trustees