How to generate report in HTML

First Method:


'sResultsXML = "C:\Results.xml"
'sDetailedXSL = "C:\Program Files\Mercury Interactive\QuickTest Professional\dat\PDetails.xsl"
'sShortXSL = "C:\Program Files\Mercury Interactive\QuickTest Professional\dat\PDetails.xsl"
'ApplyXSL sResultsXML, sDetailedXSL, "C:\Results_Detailed.html"
'ApplyXSL sResultsXML, sShortXSL, "C:\Results_Short.html"
Public Function ApplyXSL(ByVal inputXML, ByVal inputXSL, ByVal outputFile)
   sXMLLib = "MSXML.DOMDocument"
   Set xmlDoc = CreateObject(sXMLLib)
   Set xslDoc = CreateObject(sXMLLib)
   xmlDoc.async = False
   xslDoc.async = False

   xslDoc.load inputXSL

   xmlDoc.load inputXML

   outputText = xmlDoc.transformNode(xslDoc.documentElement)

   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set outFile = FSO.CreateTextFile(outputFile,True)
   outFile.Write outputText
   outFile.Close
   Set outFile = Nothing
   Set FSO = Nothing
   Set xmlDoc = Nothing
   Set xslDoc = Nothing
   Set xmlResults = Nothing
 End Function

Comments

Popular posts from this blog

Arrays

What is the difference between eval, execute and executeglobal.

Sample Test Strategy for a MicroService Project with APIs only