Visual FoxPro
Visual FoxPro
GeoOp - Export Clients to CSV
See more GeoOp Examples
Export client data to a CSV.Chilkat Visual FoxPro Downloads
LOCAL lnSuccess
LOCAL loJsonToken
LOCAL loOauth2
LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL lcResponseBody
LOCAL loJson
LOCAL loCsv
LOCAL lnNumRecords
LOCAL i
lnSuccess = 0
* 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}
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/geoop.json")
* This example assumes we previously obtained an access token
loOauth2 = CreateObject('Chilkat.OAuth2')
loOauth2.AccessToken = loJsonToken.StringOf("access_token")
loRest = CreateObject('Chilkat.Rest')
* Connect to GeoOp and send the following GET request:
* GET /users HTTP/1.1
* Host: api.geoop.com
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("api.geoop.com",443,1,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
? loRest.LastErrorText
RELEASE loJsonToken
RELEASE loOauth2
RELEASE loRest
CANCEL
ENDIF
* Provide the authentication credentials (i.e. the access token)
loRest.SetAuthOAuth2(loOauth2)
* Set the X-Version header.
loRest.AddHeader("X-Version","1.0")
lcResponseBody = loRest.FullRequestNoBody("GET","/clients")
IF (loRest.LastMethodSuccess <> 1) THEN
? loRest.LastErrorText
RELEASE loJsonToken
RELEASE loOauth2
RELEASE loRest
CANCEL
ENDIF
loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0
* If the response status code did not indicate success, then see what happened..
IF (loRest.ResponseStatusCode <> 200) THEN
? "Request Header: "
? loRest.LastRequestHeader
? "----"
? "Response StatusCode = " + STR(loRest.ResponseStatusCode)
? "Response StatusLine: " + loRest.ResponseStatusText
? "Response Header:"
? loRest.ResponseHeader
loJson.Load(lcResponseBody)
? loJson.Emit()
RELEASE loJsonToken
RELEASE loOauth2
RELEASE loRest
RELEASE loJson
CANCEL
ENDIF
loJson.Load(lcResponseBody)
* Show the full JSON response.. (see below)
? loJson.Emit()
? "---"
loCsv = CreateObject('Chilkat.Csv')
loCsv.HasColumnNames = 1
loCsv.SetColumnName(0,"id")
loCsv.SetColumnName(1,"companyName")
loCsv.SetColumnName(2,"businessType")
loCsv.SetColumnName(3,"account_id")
loCsv.SetColumnName(4,"address_line1")
loCsv.SetColumnName(5,"address_city")
loCsv.SetColumnName(6,"address_postcode")
* Iterate over each client and populate the CSV...
lnNumRecords = loJson.SizeOfArray("clients")
i = 0
DO WHILE i < lnNumRecords
loJson.I = i
loCsv.SetCellByName(i,"id",loJson.StringOf("clients[i].id"))
loCsv.SetCellByName(i,"companyName",loJson.StringOf("clients[i].companyName"))
loCsv.SetCellByName(i,"businessType",loJson.StringOf("clients[i].businessType"))
loCsv.SetCellByName(i,"account_id",loJson.StringOf("clients[i].account.id"))
loCsv.SetCellByName(i,"address_line1",loJson.StringOf("clients[i].address.line1"))
loCsv.SetCellByName(i,"address_city",loJson.StringOf("clients[i].address.city"))
loCsv.SetCellByName(i,"address_postcode",loJson.StringOf("clients[i].address.postcode"))
i = i + 1
ENDDO
* Show the CSV.
? loCsv.SaveToString()
* Save the CSV.
loCsv.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
* }
* }
*
RELEASE loJsonToken
RELEASE loOauth2
RELEASE loRest
RELEASE loJson
RELEASE loCsv