Question

使用TDom，我想按以下格式循环访问对象列表：

    <object>
      <type>Hardware</type>
      <name>System Name</name>
      <description>Basic Description of System.</description>
      <attributes>
          <vendor>Dell</vendor>
          <contract>MM/DD/YY</contract>
          <supportExpiration>MM/DD/YY</supportExpiration>
          <location>Building 123</location>
          <serial>xxx-xxx-xxxx</serial>
          <mac>some-mac-address</mac>
      </attributes>
    </object>

    <object>
      <type>Software</type>
      <name>Second Object</name>
    ...

然后我使用TDom制作一个对象列表：

set dom [dom parse $xml]
set doc [$dom documentElement]

set nodeList [$doc selectNodes /systems/object]

到目前为止，我已完成此操作（理论上）从列表中选择每个“对象”节点。我怎样才能遍历它们？它只是：

foreach node $nodeList {

对于每个对象，我需要检索每个属性的关联。从示例中，我需要记住“名称”是“系统名称”，“供应商”是“戴尔”等。

我是TCL的新手，但在其他语言中，我会使用对象或关联列表来存储这些。这可能吗？你能告诉我一个以这种方式选择属性的语法示例吗？

Answer 1

你确实走在了正确的轨道上。你可能想这样做：

foreach node [$doc selectNodes "/systems/object"] {
    set name [[$node selectNodes "./name\[1\]"] text]
    lappend listOfNames $name
    foreach attr {vendor serial} {
        set aNodes [$node selectNodes "./attributes/$attr"]
        if {[llength $aNodes]} {
            set data($name,$attr) [[lindex $aNodes 0] text]
        }
    }
}

我正在使用Tcl（关联）数组功能来保存提取的属性。还有其他方法也可以使用，例如，iTcl或XOTcl或TclOO对象，或字典，或任何其他可能性。请注意，考虑到实际使用tDOM是多么容易，我实际上很想保留文档本身并直接处理它。不需要将所有内容都提取到其他数据结构中，只是为了它。

Answer 2

set doc [$dom documentElement]
set nodeList [$doc selectNodes /systems/object]

foreach node [$nodeList childNodes] {
    set nodename [$node nodeName]
    if {$nodename eq "attributes"} {
        foreach attr_node [$node childNodes] {
            set attr_nodename [$attr_node nodeName]
            set attr_nodetext [[$attr_node selectNodes text()] nodeValue]
            puts "$attr_nodename : $attr_nodetext"
        }
    } else {
        set node_text [[$node selectNodes text()] nodeValue]
        puts "$nodename : $node_text"
    }
}

请查看此快速参考https://tdom.github.io/domDoc.html

TCL TDom：通过对象循环

2 个答案: