Working with strings related functions in QTP with the use of VBScript.

Here I will be covering commonly used string related functions with examples.

 1.     Len : Returns the number of characters in a string

 ‘Usage

 MyStr = “Working with Strings”

 MyStrLen=Len(MyStr)

 msgbox MyStrLen

 Result: QTP shows number of characters in the string in a dialog box

 2.     LTrim : Retruns the copy of a string by removing  leading spaces

 ‘Usage

 MyStr = “                  Working with Strings               ”

 MyStr1 = LTrim(MyStr)

 msgbox MyStr1                 ‘Remove the leading spaces in the string

 Result:  QTP shows the string by removing the leading spaces of the string in a dialog box

 3.     RTrim : Retruns the copy of a string by removing  trailing spaces

 ‘Usage

 MyStr = “                  Working with Strings               ”

 MyStr2 = RTrim(MyStr)

 msgbox MyStr2                 ‘Remove the trailing spaces in the string

 Result:  QTP shows the string by removing the trailing spaces of the string in a dialog box

 4.     Trim : Retruns the copy of a string by removing  both leading and trailing spaces

 ‘Usage

 MyStr = “                  Working with Strings               ”

 MyStr3 = Trim(MyStr)

 msgbox MyStr3                  ‘Remove both the leading and trailing spaces in the string

 Result: QTP shows the string by removing both the leading and trailing spaces of the       string in a dialog box

 5.     Left : Returns the specified number of characters of the string from left side

 ‘Usage

 MyStr = “Working with Strings”

 MyStrLeft = Left(MyStr,5)

 msgbox MyStrLeft              ‘Returns the specified number of characters(5) in the  string from left side

 Result: QTP shows the specified number of characters of the string from left side in a  dialog box

 6.     Right : Returns the specified number of characters of the string from right side

 ‘Usage

 MyStr = “Working with Strings”

 MyStrRight = Right(MyStr,4)

 msgbox MyStrRight            ‘Returns the specified number of characters(4) in the  string from Right side

 Result: QTP shows the specified number of characters of the string from right side in a  dialog box

 7.     Mid : Returns the specified number of characters from a string

 ‘Usage1

 MyStr = “Working with Strings”

 MyStrMid = Mid (MyStr,5)

 msgbox MyStrMid              ‘Returns all the characters starting from 5^th position in the  string

 Result: QTP shows all the characters starting from 5^th position in the string

 ‘Usage2

 MyStr = “Working with Strings”

 MyStrMid1 = Mid (MyStr,5,3)

 msgbox MyStrMid1             ‘Returns 3 characters starting from 5^th position in the  string

 Result: QTP shows 3 characters starting from 5^th position in the string

 8.     UCase : Converts the specified string to Uppercase

 ‘Usage

 MyStr = “Working with Strings”

 MyUpper = UCase(MyStr)

 msgbox MyUpper               ‘Returns all the characters in the string to uppercase

 Result: QTP shows all the characters in the uppercase of the specified string in a dialog box

 9.     LCase : Converts the specified string to Lowercase

 ‘Usage

 MyStr = “Working with Strings”

 MyLower = LCase(MyStr)

 msgbox MyLower               ‘Returns all the characters in the string to Lowercase

 Result: QTP shows all the characters in the lowercase of the specified string in a dialog box

 10.  InStr : Returns the position of the first occurrence of one string with in another  string. This is used for search a string within the string. The search begins at the first  character of the string.

 ‘Usage

 MyStr = “Order number 12345 created successfully”

 MySubStr = “12345”

 Pos=InStr (MyStr,MySubStr)

 msgbox Pos             ‘Returns the position of the first occurrence of the sub string in  the string . If position is 0 then sub string is not available in the string.

 Result: QTP shows position of the first occurrence of the sub string in the string in a dialog box

 11.  StrReverse : Returns the reversed string

 ‘Usage

 MyStr = “Hello World”

 MyReverse = StrReverse (MyStr)

 msgbox MyReverse            ‘Returns the reversed string

 Result: QTP shows reversed string in a dialog box

 12.  StrComp : Compares two strings and returns a value

 a.    Both strings are equal, returns 0

 b.    String1 is greater than String2, returns 1

 c.    String2 is greater than String1, returns -1

 ‘Usage

 MyStr1 = “Hello World”

 MyStr2 = “Hello”

 MyVal = StrComp (MyStr,MyStr1)

 msgbox MyVal                   ‘Returns a value that represents the result of the  comparision

 Result: QTP shows the value in a dialog box

 13.  Here I wanted to explain a scenario with the script by using date and string functions  . For example your application allows the format dd-mm-yy format only. How to handle  this? Below is the solution.

 ‘Usage

 Sysdate = Now

 Sysyear = Year(Sysdate)               ‘Year is in yyyy format so need of any changes

 ‘As per requirement I wanted to use only 2 digits of current year

 ‘Convert the year to string

  yyyy=Cstr(Sysyear)

 ‘Need to get only two digits in the right side

 yy=Right (yyyy,2)

 Sysmonth=Month(Sysdate)           ‘ Here month can be one or two digits

 Mm=Len(Sysmonth)                    ‘ getting the length of the string

 If mm < 2 then

 Retmonth=”0”&mm                    ‘ If the month is one digit then we can concatenate 0  to month

 Else

 Retmonth=mm

 End if

 Sysday=Day(Sysdate)                  ‘ Here day can be one or two digits

 dd=Len(Sysday)                ‘ getting the length of the string

 If dd < 2 then

 Retday=”0”&dd                ‘ If the day is one digit then we can concatenate 0 to day

 Else

 Retday=dd

 End if

 ‘Now concatenate the strings to required format dd-mm-yy

 reqFormat = Retday&”-“&Retmonth&”-“&yy

 msgbox reqFormat