用XML DOM的方法遍历QTP生成的结果文件result.xml,取得你要的信息,然后写入到文件..变成html就可以了
需要按实际情况仔细的分析一下你的result.xml作者: sunqiang1024 时间: 2010-2-4 11:42
能把你的方法共享一下吗?作者: wuyuzimu 时间: 2010-2-4 11:47
我也想知道,urgent!由于要马上拿出手的,所以没时间研究了作者: wugecat 时间: 2010-2-4 12:00
.我只贴片段给些思路吧,因为我的方法就只适合我自己,而且我写的方法很不好,我自己都不愿意看.按照这个思路,你可以找到,case下的检查点步骤,同时可以找到每个步骤的详细信息
'获取用例
Function getallcase(xmlDoc)
Set arr=CreateObject("Scripting.Dictionary")
Set x=xmlDoc.getElementsByTagName("Action")
For i=0 To x.length-2
arr.add i,x(i+1)
Next
Set getallcase=arr
End Function
'获得错误的用例
Function geterrcase(xmlDoc)
Set arr=CreateObject("Scripting.Dictionary")
cases=getallcase(xmlDoc).Items
For i=0 To UBound (cases)
Set errstep=cases(i).getElementsByTagName("NodeArgs")
For n=0 To errstep.length-1
If errstep(n).getAttribute("status")="Warning" And (errstep(n).getAttribute("eType")="Replay" or errstep(n).getAttribute("eType")="User") Then
arr.add getATMSCasename(cases(i)),cases(i)
Exit For
End If
Next
Next
Set geterrcase=arr
End Function作者: FLY000 时间: 2010-2-4 19:30
收藏,看来DOM方法必须得掌握熟练哦~~~