• RSS
  • Facebook
  • Twitter

One Center for all the Testing Need. OneTestingCenter is for all, for all QA, for all Automation. Automation is easy, fun and enriching experience. Happy Learning and Happy Testing!

  • Access to All QA

    At OneTestingCenter, you find lots of books,articles,blogs and detailed guides. Everyone has access to QA. Happy Learning, Happy Testing.

  • Global Trainings

    All the QA/Auotmation trainings are available at OneTestingCenter. QA, Automation, QTP/UFT, Selenium, LoadRunner, QC/ALM, Appium...

  • Automation Learning Fun

    Technology is always evolving. Automation is always challenging. To be frank, Automation is fun, enthusiastic and enrching experience.



    '************************************************************************
    ' GAReddy @ OneTestingCenter @ QTP @ Files Comparison
    '************************************************************************
    FilePath="D:\TestData\"
    MyFile1="OnlineScriptLog.txt"
    MyFile2="OnlineScriptLog1.txt"
    ResultFile="D:\TestData\ResultFile.txt"

    Call CompareFiles(FilePath, MyFile1, MyFile2)

    Public Function CompareFiles(FilePath, MyFile1, MyFile2)

    Const ForReading = 1
    Const ForWriting = 2
    Const BinaryCompare = 0

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set File1 = oFSO.OpenTextFile(FilePath & MyFile1, ForReading)
    Set File2 = oFSO.OpenTextFile(FilePath & MyFile2, ForReading)

    Set DiffFile=oFSO.CreateTextFile(ResultFile)
    ' *************************************************
    ' ****** To Count the number of lines in File1 ***********
    '*************************************************
                                    i=0
                                    While File1.AtEndOfStream <> True
                                    Line1 = File1.ReadLine
                                    i=i+1
                                    Wend

    ' *************************************************
    ' ****** To Count the number of lines in File2 ***********
    '*************************************************
                                    j=0
                                    While File2.AtEndOfStream <> True
                                    ln2 = File2.ReadLine
                                    j=j+1
                                    Wend

    ' *************************************************
    ' To Check if  number of lines in File1 and File 2 are equal
    '*************************************************
                                    If i<>j Then
                                                     Reporter.ReportEvent 1, "Line Count ", "Line Count is not equal."
                                     else
                                     Reporter.ReportEvent 0, "Line Count ", "Line Count is equal."
                                    End If
                                    File1.Close
                                    File2.Close

    ' *************************************************
    ' To Read text from both files to compare
    '*************************************************
                    Set File1 = oFSO.OpenTextFile(FilePath&MyFile1, ForReading)
                    Set File2 = oFSO.OpenTextFile(FilePath&MyFile2, ForReading)
                   
                    Do While ((File1.AtEndOfStream <> True) AND (File2.AtEndOfStream <> True))
    '               Do While ((File1.AtEndOfStream <> True))
                    File1Line=File1.Line
                    File2Line=File2.Line
                    File1ReadLine = File1.ReadLine
                    File2ReadLine = File2.ReadLine
                   
                    Comp = StrComp( CStr(File1ReadLine),CStr( File2ReadLine), BinaryCompare)
                    ' *************************************************
                    ' To wrtie the comparison results on DiffFile
                    '*************************************************
                    If (Comp <> 0) then
                     DiffFile.WriteLine   "Contents are different" &vbtab& File1Line &vbtab&  CStr(File1ReadLine) &"***"& File2Line &vbtab&  CStr(File2ReadLine)
                     Else
                     DiffFile.WriteLine  "Contents are same" &vbtab & File1Line &vbtab& CStr(File1ReadLine)
                    End if
                    Loop
                   
                    File1.Close
                    File2.Close
                    DiffFile.Close
                   
                    End Function

    '************************************************************************
    Reactions:

    QTP - Files - Files Comparison



    '************************************************************************
    ' GAReddy @ OneTestingCenter @ QTP @ Files Comparison
    '************************************************************************
    FilePath="D:\TestData\"
    MyFile1="OnlineScriptLog.txt"
    MyFile2="OnlineScriptLog1.txt"
    ResultFile="D:\TestData\ResultFile.txt"

    Call CompareFiles(FilePath, MyFile1, MyFile2)

    Public Function CompareFiles(FilePath, MyFile1, MyFile2)

    Const ForReading = 1
    Const ForWriting = 2
    Const BinaryCompare = 0

    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set File1 = oFSO.OpenTextFile(FilePath & MyFile1, ForReading)
    Set File2 = oFSO.OpenTextFile(FilePath & MyFile2, ForReading)

    Set DiffFile=oFSO.CreateTextFile(ResultFile)
    ' *************************************************
    ' ****** To Count the number of lines in File1 ***********
    '*************************************************
                                    i=0
                                    While File1.AtEndOfStream <> True
                                    Line1 = File1.ReadLine
                                    i=i+1
                                    Wend

    ' *************************************************
    ' ****** To Count the number of lines in File2 ***********
    '*************************************************
                                    j=0
                                    While File2.AtEndOfStream <> True
                                    ln2 = File2.ReadLine
                                    j=j+1
                                    Wend

    ' *************************************************
    ' To Check if  number of lines in File1 and File 2 are equal
    '*************************************************
                                    If i<>j Then
                                                     Reporter.ReportEvent 1, "Line Count ", "Line Count is not equal."
                                     else
                                     Reporter.ReportEvent 0, "Line Count ", "Line Count is equal."
                                    End If
                                    File1.Close
                                    File2.Close

    ' *************************************************
    ' To Read text from both files to compare
    '*************************************************
                    Set File1 = oFSO.OpenTextFile(FilePath&MyFile1, ForReading)
                    Set File2 = oFSO.OpenTextFile(FilePath&MyFile2, ForReading)
                   
                    Do While ((File1.AtEndOfStream <> True) AND (File2.AtEndOfStream <> True))
    '               Do While ((File1.AtEndOfStream <> True))
                    File1Line=File1.Line
                    File2Line=File2.Line
                    File1ReadLine = File1.ReadLine
                    File2ReadLine = File2.ReadLine
                   
                    Comp = StrComp( CStr(File1ReadLine),CStr( File2ReadLine), BinaryCompare)
                    ' *************************************************
                    ' To wrtie the comparison results on DiffFile
                    '*************************************************
                    If (Comp <> 0) then
                     DiffFile.WriteLine   "Contents are different" &vbtab& File1Line &vbtab&  CStr(File1ReadLine) &"***"& File2Line &vbtab&  CStr(File2ReadLine)
                     Else
                     DiffFile.WriteLine  "Contents are same" &vbtab & File1Line &vbtab& CStr(File1ReadLine)
                    End if
                    Loop
                   
                    File1.Close
                    File2.Close
                    DiffFile.Close
                   
                    End Function

    '************************************************************************