Hi Shalabh, The code looks good. Please provide the code for "CreateHTMLReport" function also.
Regards, Suman Ch On Fri, Apr 8, 2011 at 6:18 PM, Shalabh Dixit <[email protected]>wrote: > You can try the below code... let's chk it if it can be useful for u... > > ''<Procedure> > ''<name> InsertIntoHTMLReport</name> > ''<description> It is the main parent function that checks the availability > of the text log file for the current date and if it is present then it > calls another function to update this text file, else it call function to > create text file and then update it with result logs. </description> > ''<param name="strStepName">[in] The calling function name or the Step > name</param> > ''<param name="strStepShortDesc">[in] Short Description of Step or calling > function</param> > ''<param name="strExpectedResult">[in] Expected Result description</param> > ''<param name="blnStatus">[in] "True" for passed validation, "False" for > failed validation</param> > ''<param name="strLogfilePath">[in] Result folder path where the html log > file needs to be created</param> > ''<param name="blnImage">[in] True or False , True if SnapShot is required > , False if not required </param> > ''<returns> NIL</returns> > ''<example> > '' > '' Call InsertIntoHTMLReport( "Pearson Testing", "Testing Pearson > Scenarios", "Automation Success", True, "D:\QTP_Pearson\test_html",True) > '' > ''</example> > ''<changelog> > '' Date Author > Changes/Notes > ''----------- ------------------ > ----------------------- > '' 28-Dec-2010 Shalabh Dixit Initial version. > ''</changelog> > ''</Procedure> > > '''''************************************************************************************************************************************************************************************************************* > > '''''************************************************************************************************************************************************************************************************************* > > > Public Sub InsertIntoHTMLReport(strStepName, strStepShortDesc, > strExpectedResult, blnStatus, strLogfilePath,blnImage) > On Error Resume Next > Dim dtMyDate > Dim strHTMLFilePath > dtMyDate = Day(Date) &"_"& MonthName(Month(Date),3) &"_"& > Year(Date) > strHTMLFilePath =strLogfilePath &"\HTML_Result_Log_"& > Environment.Value("TestName") &"_TestSuite_"& dtMyDate & ".txt" > > If strLogfilePath <> "" Then > Dim objFSO > Set objFSO = CreateObject("Scripting.FileSystemObject") > If (objFSO.FileExists(strHTMLFilePath)) Then > Call UpdateHTMLReport(strStepName, strStepShortDesc, > strExpectedResult, blnStatus, strHTMLFilePath,strLogfilePath,blnImage) > Else > Call CreateHTMLReport(strHTMLFilePath) > Call UpdateHTMLReport (strStepName, strStepShortDesc, > strExpectedResult, blnStatus, strHTMLFilePath,strLogfilePath,blnImage) > End If > Else > Reporter.ReportEvent micFail, "ERROR. Log file path is not > specified", "" > End If > Set objFSO = Nothing > End Sub > > ''''''''''''''''''UpdateHTMLReport'''''''''''''''' > ''''''''''''''********************************* > ''<Procedure> > ''<name> UpdateHTMLReport</name> > ''<description> This function updates the text log file as well as the QTP > embeded Result log.</description> > ''<param name="strStepName">[in] The calling function name or the Step > name</param> > ''<param name="strStepDesc">[in] Short Description of Step or calling > function</param> > ''<param name="strExpectedResult">[in] Expected Result description</param> > ''<param name="blnStatus">[in] "True" for passed validation, "False" for > failed validation</param> > ''<param name="strHTMLFilePath">[in] The text file path which needs to be > updated and transformed into html file.</param> > ''<param name="strLogfilePath">[in] Result folder path where the html log > file needs to be created</param> > '<param name="blnImage">[in] True or False , True if SnapShot is required , > False if not required </param> > ''<returns> NIL</returns> > ''<example> > '' strHTMLFilePath =strLogfilePath &"\HTML_Result_Log_"& > Environment.Value("TestName") &"_TestSuite_"& dtMyDate & ".txt" > '' Call UpdateHTMLReport( "Pearson Testing", "Testing Pearson > Scenarios", "Automation Success", True, > strHTMLFilePath,"D:\QTP_Pearson\test_html",True) > '' > ''</example> > ''<changelog> > '' Date Author > Changes/Notes > ''----------- ------------------ > ----------------------- > '' 28-Dec-2010 Shalabh Dixit Initial version. > ''</changelog> > ''</Procedure> > > '''''************************************************************************************************************************************************************************************************************* > > '''''************************************************************************************************************************************************************************************************************* > Public Sub UpdateHTMLReport(strStepName, strStepDesc, strExpectedResult, > blnStatus, strHTMLFilePath,strLogfilePath,blnImage) > On Error Resume Next > Dim dtMyDate > Dim qtApp > Dim strMyStatus > Dim strVarStatus > Dim strColor > Dim dtExecutionTime > Dim a, intHour , intMinute , intSec > > Const ForWriting = 2 > Const ForAppending = 8 > > dtMyDate = Day(Date) &"_"& MonthName(Month(Date),3) &"_"& > Year(Date) > > If UCase(Trim(blnStatus)) = Ucase("True") Then > strMyStatus = "Pass" > strColor ="GREEN" > Elseif UCase(Trim(blnStatus)) = Ucase("False") Then > strMyStatus = "Fail" > strColor ="RED" > End If > > Set qtApp = CreateObject("QuickTest.Application") > strTimeStamp = Day(Date) & Month(Date) & Year(Date) &"_"& > Hour(Time) & Minute(Time) & Second(Time) > > If UCase(Trim(blnImage)) =UCase("True")Then > '' If blnStatus <> "True" Then > Dim strStatusFileName, > strStatusFilePath,strStatusStepFilePath > > strStatusFileName = "Execution_status_image_"& > strTimeStamp & ".bmp" > strStatusFilePath = strLogfilePath & "\" & > strStatusFileName > qtApp.Visible = False > Wait(1) > Desktop.CaptureBitmap strStatusFilePath, True > qtApp.Visible = True > strStatusStepFilePath = strStatusFilePath > '' Else > '' strStatusStepFilePath = "NA" > '' End If > > ElseIf UCase(Trim(blnImage)) =UCase("False") Then > strStatusStepFilePath = "NA" > Else > Reporter.ReportEvent micWarning, > "InsertIntoHTMLReport","blnImage parameter value: "& blnImage &" is not > passed properly. Please pass boolean value." > Exit Sub > End If > > a= "0" > intHour = Hour(Time) > intMinute = Minute(Time) > intSec = Second(Time) > > If Len(intHour) < 2 Then > intHour = a & intHour > End If > > If Len(intMinute) < 2 Then > intMinute = a & intMinute > End If > > If Len(intSec) < 2 Then > intSec = a & intSec > End If > > dtExecutionTime =Day(Date) &"-"& MonthName(Month(Date),3) > &"-"& Year(Date)&", "& intHour &":"& intMinute &":"& intSec > > Set fso = CreateObject ("Scripting.FileSystemObject") > > Set objHTMLTextFile = fso.OpenTextFile(strHTMLFilePath, 8, > true) > > objHTMLTextFile.WriteLine("<tr>") > objHTMLTextFile.WriteLine("<td><font color=BLACK > face=ARIAL>"& Environment.Value("ActionName") &"</font></td>") > objHTMLTextFile.WriteLine("<td><font color=BLACK > face=ARIAL>"& strStepName &"</font></td>") > objHTMLTextFile.WriteLine("<td><font color=BLACK > face=ARIAL>"& strStepDesc &"</font></td>") > objHTMLTextFile.WriteLine("<td><font color=BLACK > face=ARIAL>"& strExpectedResult &"</font></td>") > > objHTMLTextFile.WriteLine("<td ><font color=" & strColor &" > face=ARIAL> "& strMyStatus &" </font></td>") > objHTMLTextFile.WriteLine("<td ><font color=BLACK > face=ARIAL>"& dtExecutionTime &"</font></td>") > If strStatusStepFilePath ="NA" Then > objHTMLTextFile.WriteLine("<td ><font color=BLACK > face=ARIAL>"& strStatusStepFilePath &"</font></td>") > Else > objHTMLTextFile.WriteLine("<td><font color=" & strColor > &" face=ARIAL><a href='"& strStatusStepFilePath & "'>"& > strStatusStepFilePath & "</a></font></td>") > End If > > objHTMLTextFile.WriteLine("</tr>") > > If strMyStatus = "Pass" Then > strVarStatus = micPass > Reporter.ReportEvent strVarStatus , strStepName , > strStepDesc & ", Expected Result : <" & strExpectedResult &">.", > strStatusStepFilePath > Elseif strMyStatus ="Fail" Then > strVarStatus = micFail > Reporter.ReportEvent strVarStatus , strStepName , > strStepDesc & " , Expected Result : <" & strExpectedResult & > ">.",strStatusStepFilePath > End If > > objHTMLTextFile.Close > > Set objHTMLTextFile = Nothing > Set qtApp = Nothing > Set fso = Nothing > > End Sub > > > > Regards > Shalabh Dixit > > > > > On Fri, Apr 8, 2011 at 5:32 PM, Ramya harini <[email protected]>wrote: > >> Hi QTP users, >> >> If any one has the code for HTML way result report in vbscript.pls share >> it across! >> >> Thanks >> Ramya >> >> -- >> You received this message because you are subscribed to the Google >> "QTP - HP Quick Test Professional - Automated Software Testing" >> group. >> To post to this group, send email to [email protected] >> To unsubscribe from this group, send email to >> [email protected] >> For more options, visit this group at >> http://groups.google.com/group/MercuryQTP?hl=en > > > -- > You received this message because you are subscribed to the Google > "QTP - HP Quick Test Professional - Automated Software Testing" > group. > To post to this group, send email to [email protected] > To unsubscribe from this group, send email to > [email protected] > For more options, visit this group at > http://groups.google.com/group/MercuryQTP?hl=en > -- You received this message because you are subscribed to the Google "QTP - HP Quick Test Professional - Automated Software Testing" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/MercuryQTP?hl=en
