Sunday, February 6, 2011

VB Script Built-in functions

VB Script Built-in functions

1) Asc Function


Dim Val
val=”A”
Msgbox Asc(val) ’65
Msgbox Asc(“Z”) ’90
Msgbox Asc(“a”) ’97
Msgbox Asc(“z”) ’122
Msgbox Asc(1) ’49
Msgbox Asc(“*”) ’42
Msgbox Asc(“America”) ’65

2) Chr Function

Dim Val
val=65
Msgbox Chr(val) ‘A
Msgbox Chr(90) ‘Z
Msgbox Chr(97) ‘a
Msgbox Chr(122) ‘z
Msgbox Chr(49) ’1
Msgbox Chr(42) ‘*

3) Abs Function

Dim Val
val=65.45
Msgbox Abs(val) ’65.45
val=65.55
Msgbox Abs(val) ’65.55
val=-65.55
Msgbox Abs(val) ’65.55

4) Round Function

Dim Val
val=65.45
Msgbox Round(val) ’65
val=65.55
Msgbox Round(val) ’66
val=-65.55
Msgbox Round(val) ‘-66
val=65.50
Msgbox Round(val) ’66

5) Array Function

Dim x
x=Array(“Hyderabad”, “Chennai”,”Deldhi”)
Msgbox x(0)
Msgbox x(1)
Msgbox x(2)
x=Array(100,200,300)
Msgbox x(0)
Msgbox x(1)
Msgbox x(2)
x=Array(#10-10-10#, #10/10/10#,#10/10/2010#,#Sep-10-10#)
Msgbox x(0)
Msgbox x(1)
Msgbox x(2)
Msgbox x(3)
x=Array(“Hyderabad”, 100,#10/10/2010#)
Msgbox x(0)
Msgbox x(1)
Msgbox x(2)

6) IsArray Function

Dim a,b,c(3),d(),e(2,3)
Msgbox IsArray(a) ‘False
Msgbox IsArray(b) ‘False
Msgbox IsArray(c) ‘True
Msgbox IsArray(d) ‘True
Msgbox IsArray(e) ‘True
a=Array(100,200,300)
Msgbox IsArray(a) ‘True
b=Split(“VB Script Language”,” “)
Msgbox IsArray(b) ‘True
Msgbox b(0)
Msgbox b(1)
Msgbox b(2)

7) IsDate Function

Dim val
val=”Hyderabad”
Msgbox IsDate(val) ‘False
val=100
Msgbox IsDate(val) ‘False
val=100.45
Msgbox IsDate(val) ‘False
val=#10-10-10#
Msgbox IsDate(val) ‘True
val=#10/10/10#
Msgbox IsDate(val) ‘True
val=#10-10-2010#
Msgbox IsDate(val) ‘True
val=#October-10-10#
Msgbox IsDate(val) ‘True

8) Date Function

Dim myDate
myDate=Date
Msgbox myDate

9) Time Function

Dim myTime
myTime=Time
Msgbox myTime

10) Now Function

Dim myDay
myDay=Now
Msgbox myDay
myDay=Date & Time
Msgbox myDay
myDay=Time & Date
Msgbox myDay

11) Len Function

Dim val
val=”Hyderabad”
Msgbox Len(val) ’9
Msgbox Len(100) ’3
Msgbox Len(“@#$%^”) ’5
Msgbox Len(#10-10-2010#) ’10
Msgbox Len(#10-10-10#) ’10
Msgbox Len(#Sep-10-2010#) ’9
Msgbox Len(#Nov-10-2010#) ’10
Msgbox Len(Hyderabad) ’0

12) Left Function

Dim val
val=”Hyderabad”
Msgbox Left(val,3) ‘Hyd
Msgbox Left(100,2) ’10
Msgbox Left(#10-10-10#,5) ’10/10
Msgbox Left(“#10-10-10#”,3) ‘#10
—————–
Example:
Model 1:
Read a Mobile Number and verify the Series
‘Val should be Numeric
‘Val should contain 10 digits
‘If series is either “92478″ or “92471 then display Tata Indicom Number
‘If series is either “98490″ or “98480 then display AirTel Number
Dim val, val_Length, val_Numeric, val_Series
val=InputBox(“Enter a Mobile Number”)
val_Numeric=IsNumeric(val)
val_Length=Len(val)
val_Series=Left(val,5)
If val_Numeric=True and  val_Length=10 and val_Series=92478 Or  val_Series=92471  Then
Msgbox “It is a Tata Indicom Number”
ElseIf val_Numeric=True and  val_Length=10 and val_Series=98490 Or  val_Series=98480   Then
Msgbox “It is an Air Tel  Number”
Else
Msgbox “Invalid Data”
End If
—————————-
2nd Model:
‘Read a Mobile Number and verify the Series
‘Val should be Numeric
‘Val should contain 10 digits
‘If series is either “92478″ or “92471 then display Tata Indicom Number
‘If series is either “98490″ or “98480 then display AirTel Number
Dim val, val_Length, val_Numeric, val_Series
val=InputBox(“Enter a Mobile Number”)
val_Numeric=IsNumeric(val)
val_Length=Len(val)
val_Series=Left(val,5)
If  val_Numeric= True Then
If val_Length=10 Then
If val_Series=92478 Or  val_Series=92471  Then
Msgbox “It is a Tata Indicom Number”
ElseIf val_Series=98490 Or val_Series=98480  Then
Msgbox “It is an Air Tel  Number”
Else
Msgbox “Invalid Series”
End If
Else
Msgbox “It is not a 10 digit value”
End If
Else
Msgbox “It is not a Numeric Value”
End If

13) Right Function

Dim val
val=”Hyderabad”
Msgbox Right(val,3) ‘bad
Msgbox Right(100,2) ’00
Msgbox Right(#10-10-10#,5) ‘/2010
Msgbox Right(“#10-10-10#”,3) ’10#
val=”Hyderabad”
Msgbox Right(val,9) ‘Hyderabad
val=”Hyderabad”
Msgbox Right(val,20) ‘Hyderabad
val=”Hyderabad”
Msgbox Right(val,0) ‘Blank
val=”Hyderabad”
Msgbox Right(val) ‘Error (Length is Maditory)

14) Mid Function

Dim val
val=”Hyderabad”
Msgbox Mid(val,5,3) ‘rab
Msgbox Mid(100,2) ’00
Msgbox Mid(#10-10-10#,5) ’0/2010
Msgbox Mid(“#10-10-10#”,3,3) ’0-1
val=”Hyderabad”
Msgbox Mid(val,9) ‘d
val=”Hyderabad”
Msgbox Mid(val,20) ‘Blank
val=”Hyderabad”
Msgbox Mid(val,0) ‘Error
val=”Hyderabad”
Msgbox Mid(val) ‘Error
————-
Ex:
Price=”$100.45″
Units=”5″
Total=Units*Price
Msgbox Total
Price=”Rs100.45″
Price=Mid(Price,3)
‘Price=Right(Price,6)
Units=”5″
Total=Units*Price
Msgbox Total

15) DateDiff Function

Dim date1, date2
date1=#10-10-11#
date2=#10-10-09#
Msgbox DateDiff(“d”,date1,date2) &” Days”
date1=#10-10-09#
date2=#10-10-11#
Msgbox DateDiff(“d”,date1,date2) &” Days”
Msgbox DateDiff(“m”,date1,date2) &” Months”
Msgbox DateDiff(“yyyy”,date1,date2) &” Years”
Msgbox DateDiff(“w”,date1,date2) &” Weeks”
Msgbox DateDiff(“h”,date1,date2) &” Hours”
Msgbox DateDiff(“n”,date1,date2) &” Minutes”
Msgbox DateDiff(“s”,date1,date2) &” Seconds”
Msgbox DateDiff(“q”,date1,date2) &” Quarters”

16) Timer Function

Start_Transaction=Timer
SystemUtil.Run “C:Program FilesHPQuickTest Professionalsamplesflightappflight4a.exe”
Dialog(“Login”).Move 356,281
Dialog(“Login”).WinEdit(“Agent Name:”).Set “nbnn”
Dialog(“Login”).WinEdit(“Password:”).SetSecure “4cad3fd62c9fe96eebb24fc6c977a8a1e4fd28f4″
Dialog(“Login”).WinButton(“OK”).Click
Window(“Flight Reservation”).Activate
End_Transaction=Timer
Transaction_Time=End_Transaction-Start_Transaction
Msgbox Transaction_Time

17) StrComp Function

Dim str1, str2
str1=”HYDERABAD”
str2=”hyderabad”
Msgbox strComp(str1,str2) ‘-1 (str1<str2)
Msgbox strComp(str1,str2,0) ‘-1 (str1<str2) **0 is Compare mode for Binary
Msgbox strComp(str1,str2,1) ’0(str1<str2) **1 is Compare mode for Textual
str1=”hyd”
str2=”Hyderabad”
Msgbox strComp(str1,str2) ’1(str1<str2)

18) LCase Function

Dim Val
Val=”HYDERABAD”
Msgbox Lcase(val) ‘hyderabad
Val=”HyderabaD”
Msgbox Lcase(val) ‘hyderabad
Val=”hyderabad”
Msgbox Lcase(val) ‘hyderabad
Val=100
Msgbox Lcase(val) ’100
Val=”HYDERA100″
Msgbox Lcase(val) ‘hydera100
Val=”HYDER@#*”
Msgbox Lcase(val) ‘hyder@#*

19) UCase Function

Dim Val
Val=”HYDERABAD”
Msgbox UCase(val) ‘HYDERABAD
Val=”HyderabaD”
Msgbox UCase(val) ‘HYDERABAD
Val=”hyderabad”
Msgbox UCase(val) ‘HYDERABAD
Val=100
Msgbox UCase(val) ’100
Val=”HYDERA100″
Msgbox UCase(val) ‘HYDERA100
Val=”HYDER@#*”
Msgbox UCase(val) ‘HYDER@#*

20) Trim Function

21) RTrim Function

22) LTrim Function

Dim val
val=”                     VB Script                            ”
Msgbox val
Msgbox Trim(val)
val=”                     VB Script                            ”
Msgbox val
Msgbox RTrim(val)
val=”                     VB Script                            ”
Msgbox val
Msgbox LTrim(val)

23) CreateObject Function

Dim objFso
Msgbox VarType(objFso) ’0 for Empty
‘Creating an Automation Object in FileSystem Class, that can be used to perform File System Operations
Set objFso=CreateObject(“Scripting.FileSystemObject”)
Msgbox VarType(objFso) ’9 for Automation Object
Dim objExcel
‘Creating an Automation Object in Excel Class, that can be used to perform Spread sheet(Excel file)  Operations
Set objExcel=CreateObject(“Excel.Application”)
Dim objWord
‘Creating an Automation Object in Word Class, that can be used to perform Word Document Operations
Set objWord=CreateObject(“Word.Application”)
Dim objCon
‘Creating an Automation Object in Database Connection Class, that can be used to Connect to various databases
Set objCon=CreateObject(“Adodb.Connection”)
Dim objRs
‘Creating an Automation Object in Database RecordSet Class, that can be used to perform Operations on Database Tables(Records)
Set objRs=CreateObject(“Adodb.RecordSet”)
Dim objCom
‘Creating an Automation Object in Database CommandClass, that can be used to perform Maniplations on Databases
Set objCom=CreateObject(“Adodb.Command”)
Dim objDict
‘Creating an Automation Object in Dictionary class, that can be used to store “Key”, “Value” Pairs
Set objDict=CreateObject(“Scripting.Dictionary”)
24) IsEmpty Function

Dim x,y
x=100
Msgbox IsEmpty(x) ‘False
Msgbox IsEmpty(y) ‘True
y=”abcd”
Msgbox IsEmpty(y) ‘False

y=0
Msgbox IsEmpty(y) ‘False

y=Empty
Msgbox IsEmpty(y) ‘True
25) Cdbl Function

Dim val
val=”100.45″
Msgbox VarType(val) ’8 for String

val=Cdbl(val)
Msgbox VarType(val) ’5 for Double

26) CInt Function
Dim val
val=”100″
Msgbox VarType(val) ’8 for String

val=CInt (val)
Msgbox VarType(val) ’2 for Integer

val=”100.45″
Msgbox VarType(val) ’8 for String
Msgbox val

val=CInt (val)
Msgbox VarType(val) ’2 for Integer
Msgbox val

27) VarType Function

Dim val, x
val=”Hyderabad”
Msgbox VarType(val) ’8 for String

val=”100″
Msgbox VarType(val) ’8 for String

val=”100.456″
Msgbox VarType(val) ’8 for String

val=100
Msgbox VarType(val) ’2 for Integer

val=100.456
Msgbox VarType(val) ’5 for Double

Msgbox VarType(x) ’0 for Uninitialized

Msgbox VarType(#10/10/2010#) ’7 for Date format

Set x=CreateObject(“Scripting.FileSystemObject”)
Msgbox VarType(x) ’9 for Automation Object
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)