22 Basic VB Script Built in Functions QTP Test Engineer Should Know

1) Asc Function

'Returns ANSI character code corresponding to first letter in a string
Dim val
val="hyderabad"
' it treats as H
val=Asc(val)
msgbox val
2) Chr Function

Returns the character associated with the specified ANSI character code.
Dim val
val=65
val=Chr(val)
msgbox val 
'Output: A
3) Date Function

It returns current system Date
Dim myDate
myDate=Date
msgbox myDate
4) Abs Function

It returns obsolute value of the given number.
Dim num
num=157.56
num=Abs(num)
msgbox num 'Output: 157.56
num=-157.56num=Abs(num)msgbox num 'Output: 157.56
Note: It provide positive value
5) Array Function

We can enter list of values using this function
Ex:
Dim var
'List of strings
var=Array("Kolkata","Howrah", "Hoogly")
msgbox var(0) 'output: Kolkata
msgbox var(1) 'output: Howrah
msgbox var(2) 'output: Hoogly

'List of numeric values
var=Array(100,200, 300)
msgbox var(0) 'output: 100
msgbox var(1) 'output: 200
msgbox var(2) 'output: 300

'List of mixed values
var=Array(100,"India", #01-05-2010#)
msgbox var(0) 'output: 100
msgbox var(1) 'output: India
msgbox var(2) 'output: 01/05/2010
6) IsArray Function

It checks weather the given variable is an Array or not
Dim var1, var2,x
'List of strings
var1=Array("Kolkata","Howrah", "Hoogly")
x=isArray(var1) 'It returns True/False like Result
msgbox x
x=isArray(var2) 
msgbox x
7) IsDate

It checks weather the given value is Date type data or not
Examples:
Dim myDate,
myDate=100
x=IsDate(myDate)
msgbox x 
'Output: False
myDate="India"
x=IsDate(myDate)
msgbox x
'Output: False
myDate=#10/05/2010#
x=IsDate(myDate)
msgbox x 
'Output: True
myDate=#10-05-2010#
x=IsDate(myDate)
msgbox x 'Output: True
myDate=#10-05-10#
x=IsDate(myDate)
msgbox x 
'Output: True
myDate=10-05-2010
x=IsDate(myDate)
msgbox x 
'Output: False
8) DateDiff Function

It provides difference between two dates, based on interval (day/month)
Dim Date1, Date2,x
Date1=#10-10-2008#
Date2=#10-09-2010#
x=DateDiff("d", date1,date2) 
'd for day
msgbox x
' It subtracts date1 from date2
x=DateDiff("m", date1,date2)
' m for month
msgbox x
' It subtracts date1 from date2
x=DateDiff("y", date1,date2) 
'it considers days only
msgbox x
' It subtracts date1 from date2Note: through this function, we can day or month wise diffrence only.
9) IsNumeric

Example:
Dim val,
xval="100"
x=Isnumeric(val)
msgbox x 
'Output: True
val=100
x=Isnumeric(val)
msgbox x 
'Output: True
x=Isnumeric(500)
msgbox x 
'Output: True
x=Isnumeric("India")
msgbox x 
'Output: False
10) Len Function


It finds legngh of the String
Example:
Dim val,
xval="Delhi"
x=Len(val)
msgbox x 
'Output: 5
val=100
x=Len(val)
msgbox x 
'Output: 3

val="Hoogly100"
x=Len(val)
msgbox x 
'Output: 9

val="hy$@*de"
x=Len(val)
msgbox x 
'Output: 7

val="100"
x=Len(val)
msgbox x 
'Output: 3
val=#10-10-2010#
x=Len(val)
msgbox x 
'Output: 10
x=Len("Krishna")
msgbox x 
'Output: 7
x=Len(Krishna)
msgbox x 
'Output: 0
x=Len()
msgbox x 
'Output: Error
11) Left Function

Returns a specified number of charectors of a given string from left side
Syntax:
variable=Left(string,Lengh)
Example:
Dim val,x
val="Hydro"
x=Left(val,3)
msgbox x 
' Output: Hyd
val="9247837478"
x=Left(val,1)
msgbox x 
' Output: 9
val="H92yderabad"
x=Left(val,3)
msgbox x 
' Output: H92
x=Left(9247837478,5)
msgbox x 
' Output: 92478
val=#10-10-10#
x=Left(val,3)
msgbox x 
' Output: 10
12) Right Function

Returns a specified number of charectors of a given string from Right side
Example:
Dim val,x
val="Cyberabad"
x=Right(val,3)
msgbox x 
' Output: bad
val="9247837478"
x=Right(val,1)
msgbox x 
' Output: 8
val="H92yderabad"
x=Right(val,3)
msgbox x ' 
Output: bad
x=Right(9247837478,5)
msgbox x 
' Output: 37478
val=#10-10-10#
x=Right(val,5)
msgbox x 
' Output: /2010
13) Mid function

Returns a specified number of characters of a given string
Example:
Dim val,x
val="Souravalu"
x=Mid(Val,5,3)
msgbox x 
' Output: val
val="Hyderabad"
x=Mid(Val,5)
msgbox x 
' Output: rabad
val="9247837478"
x=Mid(val,6,5)
msgbox x 
' Output: 37478
val="H92yderabad"
x=Mid(val,1)
msgbox x 
' Output: H92yderabad
x=Mid(9247837478,5)
msgbox x 
' Output: 837478
val=#10-10-10#
x=Mid(val,5)
msgbox x ' Output: 0/2010
14) StrReverse

retuns reverse value of a string
Example:
Dim val,x
val="Hyderabad"
x=StrReverse(val)
msgbox x 
'Output dabaredyH
val="001"
x=StrReverse(val)
msgbox x 
'Output: 100
val=1002
x=StrReverse(val)
msgbox x 
'Output: 2001
val=#10-10-10#
x=StrReverse(val)
msgbox x 
'Output: 0102/01/01
x=StrReverse("Hyderabad")
msgbox x 
'Output: dabaredyH
x=StrReverse(100)
msgbox x 
'Output: 001
15) StrComp Function

It compares two string (Binary and textual)If
a) Both are equal, returns 0(zero)
b) String 1 greater than string 2, returns 1(one)
c) String 2 greater than string 1, returns -1
Example:
Dim str1,str2,x
str1="India"
str2="India"
x=StrComp(str1,str2,1)
msgbox x 
'Output 0
str1="india"
str2="INDIA"
x=StrComp(str1,str2,1)
msgbox x 
'Output 0
str1="India"
str2="Indian"
x=StrComp(str1,str2,1)
msgbox x 'Output -1
str1="Indian"
str2="Ndia"
x=StrComp(str1,str2,1)
msgbox x 
'Output -1
str1="Indian"
str2="India"
x=StrComp(str1,str2,1)
msgbox x 
'Output 1
str1=100
str2=100
x=StrComp(str1,str2,1)
msgbox x 
'Output 0
str1=100
str2=101
x=StrComp(str1,str2,1)
msgbox x 'Output -1
16) Lcase function

Coverts Upper case values into Lower case
Dim val,x
val="HYDERABAD"
x=Lcase(val)
msgbox x 
'Output hyderabad
val="Hyderabad"
x=Lcase(val)
msgbox x 
'Output hyderabad
val="HederabaD"
x=Lcase(val)
msgbox x
 'Output hyderabad
val="hyderabad"
x=Lcase(val)
msgbox x 
'Output hyderabad
x=Lcase("HYDERABAD")
msgbox x 
'Output hyderabad
17) Ucase function

Coverts Lower case values into Upper case
Example:
Dim val,x
val="HYDERABAD"
x=Ucase(val)
msgbox x 
'Output HYDERABAD
val="Hyderabad"
x=Ucase(val)
msgbox x 
'Output HYDERABAD
val="HederabaD"
x=Ucase(val)
msgbox x 
'Output HYDERABAD
val="hyderabad"
x=Ucase(val)
msgbox x 
'Output HYDERABAD
x=Ucase("HYDERABAD")
msgbox x 
'Output HYDERABAD 
18) Round Function

Returns the round value of a given value
if value decimal point above .5 it returns, next nearest value, below
.5 returns before integer value.
Example:
Dim num,x
num=14.49
x=Round(num)
msgbox x 
'Output: 14
num=14.59
x=Round(num)
msgbox x 
'Output: 15
num="14.49"
x=Round(num)
msgbox x 
'Output: 14
num="Hyd"
x=Round(num)
msgbox x 
'Output: Error
19) Trim Function

Returns a copy of string without leading spaces
Dim val
val=" VB Script"
x=Trim(val)
msgbox x
x=Len(x)
msgbox x
val=" 100"
x=Trim(val)
msgbox x
x=Len(x)
msgbox x
val=" 2#$%^"
x=Trim(val)
msgbox x
x=Len(x)
msgbox x
val=" VB Script "
x=Trim(val)
msgbox x
x=Len(x)
msgbox x
20) Ltrim Function

It removes spaces from left side of a string
Dim val
val=" VB Script"
x=LTrim(val)
msgbox x
x=Len(x)
msgbox x
val="100 "
x=LTrim(val)
msgbox x
x=Len(x)
msgbox x
val=" 2#$%^ "
x=LTrim(val)
msgbox x
x=Len(x)
msgbox x
val=" VB Script "
x=LTrim(val)
msgbox x
x=Len(x)
msgbox x
val= 100 
x=LTrim(val)
msgbox x
x=Len(x)
msgbox x 
21) Rtrim

It removes spaces from right side of a string
Dim val
val="VB Script "
x=RTrim(val)
msgbox x
x=Len(x)
msgbox x
val=" 100 "
x=RTrim(val)
msgbox x
x=Len(x)
msgbox x
val=" 2#$%^ "
x=RTrim(val)
msgbox x
x=Len(x)
msgbox x
val=" VB Script "
x=RTrim(val)
msgbox x
x=Len(x)
msgbox x
val= 100 
x=RTrim(val)
msgbox x
x=Len(x)
msgbox x 
22) Split function

Returns a zero-based, one-dimensional array containing a specified number of substrings
Example:
Dim a,b,x
b="VB Script is a Powerful scripting Language"
a=Split(b," ")
x=IsArray(b)
msgbox x 'Output: False
x=IsArray(a)
msgbox x 
'Output: True
msgbox a(6) 
'Output: Language
b="VB,Script,is,a,Powerful,scripting,Language"
a=Split(b,",")
msgbox a(5) 
'Output: Scripting
b="VB Script is a Powerful scripting Language"
a=Split(b)
msgbox a(5) 
'Output: Scripting
b="VB@Script@is@a@Powerful@scripting@Language"
a=Split(b,"@")
msgbox a(5)
 'Output: Scripting
"VBScriptisaPowerfulscriptingLanguage"
a=Split(b)
msgbox a(5)
 'Output: Error
22 Basic VB Script Built in Functions QTP Test Engineer Should Know 22 Basic VB Script Built in Functions QTP Test Engineer Should Know Reviewed by Animesh Chatterjee on September 21, 2010 Rating: 5

No comments:

Powered by Blogger.