Anonymous user
XML/Input: Difference between revisions
m
→{{header|Tcl}}: remove obsolete sample xml from solution
(more complicated document model for a better example) |
m (→{{header|Tcl}}: remove obsolete sample xml from solution) |
||
Line 181:
=={{header|Tcl}}==
Using {{libheader|tDOM}}
<lang tcl>
set tree [dom parse $xml]
set studentNodes [$tree getElementsByTagName Student] ;# or: set studentNodes [[$tree documentElement] childNodes]
foreach node $studentNodes {
Line 200 ⟶ 190:
}
</lang>
Using {{libheader|TclXML}}
<lang tcl>package require xml
set parser [xml::parser -elementstartcommand elem]
|