(Tcl) Demonstrate the XML FindNextRecord Method

Imagine we have an XML file as follows:

<CompleteMultipartUpload>
  <Part>
    <PartNumber>1</PartNumber>
    <ETag>abc</ETag>
  </Part>
  <Part>
    <PartNumber>2</PartNumber>
    <ETag>def</ETag>
  </Part>
  <Part>
    <PartNumber>3</PartNumber>
    <ETag>ghi</ETag>
  </Part>
</CompleteMultipartUpload>

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set xml [new_CkXml]

CkXml_LoadXmlFile $xml "qa_data/xml/multipartUpload.xml"

# Position ourselves at the 1st record.
CkXml_GetChild2 $xml 0

# foundRec is a CkXml
set foundRec [CkXml_FindNextRecord $xml "PartNumber" "2"]
if {[CkXml_get_LastMethodSuccess $xml] == 1} then {
    puts "Found the record where PartNumber = 2."
    puts [CkXml_getXml $foundRec]

    # Let's examine the ETag for this record...
    puts "ETag for PartNumber 2 = [CkXml_getChildContent $foundRec ETag]"
    delete_CkXml $foundRec

} else {
    puts "No record exists where PartNumber = 2."
}

# What if we want to find the record where ETag = "abc"?
set foundRec [CkXml_FindNextRecord $xml "ETag" "abc"]
if {[CkXml_get_LastMethodSuccess $xml] == 1} then {
    puts "Found the record where ETag = abc"
    puts [CkXml_getXml $foundRec]

    # Let's examine the PartNumber for this record...
    puts "Part number for Etag(abc) = [CkXml_getChildContent $foundRec PartNumber]"
    delete_CkXml $foundRec

} else {
    puts "No record exists where ETag = abc."
}

# Go back to the XML root..
CkXml_GetRoot2 $xml

delete_CkXml $xml