|
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
(DataFlex) GeoOp - Export Clients to CSVExport client data to a CSV.
Use ChilkatAx-win32.pkg Procedure Test Token Handle hoJsonToken Boolean iSuccess Variant vOauth2 Handle hoOauth2 Handle hoRest Boolean iBAutoReconnect String sResponseBody Handle hoJson Handle hoCsv Integer iNumRecords Integer i String sTemp1 Integer iTemp1 Boolean bTemp1 // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // This example also assumes an OAuth2 access token was previously fetched. // and saved in a JSON file. // First get our previously obtained access token. // {"access_token":"e6dqdG....mzjpT04w==","token_type":"Bearer","expires_in":2592000,"owner_id":999236} Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken If (Not(IsComObjectCreated(hoJsonToken))) Begin Send CreateComObject of hoJsonToken End Get ComLoadFile Of hoJsonToken "qa_data/tokens/geoop.json" To iSuccess // This example assumes we previously obtained an access token Get Create (RefClass(cComChilkatOAuth2)) To hoOauth2 If (Not(IsComObjectCreated(hoOauth2))) Begin Send CreateComObject of hoOauth2 End Get ComStringOf Of hoJsonToken "access_token" To sTemp1 Set ComAccessToken Of hoOauth2 To sTemp1 Get Create (RefClass(cComChilkatRest)) To hoRest If (Not(IsComObjectCreated(hoRest))) Begin Send CreateComObject of hoRest End // Connect to GeoOp and send the following GET request: // GET /users HTTP/1.1 // Host: api.geoop.com Move True To iBAutoReconnect Get ComConnect Of hoRest "api.geoop.com" 443 True iBAutoReconnect To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoRest To sTemp1 Showln sTemp1 Procedure_Return End // Provide the authentication credentials (i.e. the access token) Get pvComObject of hoOauth2 to vOauth2 Get ComSetAuthOAuth2 Of hoRest vOauth2 To iSuccess // Set the X-Version header. Get ComAddHeader Of hoRest "X-Version" "1.0" To iSuccess Get ComFullRequestNoBody Of hoRest "GET" "/clients" To sResponseBody Get ComLastMethodSuccess Of hoRest To bTemp1 If (bTemp1 <> True) Begin Get ComLastErrorText Of hoRest To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatJsonObject)) To hoJson If (Not(IsComObjectCreated(hoJson))) Begin Send CreateComObject of hoJson End Set ComEmitCompact Of hoJson To False // If the response status code did not indicate success, then see what happened.. Get ComResponseStatusCode Of hoRest To iTemp1 If (iTemp1 <> 200) Begin Showln "Request Header: " Get ComLastRequestHeader Of hoRest To sTemp1 Showln sTemp1 Showln "----" Get ComResponseStatusCode Of hoRest To iTemp1 Showln "Response StatusCode = " iTemp1 Get ComResponseStatusText Of hoRest To sTemp1 Showln "Response StatusLine: " sTemp1 Showln "Response Header:" Get ComResponseHeader Of hoRest To sTemp1 Showln sTemp1 Get ComLoad Of hoJson sResponseBody To iSuccess Get ComEmit Of hoJson To sTemp1 Showln sTemp1 Procedure_Return End Get ComLoad Of hoJson sResponseBody To iSuccess // Show the full JSON response.. (see below) Get ComEmit Of hoJson To sTemp1 Showln sTemp1 Showln "---" Get Create (RefClass(cComChilkatCsv)) To hoCsv If (Not(IsComObjectCreated(hoCsv))) Begin Send CreateComObject of hoCsv End Set ComHasColumnNames Of hoCsv To True Get ComSetColumnName Of hoCsv 0 "id" To iSuccess Get ComSetColumnName Of hoCsv 1 "companyName" To iSuccess Get ComSetColumnName Of hoCsv 2 "businessType" To iSuccess Get ComSetColumnName Of hoCsv 3 "account_id" To iSuccess Get ComSetColumnName Of hoCsv 4 "address_line1" To iSuccess Get ComSetColumnName Of hoCsv 5 "address_city" To iSuccess Get ComSetColumnName Of hoCsv 6 "address_postcode" To iSuccess // Iterate over each client and populate the CSV... Get ComSizeOfArray Of hoJson "clients" To iNumRecords Move 0 To i While (i < iNumRecords) Set ComI Of hoJson To i Get ComStringOf Of hoJson "clients[i].id" To sTemp1 Get ComSetCellByName Of hoCsv i "id" sTemp1 To iSuccess Get ComStringOf Of hoJson "clients[i].companyName" To sTemp1 Get ComSetCellByName Of hoCsv i "companyName" sTemp1 To iSuccess Get ComStringOf Of hoJson "clients[i].businessType" To sTemp1 Get ComSetCellByName Of hoCsv i "businessType" sTemp1 To iSuccess Get ComStringOf Of hoJson "clients[i].account.id" To sTemp1 Get ComSetCellByName Of hoCsv i "account_id" sTemp1 To iSuccess Get ComStringOf Of hoJson "clients[i].address.line1" To sTemp1 Get ComSetCellByName Of hoCsv i "address_line1" sTemp1 To iSuccess Get ComStringOf Of hoJson "clients[i].address.city" To sTemp1 Get ComSetCellByName Of hoCsv i "address_city" sTemp1 To iSuccess Get ComStringOf Of hoJson "clients[i].address.postcode" To sTemp1 Get ComSetCellByName Of hoCsv i "address_postcode" sTemp1 To iSuccess Move (i + 1) To i Loop // Show the CSV. Get ComSaveToString Of hoCsv To sTemp1 Showln sTemp1 // Save the CSV. Get ComSaveFile Of hoCsv "qa_output/clients.csv" To iSuccess // --------------------------------------------------------------------- // The full JSON response containing all client data: // // { // "result": "success", // "clients": [ // { // "id": 9555868, // "firstName": "[ Demo", // "lastName": "Client ]", // "companyName": "Miller Park Cafe", // "businessType": "Licensed Restaurant", // "leadSource": "", // "emailAddress": null, // "phoneNumber": null, // "mobileNumber": null, // "faxNumber": null, // "notes": "", // "deleted": false, // "hasRecentJobs": true, // "created": "2016-10-26T12:05:09+00:00", // "modified": "2016-10-26T12:05:09+00:00", // "billingClient": null, // "account": { // "id": 39409 // }, // "address": { // "line1": "1732 Pennsylvania Avenue NW", // "line2": "", // "city": "Washington", // "postcode": "20006", // "latitude": 38.899037, // "longitude": -77.040207 // }, // "mailingAddress": {} // }, // { // "id": 9571176, // "firstName": "Mildred", // "lastName": "Vanildred", // "companyName": "Ice Cream Industries", // "businessType": "Ice Cream", // "leadSource": null, // "emailAddress": "milli@icecreamindustries.com", // "phoneNumber": "678-555-1012", // "mobileNumber": null, // "faxNumber": null, // "notes": "", // "deleted": false, // "hasRecentJobs": true, // "created": "2016-10-31T12:32:12+00:00", // "modified": "2016-10-31T12:32:13+00:00", // "billingClient": null, // "account": { // "id": 39409 // }, // "address": { // "line1": "2101 West Roosevelt Road", // "line2": null, // "city": "Wheaton", // "postcode": "60187", // "latitude": 41.8581778, // "longitude": -88.1380111 // }, // "mailingAddress": { // "line1": "2101 West Roosevelt Road", // "line2": null, // "city": "Wheaton" // } // }, // { // "id": 9571218, // "firstName": "Joe", // "lastName": "Miller", // "companyName": "Miller Bakery", // "businessType": "Licensed Bakery", // "leadSource": "", // "emailAddress": null, // "phoneNumber": null, // "mobileNumber": null, // "faxNumber": null, // "notes": "", // "deleted": false, // "hasRecentJobs": true, // "created": "2016-10-31T13:02:07+00:00", // "modified": "2016-10-31T13:02:07+00:00", // "billingClient": null, // "account": { // "id": 39409 // }, // "address": { // "line1": "1832 Pennsylvania Avenue NW", // "line2": "", // "city": "Washington", // "postcode": "20006", // "latitude": 0, // "longitude": 0 // }, // "mailingAddress": { // "line1": "", // "line2": "", // "city": "" // } // } // ], // "metadata": { // "page": 1, // "pagesCount": 1, // "recordsPerPage": 20, // "recordsCount": 3 // } // } // End_Procedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.