UFT Class 27

UFT Class 27

(VBScript Built in Functions)

1) Abs Function

(It returns absolute value)
Dim val
val = 100.75
Msgbox Abs(val) ‘100.75

val = 100.25
Msgbox Abs(val) ‘100.25

Msgbox Abs(100.60) ‘100.6

val = -100.85
Msgbox Abs(val) ‘100.85

2) Round Function

Dim val
val = 100.75
Msgbox Round(val) ‘101

val = 100.25
Msgbox Round(val) ‘100

Msgbox Round(100.60) ‘101

val = -100.85
Msgbox Round(val) ‘-101

3) Asc Function

Dim val
val =”ABC”
Msgbox Asc(val)’65
‘A to Z (65 to 90)
‘a to z (97 to 122)
‘0 to 9 (48 to 57)
Msgbox Asc(“A”) ’65
Msgbox Asc(“Z”) ’90
Msgbox Asc(“a”) ’97
Msgbox Asc(“z”) ‘122
Msgbox Asc(1) ’49
Msgbox Asc(“*”) ’42

4) Chr Function

Dim val
val =65
Msgbox Chr(val)’A
‘A to Z (65 to 90)
‘a to z (97 to 122)
‘0 to 9 (48 to 57)
Msgbox Chr(65) ‘A
Msgbox Chr(90) ‘Z
Msgbox Chr(97) ‘a
Msgbox Chr(122) ‘z
Msgbox Chr(49) ‘1
Msgbox Chr(42) ‘*

5) Array FunctionDim a

Msgbox IsArray(a) ‘False
a = Array(1, “VB”, “Script”, 1.34, #10/10/2010#)
Msgbox IsArray(a) ‘True

Msgbox a(1) ‘VB
Msgbox UBound (a) ‘4

6) IsArray Function

Dim a, b(4), c(), d(4, 5)
Msgbox IsArray(a) ‘False

Msgbox IsArray(b) ‘True

Msgbox IsArray(c) ‘True

Msgbox IsArray(d) ‘True

7) IsNumeric

Msgbox IsNumeric(100) ‘True
Msgbox IsNumeric(“100”) ‘True
Msgbox IsNumeric(1.345) ‘True
Msgbox IsNumeric(“abc”) ‘False
Msgbox IsNumeric(#10/10/2010#) ‘False

8) IsDate Function

Msgbox IsDate(100) ‘False
Msgbox IsDate(1.345) ‘False
Msgbox IsDate(“abc”) ‘False
Msgbox IsDate(#10/10/2010#) ‘True
Msgbox IsDate(#10/10/10#) ‘True
Msgbox IsDate(#20/10/2010#) ‘True
‘Msgbox IsDate(#20/13/2010#) ‘Syntax Error

9) IsEmpty Function

Dim val
Msgbox IsEmpty(val) ‘True
val = 0
Msgbox IsEmpty(val)’False

10) Date Function

11) Time Function

12) Now Function

Example:
Dim a
a = Date
Msgbox a

Msgbox Date

Msgbox Time

Msgbox Now

Msgbox Date&” “& Time

Msgbox Time &” “& Date

VBScript Built Functions in UFT

13) DateDiff Function

It returns date difference between two dates based on interval

It deducts first date from second date
————–
Example:
Dim date1, date2
date1 = #10/10/2010#
date2 = #10/10/2014#

Msgbox DateDiff(“d”, date1, date2) & ” Days”

Msgbox DateDiff(“yyyy”, date1, date2) & ” Years”

Msgbox DateDiff(“q”, date1, date2) & ” Quarters”

Msgbox DateDiff(“m”, date1, date2) & ” Months”

Msgbox DateDiff(“w”, date1, date2) & ” Weeks”

Msgbox DateDiff(“h”, date1, date2) & ” Hours”

Msgbox DateDiff(“n”, date1, date2) & ” Minutes”

Msgbox DateDiff(“s”, date1, date2) & ” Seconds”

14) Len Function

Dim val
val = “London”
Msgbox Len(val) ‘6
Msgbox Len(“abc”) ‘3
Msgbox Len(1234) ‘4
Msgbox Len(123.456)’7
Msgbox Len(#10/10/2010#) ’10
Msgbox Len(#10/10/10#) ’10
Msgbox Len(#December/10/2010#)’10
Msgbox Len(#September/10/2010#) ‘9

15) Left Function

Dim val
val =”Hyderabad”
Msgbox Left(val, 3) ‘Hyd

Msgbox Left(“Hyderabad”, 3) ‘Hyd
Msgbox Left(100, 1) ‘1
Msgbox Left(100.234, 4) ‘100.
Msgbox Left(#10-10-2010#, 5) ’10/10

16) Right Function

Dim val
val =”Hyderabad”
Msgbox Right(val, 3) ‘bad

Msgbox Right(“Hyderabad”, 3) ‘bad
Msgbox Right(100, 1) ‘0
Msgbox Right(100.234, 4) ‘.234
Msgbox Right(#10-10-2010#, 5) ‘/2010

17) Mid Function

Msgbox Left(“Hyderabad”, 3) ‘Hyd
Msgbox Mid(“Hyderabad”, 1, 3)’Hyd

Msgbox Right(“Hyderabad”, 3) ‘bad
Msgbox Mid(“Hyderabad”, 7) ‘bad

Msgbox Mid(“Hyderabad”, 4, 3) ‘era

18) StrComp Function

It compares two strings based on compare mode

Compare Modes:

i) Binary Comparison 0

ii) Textual Comparison 1
—————————
Result Criteria:

Comparisons in Computer Programming

i) 2-way comparison (True/False)

ii) 3-way Comparison (=, >, <)
—————————————
i) If string1 = string2 then result is 0

ii) If string1 > string2 then result is 1

iii) If string1 < string2 then result is -1
——————————————
Note: Default compare mode for StrComp Function is Binary mode.

Example:
————
Dim str1, str2
str1 =”UFT”
str2 = “uft”

Msgbox StrComp(str1, str2, 0) ‘-1
Msgbox StrComp(str1, str2) ‘-1
Msgbox StrComp(str1, str2, 1) ‘0

str1 =”uFT”
str2 = “Uft”
Msgbox StrComp(str1, str2, 0) ‘1
Msgbox StrComp(str1, str2) ‘1
Msgbox StrComp(str1, str2, 1) ‘0

19) LCase Function

Msgbox LCase(“LONDON”) ‘london
Msgbox LCase(“LONdon”) ‘london
Msgbox LCase(“london”) ‘london
Msgbox LCase(“LONDON123”) ‘london123
Msgbox LCase(123) ‘123

20) UCase Function

Msgbox UCase(“LONDON”) ‘LONDON
Msgbox UCase(“LONdon”) ‘LONDON
Msgbox UCase(“london”) ‘LONDON
Msgbox UCase(“LONDON123”) ‘LONDON123
Msgbox UCase(123) ‘123

21) Trim Function

22) RTrim Function

23) LTrim Function

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

24) VarType Function

Dim val
Msgbox VarType(val) ‘0 for Empty

val= 123
Msgbox VarType(val) ‘2 for Integer

val=”abc”
Msgbox VarType(val) ‘8 for string

val= “123”
Msgbox VarType(val) ‘8 for String

val= 1.23
Msgbox VarType(val) ‘5 for Double

val = #10/10/2010#
Msgbox VarType(val) ‘7 for Date

Set val = CreateObject(“Scripting.FileSystemObject”)
Msgbox VarType(val) ‘9 for Automation Object

25) Cint Function

Dim val
val = InputBox(“Enter a Value”)

Msgbox VarType(val) ‘8 for String

val = Cint(val)
Msgbox VarType(val)

26) Cdbl Function

Dim val
val = InputBox(“Enter a Value”)

Msgbox VarType(val) ‘8 for String

val = Cdbl(val)
Msgbox VarType(val)

27) Split Function

Dim val, a
Msgbox IsArray(a) ‘False
val =”VB Script Language”
a = Split(val)
Msgbox IsArray(a) ‘True

Msgbox a(1) ‘Script

Msgbox UBound(a) ‘2
————————–
Dim val, a
Msgbox IsArray(a) ‘False
val =”VB@Script@Language”
a = Split(val, “@”)
Msgbox IsArray(a) ‘True

Msgbox a(1) ‘Script

Msgbox UBound(a) ‘2
——————-
Dim val, a
Msgbox IsArray(a) ‘False
val =”VB@$#Script@$#Language”
a = Split(val, “@$#”)
Msgbox IsArray(a) ‘True

Msgbox a(1) ‘Script

Msgbox UBound(a) ‘2

Follow me on social media: