UFT Class thirty (VBScript File System Operations Part-2, Excel Object Model Part-1)
--------------------------------------
'Read Test Data from a Text file together with 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 iv to vii Records) from a Text file together with 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 > iv 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 : consequence = 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 past times Line) to a Text file
Dim objFso, objTextstream, num1, num2, result
num1 = 100 : num2= 200 : consequence = 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 : consequence = 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 one to x Orders together with Read Order Number together with 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 = one To x 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 2 text files past times Size, past times Text together with past times 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 one Size is: "& objFso.GetFile(File1).Size &" Bytes"
Msgbox "File 2 Size is: "& objFso.GetFile(File2).Size &" Bytes"
'1) Compare 2 text files past times Size
If objFso.GetFile(File1).Size = objFso.GetFile(File2).Size Then
Msgbox "Files are same past times Size"
Else
Msgbox "Files are Not same past times Size"
End If
'2) Compare 2 text files past times 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 past times Text"
Else
Msgbox "Files are Not Same past times Text"
End If
'3) Compare 2 text files past times 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 persuasion the functioning during execution
objExcel.Workbooks.Add ' To practise novel file
objExcel.ActiveWorkbook.SaveAs "C:\Users\G C Reddy\Desktop\UFTExample.xlsx"
objExcel.Quit 'To unopen Excel Application
Set objExcel = Nothing
--------------------------------------------
'2) Check beingness of Excel file, if non exists together with then practise 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 practise novel file
objExcel.ActiveWorkbook.SaveAs "C:\Users\G C Reddy\Desktop\UFTExample.xlsx"
End If
objExcel.Quit 'To unopen Excel Application
Set objExcel = Nothing
Set objFso = Nothing
-------------------------------------------------
'3) Check beingness of Excel file, if exists, opened upwards the file together with function into approximately data. If non exist, practise the file together with function into approximately 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 unopen Excel Application
Set objExcel = Nothing
Set objFso = Nothing
-----------------------------------------------
Excel Application Object (Main Object)
Excel Workbook Object (Sub-Object)
Excel Worksheet Object (Sub-sub Object)
------------------------------
Sumber http://www.gcreddy.com/
--------------------------------------
'Read Test Data from a Text file together with 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 iv to vii Records) from a Text file together with 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 > iv 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 : consequence = 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 past times Line) to a Text file
Dim objFso, objTextstream, num1, num2, result
num1 = 100 : num2= 200 : consequence = 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 : consequence = 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 one to x Orders together with Read Order Number together with 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 = one To x 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 2 text files past times Size, past times Text together with past times 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 one Size is: "& objFso.GetFile(File1).Size &" Bytes"
Msgbox "File 2 Size is: "& objFso.GetFile(File2).Size &" Bytes"
'1) Compare 2 text files past times Size
If objFso.GetFile(File1).Size = objFso.GetFile(File2).Size Then
Msgbox "Files are same past times Size"
Else
Msgbox "Files are Not same past times Size"
End If
'2) Compare 2 text files past times 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 past times Text"
Else
Msgbox "Files are Not Same past times Text"
End If
'3) Compare 2 text files past times 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 persuasion the functioning during execution
objExcel.Workbooks.Add ' To practise novel file
objExcel.ActiveWorkbook.SaveAs "C:\Users\G C Reddy\Desktop\UFTExample.xlsx"
objExcel.Quit 'To unopen Excel Application
Set objExcel = Nothing
--------------------------------------------
'2) Check beingness of Excel file, if non exists together with then practise 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 practise novel file
objExcel.ActiveWorkbook.SaveAs "C:\Users\G C Reddy\Desktop\UFTExample.xlsx"
End If
objExcel.Quit 'To unopen Excel Application
Set objExcel = Nothing
Set objFso = Nothing
-------------------------------------------------
'3) Check beingness of Excel file, if exists, opened upwards the file together with function into approximately data. If non exist, practise the file together with function into approximately 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 unopen Excel Application
Set objExcel = Nothing
Set objFso = Nothing
-----------------------------------------------
Excel Application Object (Main Object)
Excel Workbook Object (Sub-Object)
Excel Worksheet Object (Sub-sub Object)
------------------------------