在 tcl tdom 中添加单行注释

Question

如何使用tcl tdom添加单行注释或多行注释？

例如

<book>
<!-- book 1 price -->
<name> abc </name>
<price> 150 </price>
</book>

Answer 1

这取决于你在做什么。您可以通过创建评论节点并将其插入到 DOM 树中来添加评论，或者通过从列表描述符插入，或者通过从脚本插入。

package require tdom

set doc [dom createDocument book]
set root [$doc documentElement]
$root appendChild [$doc createComment "book 1 price"]

如果您已经有了文档，只想在顶部添加评论，您可以这样做：

set doc [dom parse ...]
set root [$doc documentElement]
$root insertBefore [$doc createComment "book 1 price"] [$root firstChild]

如果您没有文档并且还需要创建 name 和 price 元素，那么一个接一个地创建节点会变得过于繁琐。相反，可以这样做：

set doc [dom createDocument book]
set root [$doc documentElement]
$root appendFromList {#comment "book 1 price"}
$root appendFromList {name {} {{#text abc}}}
$root appendFromList {price {} {{#text 150}}}

如果您想从数据结构填充文档并可能添加一些逻辑，您可能想使用 appendFromScript，这意味着您需要先定义一些节点命令。

dom createNodeCmd element book
dom createNodeCmd element name
dom createNodeCmd element a
dom createNodeCmd element price
dom createNodeCmd comment c
dom createNodeCmd text t

set doc [dom createDocument books]
set root [$doc documentElement]
set n 0
foreach {nm pr} {
    abc 150
    def 120
    ghi 200
} {
    incr n
    $root appendFromScript {book id $n {
        c "book $n price"
        name {a href "http://what/ever?book=$n" {t $nm}}
        price {t $pr}
    }}
}

(注意：在文档中，createNodeCmd 的类型参数应该是 elementNode、commentNode、textNode 等。IME 可以缩写一个或两个字母，例如 e / t / co。省略 Node 部分似乎是一个清晰的妥协。）

文档：foreach, incr, package, set, tDOM

在 tcl tdom 中添加单行注释

add single line comment in tcl tdom

tcl

tdom