Working with Regular Expression Object in UFT /QTP. – User friendly Tech help
Today we are going to touch the key concept in Regular Expression i.e “Creation of Regular Expression object” and using this we’ll search a given pattern in a string.Regular expression is a frequently used concept in Automation WORLD.
n
nScenario:- To find the existence of a pattern inside a string which is present in Your
n
napplication (AUT).
n
nSolution:-
n
Let’s break the code into smaller steps:-
n
Step1:- Creating regular expression object
n
Method1:- Set objRegExp = CreateObject(“VBScript.RegExp”)
n
Method2:- Set objRegExp = New RegExp
n
Step2:-Using the above object to set the Search pattern
n
objRegExp.Pattern = “Test Pattern”
n
Step3:- Ignore Case insensitivity (By default it is enabled)
n
objRegExp.IgnoreCase = False
n
Step4:- To check pattern should match all occurrences in an entire search string or
njust the first one.( (By default it is True)
n
objRegExp..Global = True
n
Note:- Regular expression object has Pattern,IgnoreCase and Global property.
n
Step5:-We will use the Test method, which returns Boolean value, based on the
npattern match in the given string.
n
objRegExp.Test(v_String)
n
Note:- Regular expression has Test, Execute and Replace methods.
n
Code:
n
'*******************************************Sub***************************************************
'Function Name:- fnPatternMatch
'Function Description:- Used to check the particular pattern inside
a given string
'Input Parameters:- Pattern to be searched , String
'Output Parameters:- None
'Created By :- www.uftHelp.com
'Date:- 17th Feb,2014
'****************************************************************************************************
Function fnPatternMatch(v_String,v_Pattern)
' Create variable.
Dim objRegExp
' Create regular expression object
Set objRegExp = New RegExp
'Set objRegExp = CreateObject("VBScript.RegExp")
With objRegExp
.Pattern = v_Pattern ' Set pattern.
.IgnoreCase = False ' Set case insensitivity.
.Global = True ' Set global applicability.
End with
' Test the occurence of pattern inside the string v_Flag = objRegExp.Test(v_String)
'Check whether pattern is found
If v_Flag Then
fnPatternMatch = "Match is Found"
Else
fnPatternMatch = "Sorry! No match found"
End If
Set objRegExp = Nothing
End Function
msgbox fnPatternMatch("uftHelp.com Your first TestingHelp","uftHelp.com")
msgbox fnPatternMatch("uftHelp.com Your first TestingHelp","uftHelp.in")
