QTP VB Script

http://msdn.microsoft.com/en-us/library/sx7b3k7y%28VS.85%29.aspx

VB Script Variables

  Dim a, c
a=10 ‘Explict
b=20 ‘Implicit
c=A+b
Msgbox c
————————
Option Explicit
Dim Unit_Price, Quantity, Cost
Unit_Price=100
Quantity=4
Cost=Unit_Price*Quantaty
Msgbox Cost
————————————-
Usage Of Variables:
——————–
‘Holding the Data
Dim x
x=100
‘Storing the Value that returned by a Program
Result=10+4*2
Msgbox Result
a=10
b=20
c=a=b
Msgbox c
‘Storing the Value that returned by a Function
x=Time
Msgbox x
‘Passing as Parameters
‘Storing Object reference
Set x=Dialog(“Login”)
x.Activate
x.WinEdit(“Agent Name:”).Set “fsfsfdssf”
x.WinEdit(“Password:”).SetSecure “3c30c4787a864678ad395b0a52841b1682d053ad”
x.WinButton(“OK”).Click
Dim objFso
Set objFso=CreateObject(“Scripting.FileSystemObject”)
———————-
‘Assigning Values to Variables:
Dim num1,num2,sum
num1=100 ‘Initialization
num2=InputBox(“Enter num2 value”) ‘Reading
sum=num1+num2
Msgbox sum
———————–
Dim x
x=”Hyderabad”
Msgbox VarType(x) ’8 for String
x=100
Msgbox VarType(x) ’2 for Integer
x=”100″
Msgbox VarType(x) ’8 for String
x=134.567
Msgbox VarType(x) ’5 for Double
x=#10/10/2010#
Msgbox VarType(x) ’7 for Date
Set x=CreateObject(“Scripting.FileSystemObject”)
Msgbox VarType(x) ’9 for Automation Object
Msgbox VarType(y) ’0 for Empty
—————————
‘Converting the Data
Dim x, y
x=”100″
Msgbox VarType(x) ’8
x=Cint(x)
Msgbox VarType(x) ’2
y=”100.45″
Msgbox VarType(y) ’8
y=Cdbl(y)
Msgbox VarType(y) ’5
x=”Hyderabad”
x=Cdbl(x) ‘Error(Type Mismatch)
—————————-
‘Naming Restictions for Variables
Dim abc ‘Correct
Dim ab9 ‘Correct
Dim 9ab ‘Incorrect
———
Dim abc ‘Correct
Dim ab c ‘Incorrect
Dim ab.c ‘Incorrect
Dim ab-c ‘Incorrect
Dim ab*c ‘Incorrect
Dim ab_c ‘Correct
——————–
Dim a,b,c ‘Script Level Variables
a=10
b=20
c=a+b
Msgbox c ’30
Function xyz()
Dim d,e,f ‘ Procedure Level Variables
d=40
e=50
f=b+d+e
Msgbox f ’110
End Function
Call xyz()
Dim g,h ‘Script Level Variables
g=70
h=b+d+g
Msgbox h ’90
————————
Dim x,y(3)
y(0)=10: y(1)=20:y(2)=30:y(3)=40
x=y(1)+y(3)
Msgbox x
Dim x,y()
ReDim y(3)
y(0)=10: y(1)=20:y(2)=30:y(3)=40
x=y(1)+y(3)
Msgbox x
ReDim Preserve y(5)
y(4)=50:y(5)=60
x=y(2)+y(5)
Msgbox x ’90
——————————————-