UFT Class 28

UFT Class 28

(VBScript Built in Functions part-2, Many to Many Comparisons Example)

28) CreateObject Function

It creates an automation object in a specified class.

Dim objFso
‘Create File System Object, It is used to work with Drives, folders and files.
Set objFso = CreateObject(“Scripting.FileSystemObject”)

Dim obJExcel
‘Create Excel Application object, It is used to perform operations on excel Application.
Set objExcel = CreateObject(“Excel.Application”)
‘Create Word Application Object, It is used to perform Operations on Word Application
Dim objWord
Set objeWord = CreateObject(“Word.Application”)

Dim objConnection
‘Create Database Connection Object, It is used to connect to Databases
Set objConnection = CreateObject(“Adodb.Connection”)

Dim objRecordset
‘Create Database Recordset object, It is used to perfom operations on Database Tables
Set objRecordset = CreateObject(“Adodb.Recordset”)

Dim objDictionary
‘Create Dictionary object, It is used to define key, value pairs.
Set objDictionary = CreateObject(“Scripting.Dictionary”)

VBScript Functions in UFT

29) Join Function

Dim a(3)
a(0) = “VB”
a(1) = “Script”
a(2) = “Language”

Msgbox Join(a) ‘VB Script Language

30) LBound Function

31) UBound Function

Dim a
a = Array(10, 20, 30, 40, 50, 60)

Msgbox IsArray(a) ‘True

Msgbox LBound(a) ‘0
Msgbox UBound (a) ‘5

32) InputBox Function

33) MsgBox Function

Dim val
val = InputBox(“Enter a Value”)
Msgbox “Value is: “& val
Dim a, b
a =100
b = 200

Msgbox “Hello UFT”
Msgbox a
Msgbox “Addition of a, b is: “& a + b

Many to Many Comparisons Example using Nested for loop and Excel Objects.

Test Requirement:

Read items from a combo box /Drop down box and compare with Excel file data.

Actual: from “Fly From:” Combo box

Expected: from Excel file 1st sheet:
Dim objExcel, objWorkbook, objWorksheet, Actual, Expected, i, FlyFromCount
Set objExcel = CreateObject(“Excel.Application”)
Set objWorkbook = objExcel.Workbooks.Open(“C:\Users\G C Reddy\Desktop\Input.xlsx”)
Set objWorksheet = objWorkbook.Worksheets(1)
RowsCount = objWorksheet.Usedrange.Rows.Count

Window(“Flight Reservation”).Activate
Window(“Flight Reservation”).WinButton(“Button”).Click
Window(“Flight Reservation”).ActiveX(“MaskEdBox”).Type “111115”
FlyFromCount = Window(“Flight Reservation”).WinComboBox(“Fly From:”).GetItemsCount

For i = 0 To FlyFromCount-1 Step 1
Window(“Flight Reservation”).WinComboBox(“Fly From:”).Select(i)
objWorksheet.Cells(i+2, 2) = Window(“Flight Reservation”).WinComboBox(“Fly From:”).GetROProperty(“text”)
Flag = 0
For j = 2 To RowsCount Step 1
Expected = objWorksheet.Cells(j, 1)
For k = 2 To RowsCount Step 1
Actual = objWorksheet.Cells(k, 2)

If StrComp(Expected, Actual, 1) = 0 Then
Flag = 1
Exit For
Flag = 0
End If
If Flag = 1 Then
objWorksheet.Cells(j, 3) = “Passed”
objWorksheet.Cells(j, 3) = “Failed”
End If

Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
> Prepare Expected in Excel file (Sheet 1) 1st Column.

> Read Actual values from the Application Object and store into Excel file (Sheet 1) 2nd column.

> Read Expected and Actual values from Excel file using Nested for loop and compare (many to many comparisons)

Follow me on social media: