|
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
(Classic ASP) GeoOp - Export Clients to CSVExport client data to a CSV.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' 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} ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonToken = Server.CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/geoop.json") ' This example assumes we previously obtained an access token ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.OAuth2") set oauth2 = Server.CreateObject("Chilkat.OAuth2") oauth2.AccessToken = jsonToken.StringOf("access_token") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest") set rest = Server.CreateObject("Chilkat.Rest") ' Connect to GeoOp and send the following GET request: ' GET /users HTTP/1.1 ' Host: api.geoop.com bAutoReconnect = 1 success = rest.Connect("api.geoop.com",443,1,bAutoReconnect) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' Provide the authentication credentials (i.e. the access token) success = rest.SetAuthOAuth2(oauth2) ' Set the X-Version header. success = rest.AddHeader("X-Version","1.0") responseBody = rest.FullRequestNoBody("GET","/clients") If (rest.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") json.EmitCompact = 0 ' If the response status code did not indicate success, then see what happened.. If (rest.ResponseStatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "Request Header: ") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( rest.LastRequestHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response StatusCode = " & rest.ResponseStatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response StatusLine: " & rest.ResponseStatusText) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response Header:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( rest.ResponseHeader) & "</pre>" success = json.Load(responseBody) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" Response.End End If success = json.Load(responseBody) ' Show the full JSON response.. (see below) Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "---") & "</pre>" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Csv") set csv = Server.CreateObject("Chilkat.Csv") csv.HasColumnNames = 1 success = csv.SetColumnName(0,"id") success = csv.SetColumnName(1,"companyName") success = csv.SetColumnName(2,"businessType") success = csv.SetColumnName(3,"account_id") success = csv.SetColumnName(4,"address_line1") success = csv.SetColumnName(5,"address_city") success = csv.SetColumnName(6,"address_postcode") ' Iterate over each client and populate the CSV... numRecords = json.SizeOfArray("clients") i = 0 Do While i < numRecords json.I = i success = csv.SetCellByName(i,"id",json.StringOf("clients[i].id")) success = csv.SetCellByName(i,"companyName",json.StringOf("clients[i].companyName")) success = csv.SetCellByName(i,"businessType",json.StringOf("clients[i].businessType")) success = csv.SetCellByName(i,"account_id",json.StringOf("clients[i].account.id")) success = csv.SetCellByName(i,"address_line1",json.StringOf("clients[i].address.line1")) success = csv.SetCellByName(i,"address_city",json.StringOf("clients[i].address.city")) success = csv.SetCellByName(i,"address_postcode",json.StringOf("clients[i].address.postcode")) i = i + 1 Loop ' Show the CSV. Response.Write "<pre>" & Server.HTMLEncode( csv.SaveToString()) & "</pre>" ' Save the CSV. success = csv.SaveFile("qa_output/clients.csv") ' --------------------------------------------------------------------- ' 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 ' } ' } ' %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.