51Testing软件测试论坛

标题: 自己写的一段得取xml文件的一段小代码 [打印本页]

作者: sunjian 时间: 2008-12-5 13:48
标题: 自己写的一段得取xml文件的一段小代码
Dim nodelocation  'locate the node of xxxx_TestCasexxxx
Dim testcase    'testcasename
Dim details    'details
Dim status       'status
nodelocation=1

Function getXMLData(spriptname,qtpreport)
Dim j
Err.Clear
Set dom=CreateObject("microsoft.xmldom")
Set p=New RegExp
dom.load qtpreport
p.Pattern=spriptname&"_TestCase[0-99999]"
Do While 1
  On Error Resume Next
nodetext=dom.getElementsByTagName("Obj")(nodelocation).text
If Err.Number=424 Then
   Exit do
End If
If p.Test(nodetext)=True Then
   j=nodelocation
Exit do
  End If
  nodelocation=nodelocation+1
Loop
If Err.Number<>424 Then
   testcase=dom.getElementsByTagName("Obj")(j).text
   details=dom.getElementsByTagName("Obj")(j).nextSibling.text
   status=dom.getElementsByTagName("Obj")(j).nextSibling.nextSibling.nextSibling.getAttribute("status")
   nodelocation=j+1
   MsgBox testcase
   MsgBox details
   MsgBox status
End If
End Function

  Call getXMLData("Application","E:\qtpscript\FWTestProject\report\SDK_AppLication\20081104142522\Report\Results.xml")

作者: j44jj44j 时间: 2008-12-5 13:52
沙发，支持原创

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)