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
(PowerBuilder) Xero Export Accounts to CSVDemonstrates how to export Accounts data to a CSV. Note: Requires Chilkat v9.5.0.64 or greater.
integer li_rc oleobject loo_Rest integer li_Success oleobject loo_SbXml oleobject loo_Csv integer li_BAutoTrim oleobject loo_Xml integer li_NumAccounts integer i // 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. loo_Rest = create oleobject li_rc = loo_Rest.ConnectToNewObject("Chilkat_9_5_0.Rest") if li_rc < 0 then destroy loo_Rest MessageBox("Error","Connecting to COM object failed") return end if // 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. loo_SbXml = create oleobject li_rc = loo_SbXml.ConnectToNewObject("Chilkat_9_5_0.StringBuilder") li_Success = loo_Rest.FullRequestNoBodySb("GET","/api.xro/2.0/Accounts",loo_SbXml) if li_Success <> 1 then Write-Debug loo_Rest.LastErrorText destroy loo_Rest destroy loo_SbXml return end if // A 200 response is expected for actual success. if loo_Rest.ResponseStatusCode <> 200 then Write-Debug loo_SbXml.GetAsString() destroy loo_Rest destroy loo_SbXml return end if // Build a CSV containing a few Account fields. loo_Csv = create oleobject li_rc = loo_Csv.ConnectToNewObject("Chilkat_9_5_0.Csv") loo_Csv.HasColumnNames = 1 loo_Csv.SetColumnName(0,"AccountID") loo_Csv.SetColumnName(1,"Name") loo_Csv.SetColumnName(2,"Code") loo_Csv.SetColumnName(3,"EnablePaymentsToAccount") // Iterate over the accounts and build the CSV. li_BAutoTrim = 0 loo_Xml = create oleobject li_rc = loo_Xml.ConnectToNewObject("Chilkat_9_5_0.Xml") loo_Xml.LoadSb(loo_SbXml,li_BAutoTrim) li_NumAccounts = loo_Xml.NumChildrenAt("Accounts") i = 0 do while i < li_NumAccounts loo_Xml.I = i loo_Csv.SetCellByName(i,"AccountID",loo_Xml.GetChildContent("Accounts|Account[i]|AccountID")) loo_Csv.SetCellByName(i,"Name",loo_Xml.GetChildContent("Accounts|Account[i]|Name")) loo_Csv.SetCellByName(i,"Code",loo_Xml.GetChildContent("Accounts|Account[i]|Code")) loo_Csv.SetCellByName(i,"EnablePaymentsToAccount",loo_Xml.GetChildContent("Accounts|Account[i]|EnablePaymentsToAccount")) i = i + 1 loop // Examine the CSV. Write-Debug loo_Csv.SaveToString() // Save the CSV to a file. loo_Csv.SaveFile("qa_output/xero_accounts.csv") destroy loo_Rest destroy loo_SbXml destroy loo_Csv destroy loo_Xml |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.