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


Please Help Members By Posting Answers For Below Questions

No New Questions to Answer in this Category !!    You can

Post New Questions

Answer Questions in Different Category