(Tcl) Parsing XML Children Having Identical Tags

Demonstrates how to deal with XML where child elements may have identical tags.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example will get the phoneNumber's and groupMembershihpInfo's from the following XML:

# <?xml version="1.0" encoding="UTF-8" ?>
# <someEntries>
#     <entry>
#         <id>123</id>
#         <updated>2017-07-19T05:19:57.761Z</updated>
#         <app:edited xmlns:app="http://www.w3.org/2007/app">2017-07-19T05:19:57.761Z</app:edited>
#         <category scheme="http://schemas.google.com/g/2005#kind" term="http://schemas.google.com/contact/2008#contact"/>
#         <title>George Costanza</title>
#          <gd:name>
#             <gd:fullName>George Costanza</gd:fullName>
#             <gd:givenName>George</gd:givenName>
#             <gd:familyName>Costanza</gd:familyName>
#         </gd:name>
#         <gd:phoneNumber rel="http://schemas.google.com/g/2005#home">(555) 123-4567</gd:phoneNumber>
#         <gd:phoneNumber rel="http://schemas.google.com/g/2005#mobile">(555) 444-8877</gd:phoneNumber>
#         <gd:phoneNumber rel="http://schemas.google.com/g/2005#work">(555) 678-1111</gd:phoneNumber>
#         <gContact:groupMembershipInfo deleted="false" href="http://www.google.com/123"/>
#         <gContact:groupMembershipInfo deleted="false" href="http://www.google.com/456"/>
#     </entry>
# </someEntries>
# 

set xml [new_CkXml]

set success [CkXml_LoadXmlFile $xml "qa_data/xml/georgeCostanza.xml"]

set numPhoneNumbers [CkXml_NumChildrenHavingTag $xml "entry|*:phoneNumber"]
set i 0
while {$i < $numPhoneNumbers} {
    # xPhoneNumber is a CkXml
    set xPhoneNumber [CkXml_GetNthChildWithTag $xml "entry|*:phoneNumber" $i]
    puts [CkXml_content $xPhoneNumber]
    delete_CkXml $xPhoneNumber

    set i [expr $i + 1]
}
puts "----"

set numGroupMemberships [CkXml_NumChildrenHavingTag $xml "entry|*:groupMembershipInfo"]
set i 0
while {$i < $numGroupMemberships} {
    # xMembership is a CkXml
    set xMembership [CkXml_GetNthChildWithTag $xml "entry|*:groupMembershipInfo" $i]
    puts [CkXml_getAttrValue $xMembership href]
    delete_CkXml $xMembership

    set i [expr $i + 1]
}

delete_CkXml $xml