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