(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loJson
LOCAL lnSuccess
LOCAL lcArrayPath
LOCAL lcRelativePath
LOCAL lcValue
LOCAL lnCaseSensitive
LOCAL lcRetRelPath
LOCAL lcId

* Note: This example requires Chilkat v9.5.0.63 or later.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')

lnSuccess = loJson.LoadFile("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

lcArrayPath = "QueryResponse.Account"
lcRelativePath = "Name"
lcValue = "Advertising"
lnCaseSensitive = 1
lcRetRelPath = "Id"

lcId = loJson.FindRecordString(lcArrayPath,lcRelativePath,lcValue,lnCaseSensitive,lcRetRelPath)
IF (loJson.LastMethodSuccess <> 1) THEN
    ? "Record not found."
    RELEASE loJson
    CANCEL
ENDIF

* The Id should be 7.
? "The Id of the Advertising account is " + lcId

* -----------------------------------------------------------------
* 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"
*         }
*       },
* ...
* 

RELEASE loJson