How to customize QTP Result File – UFT A simple function

UFT generates a very good and detailed result for the test run. It can be generated in xml and html both formats after the upgradations brought by UFT.

Still, if you want to generate the result in a different way, there is a way we to customize qtp/UFT generated test result log file.
This function modifies the result logging function of QTP/UFT and generates a very beautiful color coded  and detailed statement for each step.

Go ahead and try this function to customize qtp result report as an html report.

Code to customize QTP result files

CustomResult micFail, "ObjectStep","Actual result","Expected result"

Function CustomResult(nStatus, sStep, sActual, sExpected)
  
  Set oEventDesc = CreateObject("Scripting.Dictionary")   
  oEventDesc("ViewType") = "Sell.Explorer.2"   
  oEventDesc("Status") = nStatus   
  oEventDesc("EnableFilter") = False   
  oEventDesc("NodeName") = sStep

  Dim sHTMLInfo   
  sHTMLInfo = "<TABLE border='0'>"   
  If nStatus = 1 Then    
  sHTMLInfo = sHTMLInfo & "<TR><TD><font color='red' size='2'>Actual Result: " & sActual & "</font></TD></TR>"   
  Else    
  sHTMLInfo = sHTMLInfo & "<TR><TD><font color='green' size='2'>Actual Result: " & sActual & "</font></TD></TR>"   
  End If

  sHTMLInfo = sHTMLInfo & "<TR><TD><font color='blue' size='2'>Expected Result: " & sExpected & "</font></TD></TR></TABLE>"                      
  oEventDesc("StepHtmlInfo") = sHTMLInfo  
  newEventContext = Reporter.LogEvent ("Replay",oEventDesc,Reporter.GetContext)
 
End Function

How to use this function to customize QTP result

Using this function is very simple. You can just copy this function in your function library. For logging any step, in place of writing Reporter.ReportEvent , call the above function same way as it is called in the first line. This will customize qtp result in a very beautiful html report.