|
.我只贴片段给些思路吧,因为我的方法就只适合我自己,而且我写的方法很不好,我自己都不愿意看.按照这个思路,你可以找到,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 |
|