How to open a file in one script and write into it in another script

[reejais]

Hi All,

Can anybody tell me how to open a file in one script and write into it in a different script?

I have to open a file once in login script and use it in all the test cases script to write the result of the test case into it.

I have written a code like this in login script

Code:

Dim fso Set fso = createobject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile("path", True)

Now in my TEST_CASE 1 script I have to write

Code:

tf.writeline("Pass")

But this doesn't work.

[cdesserich]

Just curious, why can't you just reopen the file in the next script? This approach would also have the advantage of being able to open the file in "append" mode so that you aren't accidentally writing over your previous results:

'Script 1 (Login script?)
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("C:/QTP.txt", True)
tf.WriteLine("Pass")
tf.Close
Set tf = Nothing
Set fso = Nothing

'Script 2
Dim ForAppending, fso, tf
ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile("C:/QTP.txt", ForAppending)
tf.WriteLine("Fail")
tf.Close
Set tf = Nothing
Set fso = Nothing

If you are talking about a test that calls reusable actions and you want to be able to hand the text file between the actions, you could use an environment variable. This works as long as the scripts are calling each other (i.e. clicking run once) since the environment variable only lives for the current test run:

'Store the text file object in a varaible -->
Environment("ResultsFileObject").Value = tf

'Reuse the text file object somewhere else -->
Environment("ResultsFileObject").WriteLine("Pass")

[reejais]

Thanks for the reply. Yes I wanted to create a file in one script and use it all the other scripts for appending.

[cdesserich]

So have you tried one of the strategies from my first post?

[bfakruddin]

Hi, I've developed some code here. I' working on RFT now... If any syntax's mixed with java, Plz ignore and convert into VBScript.
I'm writing this with out using QTP. just I analyzed and developed... check it once and revert me if you get any issues with this.

Here, you can first create a text file at your desired location and then pass the values required to the function. just call this function and conclude that the passing text has been appended to file.

Code:

public function fncAppendFile(path_of_the_file, updating_text_into_file) dim fso, fs dim txtBefore, txtAfter int intlenBefore, intlenAfter, intlenAppTxtString intlenAppTxtString = len(updating_text_into_file) set fso = createobject("Scripting.filesystemobject") set fs = fso.opentextfile("path_of_the_file", 8) txtBefore = fs.readall intlenBefore = len(txtBefore) fs.writeline(updating_text_into_file) fs.save txtAfter = fs.readall intlenAfter = len(txtAfter) if (intlenAfter=intlenBefore+intlenAppTxtString) Then fncAppendFile = True fs.close else fncAppendFile = False fs.close End if set fso = nothing set fs = nothing End function Dim path_of_the_file, updating_text_into_file path_of_the_file = " your desired path of the text file" updating_text_into_file = " The text you want to append to text file is here" result = fncAppendFile(path_of_the_file, updating_text_into_file) if(result = True) Then reporter.reportevent "micpass", "The string is appended to file successfully" else reporter.reportevent "micfail", "The string is not appended to file" end if

Thanks & Regards,
Baba Fakruddin.D

[reejais]

Hi All,

Thanks for the reply.

@cdesserich, The environment variable still not works and displays an error "Object not found in the OR" in the script where I am using tf.writeline.

But my issue is resolved for now though I have not tried different ways. This is what I do now.

Currently I am using my library file to open the Result.txt file and I am declaring the "tf" variable as Public and attaching the library file with my script and this works fine now.

@Baba, later I am going to try out the script which you have given too.

Regards,
Reema.