XML/Input: Difference between revisions

151 bytes removed ,  15 years ago
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>setpackage xmlrequire {<Students>tdom
<Student Name="April" />
<Student Name="Bob" />
<Student Name="Chad" />
<Student Name="Dave" />
<Student Name="Emily" />
</Students>}
 
package require tdom
set tree [dom parse $xml]
set studentNodes [$tree getElementsByTagName Student] ;# or: set studentNodes [[$tree documentElement] childNodes]
# or
set studentNodes [$tree getElementsByTagName Student]
 
foreach node $studentNodes {
Line 200 ⟶ 190:
}
</lang>
Using {{libheader|TclXML}}
<lang tcl>package require xml
set parser [xml::parser -elementstartcommand elem]
Anonymous user