How do I compare 2 text files?

[avanthika]

I need to compare and validate 2 reports(text file). The reports need to be called from locations and then compare both of them and the difference needs to be reported as result.

Let me know the possible ways for this. Or what can I do. I have QTP 11 , windows 7, ie 8

Thank you
Avanthika

[sshukla12]

Might be helpful to you.

Code:

Public Function CompareFiles (FilePath1, FilePath2) Dim FS, File1, File2 Set FS = CreateObject(“Scripting.FileSystemObject”) If FS.GetFile(FilePath1).Size <> FS.GetFile(FilePath2).Size Then CompareFiles = True Exit Function End If Set File1 = FS.GetFile(FilePath1).OpenAsTextStream(1, 0) Set File2 = FS.GetFile(FilePath2).OpenAsTextStream(1, 0) CompareFiles = False Do While File1.AtEndOfStream = False Str1 = File1.Read(1000) Str2 = File2.Read(1000) CompareFiles = StrComp(Str1, Str2, 0) If CompareFiles <> 0 Then CompareFiles = True Exit Do End If Loop File1.Close() File2.Close() End Function

Regards,
Sankalp

[avanthika]

For this I am getting the syntax error when I try to run this in test. Please help.

Thank you
avanthika

[avanthika]

Thank you for the script. I am successful in running the script mentioned above. Can I report the difference between the 2 files as Result line by line. Please help.

Thanks
Avanthika

[Arul]

Hi,

Code:

Set FS = CreateObject("Scripting.FileSystemObject")

use the above line.u will not get a error

Thanks,
Arul