(Tcl) Demonstrate the XML "I" Property

Demonstrates the XML "I" property. The properties I, J, and K can be used in paths to access the I'th, J'th, or K'th child in a path. Three indexing properties are provided to allow for triple-nested loops using this feature.

Note: This example requires Chilkat v9.5.0.64 or later.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example uses the XML document at https://www.chilkatsoft.com/exampleData/xero_accounts.xml
# The data is a download of the Xero accounts for the sandbox company test data (it's not real data).

# We'll use Chilkat HTTP to download the XML.
# This example assumes the Chilkat HTTP API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set sbXml [new_CkStringBuilder]

# Download the XML from https://www.chilkatsoft.com/exampleData/xero_accounts.xml
# into sbXml
set url "https://www.chilkatsoft.com/exampleData/xero_accounts.xml"
set http [new_CkHttp]

set success [CkHttp_QuickGetSb $http $url $sbXml]
if {$success != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkStringBuilder $sbXml
    delete_CkHttp $http
    exit
}

set bAutoTrim 0
set xml [new_CkXml]

CkXml_LoadSb $xml $sbXml $bAutoTrim

# How many accounts exist?
set numAccounts [CkXml_NumChildrenAt $xml "Accounts"]
puts "numAccounts = $numAccounts"

set i 0
while {$i < $numAccounts} {
    CkXml_put_I $xml $i
    puts "AccountID: [CkXml_getChildContent $xml {Accounts|Account[i]|AccountID}]"
    puts "Name: [CkXml_getChildContent $xml {Accounts|Account[i]|Name}]"
    puts "Code: [CkXml_GetChildIntValue $xml {Accounts|Account[i]|Code}]"
    puts "EnablePaymentsToAccount: [CkXml_GetChildBoolValue $xml {Accounts|Account[i]|EnablePaymentsToAccount}]"
    puts "----"
    set i [expr $i + 1]
}

# The output looks like this:

# 	numAccounts = 69
# 	AccountID: ceef66a5-a545-413b-9312-78a53caadbc4
# 	Name: Checking Account
# 	Code: 90
# 	EnablePaymentsToAccount: False
# 	----
# 	AccountID: 3d09fd49-434d-4c18-a57b-831663ab70d2
# 	Name: Savings Account
# 	Code: 91
# 	EnablePaymentsToAccount: False
# 	----
# 	AccountID: 5f5e1b00-5331-4ee5-bc84-39dbd9a27db3
# 	Name: Accounts Receivable
# 	Code: 120
# 	EnablePaymentsToAccount: False
# 	----
# 	AccountID: b0a23f8d-1b6d-4209-96f9-8046f794e1f4
# 	Name: Prepayments
# 	Code: 130
# 	EnablePaymentsToAccount: False
# 	----
# 	...

# The xero_accounts.xml file contains data that looks like this:

# 	<Response xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
# 	  <Id>409d062b-d3c2-4062-99a6-31b7c1c14662</Id>
# 	  <Status>OK</Status>
# 	  <ProviderName>ChilkatPrivate</ProviderName>
# 	  <DateTimeUTC>2016-11-01T22:30:13.3606258Z</DateTimeUTC>
# 	  <Accounts>
# 	    <Account>
# 	      <AccountID>ceef66a5-a545-413b-9312-78a53caadbc4</AccountID>
# 	      <Code>090</Code>
# 	      <Name>Checking Account</Name>
# 	      <Status>ACTIVE</Status>
# 	      <Type>BANK</Type>
# 	      <TaxType>NONE</TaxType>
# 	      <Class>ASSET</Class>
# 	      <EnablePaymentsToAccount>false</EnablePaymentsToAccount>
# 	      <ShowInExpenseClaims>false</ShowInExpenseClaims>
# 	      <BankAccountNumber>132435465</BankAccountNumber>
# 	      <BankAccountType>BANK</BankAccountType>
# 	      <CurrencyCode>USD</CurrencyCode>
# 	      <ReportingCode>ASS</ReportingCode>
# 	      <ReportingCodeName>Assets</ReportingCodeName>
# 	      <HasAttachments>false</HasAttachments>
# 	      <UpdatedDateUTC>2016-10-15T22:22:44.53</UpdatedDateUTC>
# 	    </Account>
# 	    <Account>
# 	      <AccountID>3d09fd49-434d-4c18-a57b-831663ab70d2</AccountID>
# 	      <Code>091</Code>
# 	      <Name>Savings Account</Name>
# 	      <Status>ACTIVE</Status>
# 	      <Type>BANK</Type>
# 	      <TaxType>NONE</TaxType>
# 	      <Class>ASSET</Class>
# 	      <EnablePaymentsToAccount>false</EnablePaymentsToAccount>
# 	      <ShowInExpenseClaims>false</ShowInExpenseClaims>
# 	      <BankAccountNumber>987654321</BankAccountNumber>
# 	      <BankAccountType>BANK</BankAccountType>
# 	      <CurrencyCode>USD</CurrencyCode>
# 	      <ReportingCode>ASS</ReportingCode>
# 	      <HasAttachments>false</HasAttachments>
# 	      <UpdatedDateUTC>2016-10-15T22:22:44.53</UpdatedDateUTC>
# 	    </Account>
# 	    ...
# 

delete_CkStringBuilder $sbXml
delete_CkHttp $http
delete_CkXml $xml