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

——————————————-

Tags: Data Types, Variables