OUTPUT BUFFER:
package require tdom set f [open "Luc.xml" r] set L [read -nonewline $f] set id [dom parse $L] set root [$id documentElement] set qds "//*\[string(seq-name)='S1aab_'\]/descendant::*\[name()='fitem'\]" set Lnds [$root selectNodes "$qds"] puts "$Lnds" foreach n $Lnds { # set b "./*\[name()='ftype'\]" # set nft [$n selectNodes $b] # eval set nft [$n selectNodes "./*\[name()='ftype'\]"] set nft [$n selectNodes "./ftype/text()"] set ft [$nft nodeValue] # set ft [$nft selectNodes string(.)] puts "ft= $ft" } #$root asXML