11/15/16

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