Reading and writing is the same text file

[poulomi21b]

Hi

I want to read the data from a text file and write the result for that data set in the text file at the same time how can i do that in QTP

File Format:-
DATE##FLYFROM##FLYTO##NAME##TICKET##Result
073014##Denver##Paris##Test1##1
072514##Paris##Denver##Test2##2

I want to write the result (pass/fail) under the RESULT col.

Code:-

Code:

systemutil.run"C:\Program Files (x86)\HP\Unified Functional Testing\samples\flight\app\flight4a.exe" Dialog("Login").WinEdit("Agent Name:").Set "mercury" Dialog("Login").WinEdit("Password:").SetSecure "53ba23c99f935b004bba9a2ac1279aec43b6e7d8" Dialog("Login").WinButton("OK").Click Set FSO = createobject("scripting.fileSystemObject") 'FSO.CreateFolder("D:\Poulomi\Test1") 'FSO.CreateTextFile("D:\Poulomi\Sample1.txt") 'set Ofile1= FSO.OpenTextFile("D:\Poulomi\Sample2.txt",2) Set Ofile = FSO.OpenTextFile("D:\Poulomi\Sample2.txt",1) 'Ofile.Write"HELLO" Ofile.SkipLine While Ofile.AtEndOfStream <> true resobj = Ofile.readline ' msgbox resobj arrobj = split(resobj,"##") dtdate = arrobj(0) flyfrom = arrobj(1) flyto = arrobj(2) name = arrobj(3) txt = arrobj(4) ' msgbox dtdate ' msgbox flyfrom ' msgbox flyto ' msgbox name ' msgbox txt 'Ofile1.Write"##" Window("Flight Reservation").ActiveX("MaskEdBox").Type dtdate Window("Flight Reservation").WinComboBox("Fly From:").Select flyfrom Window("Flight Reservation").WinComboBox("Fly To:").Select flyto Window("Flight Reservation").WinButton("FLIGHT").Click Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click Window("Flight Reservation").WinEdit("Name:").Set name Window("Flight Reservation").WinButton("Insert Order").Click Window("Flight Reservation").Dialog("Flight Reservations").WinButton("OK").Click Window("Flight Reservation").WinMenu("Menu").Select "File;New Order" Wend Ofile.Close Set Ofile=nothing Set FSO=nothing

Can someone please help me with this

[pranikgarg]

Code:

systemutil.run"C:\Program Files (x86)\HP\Unified Functional Testing\samples\flight\app\flight4a.exe" Dialog("Login").WinEdit("Agent Name:").Set "mercury" Dialog("Login").WinEdit("Password:").SetSecure "53ba23c99f935b004bba9a2ac1279aec43b6e7d8" Dialog("Login").WinButton("OK").Click Set FSO = createobject("scripting.fileSystemObject") 'FSO.CreateFolder("D:\Poulomi\Test1") 'FSO.CreateTextFile("D:\Poulomi\Sample1.txt") 'set Ofile1= FSO.OpenTextFile("D:\Poulomi\Sample2.txt",2) Set Ofile = FSO.OpenTextFile("D:\Sample2.txt",1) 'Ofile.Write"HELLO" Ofile.SkipLine While Ofile.AtEndOfStream <> true resobj = Ofile.readline ' msgbox resobj arrobj = split(resobj,"##") dtdate = arrobj(0) flyfrom = arrobj(1) flyto = arrobj(2) name = arrobj(3) txt = arrobj(4) ' 'msgbox dtdate 'msgbox flyfrom 'msgbox flyto 'msgbox name 'msgbox txt 'Ofile1.Write"##" 'Window("Flight Reservation").ActiveX("MaskEdBox").Type dtdate Window("Flight Reservation").WinObject("Date of Flight:").Type dtdate Window("Flight Reservation").WinComboBox("Fly From:").Select flyfrom Window("Flight Reservation").WinComboBox("Fly To:").Select flyto Window("Flight Reservation").WinButton("FLIGHT").Click Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click Window("Flight Reservation").WinEdit("Name:").Set name Window("Flight Reservation").WinButton("Insert Order").Click If(Window("Flight Reservation").WinObject("Insert Done").GetVisibleText = "Insert Done...") Then MsgBox "Pass" Else MsgBox "Fail" End if Window("Flight Reservation").WinButton("Button").Click Wend Ofile.Close Set Ofile=nothing Set FSO=nothing

Check out this code.

[poulomi21b]

Thanks for the reply but I want to write the result in the same file from where I am reading. I think your code is writing the output in the msgbox.