adspace
how to use textfile for taking value for parametrization
instead of datatable or global sheet
Answer Posted / cnu
Dim Objfso, Objfs,f,x
Set Objfso = CreateObject("Scripting.FileSystemObject")
Set Objfs = Objfso.Opentextfile("E:\textfile.txt")
Do until objfs.AtEndofStream <>0
f = objfs.readline
x = Split(f," ")
SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Dialog("Login").WinEdit("Agent Name:").Set x(0)
Dialog("Login").WinEdit("Password:").Set x(1)
Dialog("Login").WinButton("OK").Click
wait(10)
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"
Loop
objfs.Close
Set objfs = Nothing
Set objfso = Nothing
| Is This Answer Correct ? | 1 Yes | 0 No |
Post New Answer View All Answers
No New Questions to Answer in this Category !! You can
Post New Questions
Answer Questions in Different Category