Reference Page: Comparison Rules

Automatic Comparison Rules

Relationship: One-to-One / Match In String / Match For String

Definitions

Supported data types: String, Regular Expression

1. Match in String

First argument - base string; second argument - substring / regular expression.

2. Match for String

First argument - substring / regular expression; second argument - base string.

3. Special cases

• Empty string doesn’t match anything but another empty string
• “” != “.*” (empty string is not treated equally as a regex defining any/none character(s))

Implementation

Public Function Regex_Test(ByVal strSrc, ByVal strRegEx)
 Dim objRegEx
 Dim boolRC, intRC
  If strRegEx = "" Then
    If strSrc = "" Then
    Regex_Test = True
    Else
    Regex_Test = False
    End If
  Exit Function
  End If
  Set objRegEx = New RegExp 
 objRegEx.Pattern = strRegEx
 On Error Resume Next
 boolRC = objRegEx.Test(strSrc)
 intRC = Err.Number
 On Error GoTo 0
 If intRC <> 0 Then boolRC = False
 Set objRegEx = Nothing
 Regex_Test = boolRC
End Function

Sample Calls

' Case "MatchIn"
    boolRC = Regex_Test(sActualValue, sExpectedValue)
' Case "MatchFor"
    boolRC = Regex_Test(sExpectedValue, sActualValue)

Test Code

  Log.Message("RegEx routines")
  boolRC = Regex_Test("lorem ipsum", "ore")
  If Not boolRC Then
    Log.Error("Regex_Test failed")
  End If
  boolRC = Regex_Test("lorem ipsum", "  psu")
  If boolRC Then
    Log.Error("Regex_Test failed")
  End If
  boolRC = Regex_Test("", "abc")
  If boolRC Then
    Log.Error("Regex_Test failed")
  End If
  boolRC = Regex_Test("abc", "")
  If boolRC Then
    Log.Error("Regex_Test failed")
  End If
  boolRC = Regex_Test("", "")
  If Not boolRC Then
    Log.Error("Regex_Test failed")
  End If
  boolRC = Regex_Test("lorem ipsum dre", ".*re.+")
  If Not boolRC Then
    Log.Error("Regex_Test failed")
  End If