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

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

Customised HTML Result Report for UFT/QTP with ScreenShots in HP ALM TestSet attached.

By
On   Error   Resume   Next '======================================================================================================================================== 'Module Name            :    GenerateCustomReport.qfl ' Author                    :    Jay 'Date Created            :     13/11/2014 'Description                :     The library contains various functions that are used to generate a Custom HTML report '======================================================================================================================================== 'Project/Test Specific Variables ...
1 comment
Read more

How to Read or Select Context Menu or Right Click Menu using QTP.

By
Select The Item in Right Click Menu or Context Menu: Window("sampleWindow").WinMenu("MenuObjType:=1).Select"File;New" Here MenuObjtype can be 1 r 2 r 3 .......n Check wether the Item is Exist or Not: If Window("sampleWindow").WinMenu("MenuObjType:=1).GetItemProperty("1","Exist") Then   Msgbox"Exist" Else  Msgbox"Does Not Exist" End If                                         Or If Window("sampleWindow").WinMenu("MenuObjType:=1).GetItemProperty("File","Exist") Then   Msgbox"Exist" Else  Msgbox"Does Not Exist" End If Get the Items in Context Menu: For i = 1 to 10 Print  Window("sampleWindow").WinMenu("MenuObjType:=" & i).GetItemProperty("1","Label") Then Next
Post a Comment
Read more

How to convert Excel column numbers into alphabetical characters

By
 The ConvertToLetter function works by using the following algorithm: Divide the column number by 27, and then put the resulting integer in the variable "i". Subtract the column number from "i" multiplied by 26, and then put the result in the variable "j". Convert the integer values into their corresponding alphabetical characters, "i" and "j" will range from 0 to 26 respectively. For example: The column number is 30. The column number is divided by 27: 30 / 27 = 1.1111, rounded down by the Int function to "1". i = 1 Next Column number - (i * 26) = 30 -(1 * 26) = 30 - 26 = 4. j = 4 Convert the values to alphabetical characters separately, i = 1 = "A" j = 4 = "D" Combined together, they form the column designator "AD". The following VBA function is just one way to convert column number values into their equivalent alphabetical charac...
Post a Comment
Read more

How To open Password Protected Excel sheets using Vb Script

By
Function UnprotectXL(filePath,fileName,pwd,writeresPwd)    Set objExcel=CreateObject(“Excel.Application”)    objExcel.Visible=false    testData=filePath&”\”&fileName    Set oWorkbook=objExcel.Workbooks    Set myWkbook=objExcel.Workbooks.open (testData,0,False,5,pwd,writeresPwd)    objExcel.DisplayAlerts=False    oWorkbook(fileName).Activate    For Each w in objExcel.Workbooks         w.SaveAs testData,,”",”"          Next    objExcel.Workbooks.Close    objExcel.Quit    Set oWorkbook=Nothing    Set objExcel=Nothing   End Function Function ProtectXL(filePath,fileName,pwd,writeresPwd)      On Error Resume Next      Set objExcel=CreateObject(“Excel.Application”)      objExcel.Visible=False      testData=filePath...
Post a Comment
Read more