0

特定の Quality Center プロジェクトについて、以下のクエリ (添付ファイルとその添付サイズを持つすべての欠陥のリストを取得する) を既に持っている人はいますか?

クエリ出力: バグ ID || 添付ファイルのサイズ (このバグのすべての添付ファイルの合計サイズ)

更新: これを実現するために、以下の QTP Script/VBScript コードを書くことができました。以下のコードは機能します。文字数制限でコメント欄に書ききれなかったので、ここに返信させていただきます。また、自分の質問に対する回答を投稿するオプションが見つかりませんでした。

Dim  logFileName
logFileName = "C:\TRS Files\Attachments.csv"

Set qcConnection = QCUtil.QCConnection
Set bugFactory=qcConnection.BugFactory
Set bugFilter = bugFactory.Filter

bugFilter.Filter("BG_STATUS")="Closed"
bugFilter.Filter("BG_ATTACHMENT")="Y"

Set bugList = bugFilter.NewList

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(logFileName)
Call objFile.WriteLine("BUG ID" & "," & "Collective Attachment Size")

For Each bug In bugList
            Set bugAttachments = bug.Attachments
            Set bugAttachmentList = bugAttachments.NewList("")
            Dim collectiveAttachmentSize
            collectiveAttachmentSize=0
            For Each bugAttachment in bugAttachmentList
                            collectiveAttachmentSize=collectiveAttachmentSize + bugAttachment.FileSize
            Next
            Call objFile.WriteLine(bug.ID & "," & collectiveAttachmentSize)
            Set bugAttachmentList=Nothing
            Set bugAttachments=Nothing
Next

Set objFile=Nothing
Set objFSO=Nothing
Set bugFilter=Nothing
Set bugFactory=Nothing
Set qcConnection=Nothing
4

0 に答える 0