UFT Tutorial 30

UFT Class 30 (VBScript File System Operations Part-2, Excel Object Model Part-1)
--------------------------------------
'Read Test Data from a Text file and perform Data Driven Testing for Login Functionality.
Dim objFso, objTextstream, myLine, myField
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\G C Reddy\Desktop\UFT.txt")
objTextstream.SkipLine

Do Until objTextstream.AtEndOfStream = True
myLine = objTextstream.ReadLine
myField = Split(myLine, ", ")

SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe”
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
wait 2
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close   
Loop

objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
--------------------------------------------
'Read Test Data (from 4 to 7 Records) from a Text file and perform Data Driven Testing for Login Functionality.
Dim objFso, objTextstream, myLine, myField, LineCount
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\G C Reddy\Desktop\UFT.txt")

LineCount= 0
Do Until objTextstream.AtEndOfStream = True
myLine = objTextstream.ReadLine
LineCount = LineCount + 1

If LineCount  > 4 And LineCount <= 8 Then
myField = Split(myLine, ", ")

SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe”
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
wait 2
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
End If
Loop

objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
------------------------------------------------------
'Write Data to a Text file
Dim objFso, objTextstream, num1, num2, result
num1 = 100 : num2= 200 : result = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\G C Reddy\Desktop\UFT.txt", 2)
objTextstream.Write "Addition of num1, num2 is: "& result
objTextstream.Write "Subtraction of num1, num2 is: "& num1 - num2

objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
------------------------------------
'Write Data (Line by Line) to a Text file
Dim objFso, objTextstream, num1, num2, result
num1 = 100 : num2= 200 : result = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\G C Reddy\Desktop\UFT.txt", 2)
objTextstream.WriteLine "Addition of num1, num2 is: "& result
objTextstream.WriteLine "Subtraction of num1, num2 is: "& num1 - num2

objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
---------------------------------
'Write Data (Append) to a Text file
Dim objFso, objTextstream, num1, num2, result
num1 = 500 : num2= 400 : result = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\G C Reddy\Desktop\UFT.txt", 8)
objTextstream.WriteLine "Addition of num1, num2 is: "& result

objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
------------------------------------------
'Open 1 to 10 Orders and Read Order Number and Customer name
'Export to a Text file

Dim objFso, objTextstream, num1, num2, result
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\G C Reddy\Desktop\UFT.txt", 2)
'Login to Application (One time)
SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe”
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set "asdf"
Dialog("Login").WinEdit("Password:").SetSecure "551b4bf7c618d4eede8b4426aa921e65623e0a6d"
Dialog("Login").WinButton("OK").Click
objTextstream.WriteLine "Order_No C_Name"
objTextstream.WriteLine "-----------"
'Open Order (10 times)
For i = 1 To 10 Step 1
Window("Flight Reservation").Activate
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set i
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
OrderNo = Window("Flight Reservation").WinEdit("Order No:").GetROProperty("text")
C_Name = Window("Flight Reservation").WinEdit("Name:").GetROProperty("text")
objTextstream.WriteLine OrderNo & ", "& C_Name
Next
'Close Application (One time)
Window("Flight Reservation").Close

objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
---------------------------------------------
'Compare two text files by Size, by Text and by Binary values
Dim objFso, objTextstream, File1, File2
Dim objTextatream1, objTextstream2, Read1, Read2
File1 = "C:\Users\G C Reddy\Desktop\UFT.txt"
File2 = "C:\Users\G C Reddy\Desktop\abc.txt"

Set objFso = CreateObject("Scripting.FileSystemObject")
Msgbox "File 1 Size is: "& objFso.GetFile(File1).Size &" Bytes"
Msgbox "File 2 Size is: "& objFso.GetFile(File2).Size &" Bytes"
'1) Compare two text files by Size
If objFso.GetFile(File1).Size = objFso.GetFile(File2).Size Then
    Msgbox "Files are same by Size"
    Else
    Msgbox "Files are Not same by Size"
End If

'2) Compare two text files by Text
Set objTextatream1 = objFso.OpenTextFile(File1)
Set objTextatream2 = objFso.OpenTextFile(File2)
Read1 = objTextatream1.ReadAll
Read2 = objTextatream2.ReadAll

If StrComp(Read1, Read2, 1) = 0 Then
    Msgbox "Files are Same by Text"
    Else
    Msgbox "Files are Not Same by Text"
End If
'3) Compare two text files by Binary Values
If StrComp(Read1, Read2, 0) = 0 Then
    Msgbox "Files are Same"
    Else
    Msgbox "Files are Not Same"
End If
objTextatream1.Close
objTextatream2.Close

Set objTextatream1= Nothing
Set objTextatream2 = Nothing
Set objFso = Nothing
-----------------------------------------------
Excel Object Model
 

Excel Application Object

It is used to perform Operations on Excel Application / Excel files
----------------
Excel Application

Excel File / Workbook

Excel Sheet / Worksheet
-------------------
Create Excel Application Object
------------------------------

Set Variable = CreateObject("Excel.Application")
----------
Examples:
---------------------------------------
1) Create an Excel file/Workbook

Dim objExcel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True 'To view the operation during execution
objExcel.Workbooks.Add ' To create new file
objExcel.ActiveWorkbook.SaveAs "C:\Users\G C Reddy\Desktop\UFTExample.xlsx"

objExcel.Quit 'To close Excel Application
Set objExcel = Nothing
--------------------------------------------
'2) Check existence of Excel file, if not exists then create the file
Dim objFso, objExcel
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")

If Not objFso.FileExists("C:\Users\G C Reddy\Desktop\UFTExample.xlsx") Then
objExcel.Workbooks.Add ' To create new file
objExcel.ActiveWorkbook.SaveAs "C:\Users\G C Reddy\Desktop\UFTExample.xlsx"
End If

objExcel.Quit 'To close Excel Application
Set objExcel = Nothing
Set objFso = Nothing
-------------------------------------------------
'3) Check existence of Excel file, if exists, open the file and enter some data. If not exist, create the file and enter some data.
Dim objFso, objExcel
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")

If objFso.FileExists("C:\Users\G C Reddy\Desktop\UFTExample.xlsx") Then
objExcel.Workbooks.Open ("C:\Users\G C Reddy\Desktop\UFTExample.xlsx")
objExcel.Worksheets(1).Cells(1, 1) = "VBScript"
objExcel.ActiveWorkbook.Save
Else
objExcel.Workbooks.Add
objExcel.Worksheets(1).Cells(1, 1) = "VBScript"
objExcel.ActiveWorkbook.SaveAs "C:\Users\G C Reddy\Desktop\UFTExample.xlsx"
End If

objExcel.Quit 'To close Excel Application
Set objExcel = Nothing
Set objFso = Nothing
-----------------------------------------------
Excel Application Object (Main Object)

Excel Workbook Object (Sub-Object)

Excel Worksheet Object (Sub-sub Object)
------------------------------

0 comments:

Post a Comment