Skip to main content

Get QC Parameters from Test cases using QTP

By
'######################################################
'#  FunctionName : getQCParameters
'# Purpose: To get  the QC Parameters from Test cases using QTP
'# Created By :  Jay
'######################################################
Function getQCParameters(strNodeByPath)
    On Error Resume Next
    'strNodeByPath =  "Subject\02 - System Test\TestCases\Reports\Client Reports"
    Set TDC = QCUtil.QCConnection
    set TSfact = TDC.TestSetFactory
    Set TreeMgr = TDC.TreeManager
    Set TestTree = TreeMgr.NodeByPath(strNodeByPath)
    Set TestFactory = TestTree.TestFactory
    Set TestList = TestFactory.NewList("")
    Dim NodesList()
    ReDim Preserve NodesList(0)
    NodesList(0) = TestTree.Path                         
    Dim Row, Node, TestCase
    irow = 1
    For Each Node In NodesList   
        Set TestTree = TreeMgr.NodeByPath(Node)
        Set TestFactory = TestTree.TestFactory
        Set TestList = TestFactory.NewList("")
        iCnt = TestList.Count
        For i = 1 to iCnt
            Set TestCase = TestList(i)
            DataTable.SetCurrentRow(irow)
            testcaseName = TestCase.Name
            DataTable("SNO")  = i
            DataTable("TestcaseName") = TestCase.Name
            Set DesignStepFactory = TestList(i).DesignStepFactory
            Set DesignStepList = DesignStepFactory.NewList("")
            idCnt = DesignStepList.Count
            If idCnt <>  0 Then
                For j= 1 to idCnt
                    ipCnt = DesignStepList(j).linkedparams.Count
                    templateNameArray = Split(DesignStepList(j).StepDescription, "<", -1)
                    templateName = Split(templateNameArray(1),">",-1)(0)
                    DataTable.SetCurrentRow(irow)
                    DataTable("TemplateName")  = templateName
                    For k =0 to ipCnt-1
                        DataTable.SetCurrentRow(irow)
                        DataTable("Parameters") = DesignStepList(j).linkedparams.ParamName(k)
                        DataTable("Value") = DesignStepList(j).linkedparams.ParamValue(k)
                        irow = irow +1
                    Next
                Next           
            End If
        Next
   Next
bound = Ubound(Split(NodesList(0),"\"))
Folname = Split(NodesList(0),"\")(bound)
DataTable.Export"C:\Jay_" & Folname & ".xls"
End Function

Eg:
strNodeByPath =  "Subject\02 - System Test\TestCases\Reports\Security Report"
Call getQCParameters(strNodeByPath)
Labels:

Comments

Post a Comment

Popular posts from this blog

PDF Automation in QTP

By
                                                                            The most challenging issue with PDFs is that it could be of any kind, not just a tabular data; it could have plain text, images or even forms to fill up. So this makes a tester’s life a bit difficult, never mind, we will definitely find an easy of do it… Although there are already some better approaches we have to deal with PDF documents but I found many of us are facing so many difficulties using this. There are lots of queries coming at QTP forums asking for an easy way of doing it with PDFs. keeping those in my mind I started c...
Post a Comment
Read more

Convert JSON to XML using QTP/UFT/VBScript

By
Sample Code : Dim strPage,strJSON,objIE strPage = "C:\Jay\JLoader.html" Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate2 strPage While objIE.Busy : Wend strJSON = "{""FirstName"":""Jay"", ""LastName"":""Krishna""}" Set objWin = objIE.document.parentWindow objWin.execScript "var jsonStr2XML = function(strJSON) { return json2xml(JSON.parse(strJSON));};" Msgbox  oWin.jsonStr2XML(strJSON) objIE.Quit In Detail: Converting The most popular data interchange format JSON(JavaScript Object Notation) to XML using QTP/UFT. Parsing JSON in UFT could be a challenge so we will use JavaScript in UFT to make it perfect. SO We need :              Java Script API  - To Convert JSON to XML                         JavaScript Files :  ...
Post a Comment
Read more

Download Test Resource From QC Using QTP

By
'########################################################################### '* Function Name: QCGetResource '* Designer: Jay '* Date 09-May-2012 '* This script will Download QC Test Resource to a local dir '########################################################################### Function QCGetResource(resourceName,saveTo)     Set qcConn = QCUtil.QCConnection     Set oResource = qcConn.QCResourceFactory     Set oFilter = oResource.Filter     oFilter.Filter("RSC_FILE_NAME") = resourceName     Set oResourceList = oFilter.NewList     If oResourceList.Count = 1 Then         Set oFile = oResourceList.Item(1)         oFile.FileName = resourceName         oFile.DownloadResource saveTo, True     End If         Set qcConn = Nothing     Set oResource = Nothi...
Post a Comment
Read more

compare Two Text files using Vb Script

By
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
1 comment
Read more

CreateImageFromClipBoard using QTP

By
'-------------------------------------------------------------------------' Method : CreateImageFromClipBoard' Author : Jai Purpose : It gets the clipboard image and convert as a image file.' Parameters: FileName - String, contains the BMP file name' iIndex - Integer, contains the Worksheet index' Returns : String. The replaced file name it gives.' Caller : - Nil' Calls : - Nil' ------------------------------------------------------------------------- Sub CreateImageFromClipBoard(sFileName) Dim wshShell,ShellReturnCode, sCmdExec Set WshShell = WScript.CreateObject("WScript.Shell") sCmdExec = "D:\autostuff\i_view32.exe /silent /clippaste /convert="& sFileName ShellReturnCode = WshShell.Run(sCmdExec, 1, True) End Sub
Post a Comment
Read more