Header Ads

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
Powered by Blogger.