Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PureBasic) Xero Export Accounts to CSVDemonstrates how to export Accounts data to a CSV. Note: Requires Chilkat v9.5.0.64 or greater.
IncludeFile "CkXml.pb" IncludeFile "CkCsv.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkRest.pb" Procedure ChilkatExample() ; Note: Requires Chilkat v9.5.0.64 or greater. ; This requires the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. rest.i = CkRest::ckCreate() If rest.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success.i ; Before sending REST API calls, the REST object needs to be ; initialized for OAuth1. ; See Xero 2-Legged OAuth1 Setup for sample code. ; Assuming the REST object's OAuth1 authenticator is setup, and the initial ; connection was made, we may now send REST HTTP requests.. ; Get the full list of accounts. sbXml.i = CkStringBuilder::ckCreate() If sbXml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkRest::ckFullRequestNoBodySb(rest,"GET","/api.xro/2.0/Accounts",sbXml) If success <> 1 Debug CkRest::ckLastErrorText(rest) CkRest::ckDispose(rest) CkStringBuilder::ckDispose(sbXml) ProcedureReturn EndIf ; A 200 response is expected for actual success. If CkRest::ckResponseStatusCode(rest) <> 200 Debug CkStringBuilder::ckGetAsString(sbXml) CkRest::ckDispose(rest) CkStringBuilder::ckDispose(sbXml) ProcedureReturn EndIf ; Build a CSV containing a few Account fields. csv.i = CkCsv::ckCreate() If csv.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkCsv::setCkHasColumnNames(csv, 1) CkCsv::ckSetColumnName(csv,0,"AccountID") CkCsv::ckSetColumnName(csv,1,"Name") CkCsv::ckSetColumnName(csv,2,"Code") CkCsv::ckSetColumnName(csv,3,"EnablePaymentsToAccount") ; Iterate over the accounts and build the CSV. bAutoTrim.i = 0 xml.i = CkXml::ckCreate() If xml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::ckLoadSb(xml,sbXml,bAutoTrim) numAccounts.i = CkXml::ckNumChildrenAt(xml,"Accounts") i.i = 0 While i < numAccounts CkXml::setCkI(xml, i) CkCsv::ckSetCellByName(csv,i,"AccountID",CkXml::ckGetChildContent(xml,"Accounts|Account[i]|AccountID")) CkCsv::ckSetCellByName(csv,i,"Name",CkXml::ckGetChildContent(xml,"Accounts|Account[i]|Name")) CkCsv::ckSetCellByName(csv,i,"Code",CkXml::ckGetChildContent(xml,"Accounts|Account[i]|Code")) CkCsv::ckSetCellByName(csv,i,"EnablePaymentsToAccount",CkXml::ckGetChildContent(xml,"Accounts|Account[i]|EnablePaymentsToAccount")) i = i + 1 Wend ; Examine the CSV. Debug CkCsv::ckSaveToString(csv) ; Save the CSV to a file. CkCsv::ckSaveFile(csv,"qa_output/xero_accounts.csv") CkRest::ckDispose(rest) CkStringBuilder::ckDispose(sbXml) CkCsv::ckDispose(csv) CkXml::ckDispose(xml) ProcedureReturn EndProcedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.