2

我正在尝试使用递归技术来检索 xml 文件。有人可以帮我这样做吗。

我正在尝试阅读下面的 xml，但不确定嵌套标签的深度，所以我想到了使用递归技术。

<TestSuites>
  <TestSuite SuiteName="Regression">
    <TestCase TCName="TestCase 1">
      <TestStep TSName="TestStep 1"/>
      <TestStep TSName="TestStep 2"/>
    </TestCase>
    <TestCase TCName="TestCase 2">
      <TestStep TSName="TestStep 1"/>
      <TestStep TSName="TestStep 2"/>
    </TestCase>
  </TestSuite>
  <TestSuite SuiteName="Smoke"/>
  <TestSuite SuiteName="Sanity"/>
</TestSuites>
4

2 回答 2

1

VBScript 为您提供解析和处​​理 XML 结构的工具：

Set xml = CreateObject("MSXML2.DOMDocument")
xml.async = False
xml.load "c:\path\to\foo.xml"
WScript.Echo xml.xml

您可以使用（除其他外）XPath查询语言访问文档树中的元素：

Set nodes = xml.selectnodes("//TestStep[@TSName='TestStep 2']")

上面选择TestStep了树中任意位置的所有节点，这些节点的属性TSName值为TestStep 2。

拥有节点后，您可以读取或更改其属性：

WScript.Echo nodes.Length
WScript.Echo nodes(0).parentNode.nodeName
WScript.Echo nodes(1).parentNode.nodeName

WScript.Echo nodes(0).text
nodes(0).text = "foo"
WScript.Echo nodes(0).text
WScript.Echo xml.xml
于 2013-02-20T18:29:19.727 回答
1

您需要一个递归 Sub 来遍历 XML 文档树。原则上：

  Dim oFS    : Set oFS  = CreateObject("Scripting.FileSystemObject")
  Dim sFSpec : sFSpec   = oFS.GetAbsolutePathName("..\data\so14975608.xml")
  Dim oXML   : Set oXML = CreateObject("Msxml2.DOMDocument.6.0")
  oXML.load sFSpec
  If 0 = oXML.parseError Then
     recursiveTraversal oXML.documentElement, 0
  Else
     WScript.Echo objMSXML.parseError.reason
  End If

Sub recursiveTraversal(oElm, nIndent)
  WScript.Echo Space(nIndent), oElm.tagName
  If 0 < oElm.childNodes.length Then
     Dim oChild
     For Each oChild In oElm.childNodes
         recursiveTraversal oChild, nIndent + 2
     Next
  Else
     If 0 < oElm.attributes.length Then
        Dim oAttr
        For Each oAttr In oElm.attributes
            WScript.Echo Space(nIndent + 1), oAttr.name, oAttr.value
        Next
     End If
  End If
End Sub

样本数据的输出：

 TestSuites
   TestSuite
     TestCase
       TestStep
        TSName TestStep 1
       TestStep
        TSName TestStep 2
     TestCase
       TestStep
        TSName TestStep 1
       TestStep
        TSName TestStep 2
   TestSuite
    SuiteName Smoke
   TestSuite
    SuiteName Sanity

基于更详细的计划 - 您需要提取/处理哪些信息 - 您必须研究一些合适的 XML 文档（从这里开始）以确定要放入上述框架的功能/属性。

PS：

没有购买上述内容的人将无法从中获利。

于 2013-02-20T18:32:00.353 回答