(Tcl) JSON FindRecordString Example

Demonstrates the FindRecordString method for searching an array of JSON records. The data used in this example is available at JSON sample data for FindRecordString.

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Note: This example requires Chilkat v9.5.0.63 or later.
set json [new_CkJsonObject]

set success [CkJsonObject_LoadFile $json "qa_data/json/qb_accounts.json"]

# A sample of the content of qb_accounts.json is shown at the bottom of this example.
# The idea of FindRecordString is to search for a record matching one field,
# and then return the value of another field.

# For example, we want to find the "Id" for the record where Name = Advertising

set arrayPath "QueryResponse.Account"
set relativePath "Name"
set value "Advertising"
set caseSensitive 1
set retRelPath "Id"

set id [CkJsonObject_findRecordString $json $arrayPath $relativePath $value $caseSensitive $retRelPath]
if {[CkJsonObject_get_LastMethodSuccess $json] != 1} then {
    puts "Record not found."
    delete_CkJsonObject $json
    exit
}

# The Id should be 7.
puts "The Id of the Advertising account is $id"

# -----------------------------------------------------------------
# qb_accounts.json contains this data
# 
# {
#   "QueryResponse": {
#     "Account": [
#       {
#         "Name": "Accounts Payable (A/P)",
#         "SubAccount": false,
#         "Description": "Description added during update.",
#         "FullyQualifiedName": "Accounts Payable (A/P)",
#         "Active": true,
#         "Classification": "Liability",
#         "AccountType": "Accounts Payable",
#         "AccountSubType": "AccountsPayable",
#         "CurrentBalance": -1602.67,
#         "CurrentBalanceWithSubAccounts": -1602.67,
#         "CurrencyRef": {
#           "value": "USD",
#           "name": "United States Dollar"
#         },
#         "domain": "QBO",
#         "sparse": false,
#         "Id": "33",
#         "SyncToken": "1",
#         "MetaData": {
#           "CreateTime": "2016-09-10T10:12:02-07:00",
#           "LastUpdatedTime": "2016-10-24T16:41:39-07:00"
#         }
#       },
#       {
#         "Name": "Accounts Receivable (A/R)",
#         "SubAccount": false,
#         "FullyQualifiedName": "Accounts Receivable (A/R)",
#         "Active": true,
#         "Classification": "Asset",
#         "AccountType": "Accounts Receivable",
#         "AccountSubType": "AccountsReceivable",
#         "CurrentBalance": 5281.52,
#         "CurrentBalanceWithSubAccounts": 5281.52,
#         "CurrencyRef": {
#           "value": "USD",
#           "name": "United States Dollar"
#         },
#         "domain": "QBO",
#         "sparse": false,
#         "Id": "84",
#         "SyncToken": "0",
#         "MetaData": {
#           "CreateTime": "2016-09-14T14:49:29-07:00",
#           "LastUpdatedTime": "2016-09-17T13:16:17-07:00"
#         }
#       },
#       {
#         "Name": "Advertising",
#         "SubAccount": false,
#         "FullyQualifiedName": "Advertising",
#         "Active": true,
#         "Classification": "Expense",
#         "AccountType": "Expense",
#         "AccountSubType": "AdvertisingPromotional",
#         "CurrentBalance": 0,
#         "CurrentBalanceWithSubAccounts": 0,
#         "CurrencyRef": {
#           "value": "USD",
#           "name": "United States Dollar"
#         },
#         "domain": "QBO",
#         "sparse": false,
#         "Id": "7",
#         "SyncToken": "0",
#         "MetaData": {
#           "CreateTime": "2016-09-09T14:42:07-07:00",
#           "LastUpdatedTime": "2016-09-09T14:42:07-07:00"
#         }
#       },
#       {
#         "Name": "Arizona Dept. of Revenue Payable",
#         "SubAccount": false,
#         "FullyQualifiedName": "Arizona Dept. of Revenue Payable",
#         "Active": true,
#         "Classification": "Liability",
#         "AccountType": "Other Current Liability",
#         "AccountSubType": "GlobalTaxPayable",
#         "CurrentBalance": 0,
#         "CurrentBalanceWithSubAccounts": 0,
#         "CurrencyRef": {
#           "value": "USD",
#           "name": "United States Dollar"
#         },
#         "domain": "QBO",
#         "sparse": false,
#         "Id": "89",
#         "SyncToken": "0",
#         "MetaData": {
#           "CreateTime": "2016-09-16T12:17:04-07:00",
#           "LastUpdatedTime": "2016-09-17T13:05:01-07:00"
#         }
#       },
#       {
#         "Name": "Automobile",
#         "SubAccount": false,
#         "FullyQualifiedName": "Automobile",
#         "Active": true,
#         "Classification": "Expense",
#         "AccountType": "Expense",
#         "AccountSubType": "Auto",
#         "CurrentBalance": 0,
#         "CurrentBalanceWithSubAccounts": 0,
#         "CurrencyRef": {
#           "value": "USD",
#           "name": "United States Dollar"
#         },
#         "domain": "QBO",
#         "sparse": false,
#         "Id": "55",
#         "SyncToken": "0",
#         "MetaData": {
#           "CreateTime": "2016-09-14T10:15:53-07:00",
#           "LastUpdatedTime": "2016-09-14T10:16:05-07:00"
#         }
#       },
# ...
# 

delete_CkJsonObject $json