Posted to tcl by jdc at Wed Sep 19 10:40:31 GMT 2007view raw

  1. package require tdom
  2. set xml "<?xml version='1.0' encoding='UTF-8'?><test><list><word><a>door</a><b>deur</b></word><word><a>window</a><b>venster</b></word></list></test>"
  3.  
  4. set doc [dom parse $xml]
  5. set root [$doc documentElement]
  6.  
  7. set nodeList [$root selectNodes /test/list/word]
  8. foreach n $nodeList {
  9. foreach cn [$n childNodes] {
  10. puts "text for [$cn nodeName] = [$cn text] = [$cn asText]"
  11. }
  12. }
  13.  
  14. exit