Wednesday, December 15, 2010

VB Script Built in Functions

1) Asc Function
 
'Returns ANSI character code corresponding to first letter in a string
Dim val
val="hyderabad"
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.56
num=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("Hyderabad","Chennai", "Nellore")
msgbox var(0) 'output: Hyderabad
msgbox var(1) 'output: Chennai
msgbox var(2) 'output: Nellore
 
'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("Hyderabad","Chennai", "Nellore")
 
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,x
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 date2
Note: through this function, we can day or month wise diffrence only.
 
9) IsNumeric
 
It checks weather the given value is numeric or not and It provides True/False like Result
Example:
Dim val,x
val="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,x
val="Hyderabad"
x=Len(val)
msgbox x 'Output: 9
 
val=100
x=Len(val)
msgbox x 'Output: 3
 
val="Hydera100"
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="Hyderabad"
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="Hyderabad"
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="Hyderabad"
x=Mid(Val,5,3)
msgbox x ' Output: rab
 
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) 
 
b) 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
b="VBScriptisaPowerfulscriptingLanguage"
a=Split(b)
msgbox a(5) 'Output: Error