Quick test professional

QTP Tips QTP codes QTP Faqs and more

compare 2 text files

Use the CompareFiles function
The following function can be used to check and compare the content of the two files.

Note:
This function is not part of QuickTest Professional/Astra QuickTest. It is not guaranteed to work and is not supported by Mercury Interactive Technical Support. You are responsible for any and all modifications that may be required.

CompareFiles (FilePath1, FilePath2)

 

FilePath1

The path to the first file to compare

FilePath2

The path to the second file to compare

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

Return value:
The function returns 0 or False if the two files are identical, otherwise True.

Example:
File1 = “C:\countries\apple1.jpg”
File2 = “C:\countries\apple3.jpg”

 

If CompareFiles(File1, File2) = False Then
MsgBox “Files are identical.”
Else
MsgBox “Files are different.”
End If

  Source: Mercury Forum’s KB articles

Advertisements

February 14, 2008 Posted by | compare 2 text files | , , , , , , , , | 4 Comments