jSON data & xBasic argument

[mikeallenbrown]

I have jSON data in an existing xBasic function and I need parse out the "GroupID" field from the jSON data string to use it in an xBasic argument. How can I do this? I see the data in the debugger but not sure how to get the "GroupID" into an argument value. This will be used in a loop and there will be multiple "GroupID" values in jSON.

Thanks.

ScreenShot_2015.05.05_001_.jpg

ScreenShot_2015.05.05_002_.jpg

[Davidk]

Re: jSON data & xBasic argument

you can shove your JSON into an XBasic property array...

dim myJSON as c = "[{col:1,row:1,size_x:2,size_y:2},{col:3,row:7,size_x:1,size_y:1}]"
dim arr[0] as p 
a5_JSON_PopulateArray(arr,myJSON)
'Now you have JSON in an XBasic Property Array

[mikeallenbrown]

Re: jSON data & xBasic argument

Thanks David .... It just hit me that my jSON string is already in an array.

For those interested this is how I solved my problem...

dim jp as p
dim size as n

jp = json_parse(jSON)
size = jp.size()

for i = 1 to size
	val = jp[i].GROUPID
	'Do stuff here using val as an arg
next i

[kkfin]

Re: jSON data & xBasic argument

you can shove your JSON into an XBasic property array...

dim myJSON as c = "[{col:1,row:1,size_x:2,size_y:2},{col:3,row:7,size_x:1,size_y:1}]"
dim arr[0] as p 
a5_JSON_PopulateArray(arr,myJSON)
'Now you have JSON in an XBasic Property Array

with JSON just

myJSONarr = [{"col":1,"row":1,"size_x":2,"size_y":2},{"col":3,"row":7,"size_x":1,"size_y":1}]
? myJSONarr[1]

[mikeallenbrown]

Re: jSON data & xBasic argument

Ken, "jSON" is the variable that I created in my xbasic function that contains my jSON array. It gets it's data from a SQL stored procedure. Below is the code structure that takes my result set from SQL, creates the array, populates a list control, and then parses the array, creates the variable I need in a for/next loop.

I hope that explains it better.

dim jSON as c

[COLOR="#FF0000"]'execute SQL stored procedure here along with various other bits of code that are not relevant to jSON[/COLOR]

jSON=cn.ResultSet.ToJSONObjectSyntax()

jSON = stritran(jSON,crlf(),"," + crlf())
jSON = rtrim(jSON,",")
jSON = "[" + crlf() + jSON + crlf() + "]"

[COLOR="#FF0000"]'populate my list[/COLOR]
dim js as c
js = <<%str%
{dialog.Object}.__jSON=__jSON__;
var listOBJ={dialog.Object}.getControl('Claim_List');
listOBJ.populate({dialog.Object}.__jSON);%str%
js = stritran(js,"__jSON__",jSON)

dim jp as p
dim size as n

[COLOR="#FF0000"]'Below is the code snippet I posted above. I have yet to complete my for/next loop but the variable "val" contains the field I needed (GROUPID)[/COLOR]
jp = json_parse(jSON)
size = jp.size()

for i = 1 to size
	val = jp[i].GROUPID
	
next i

[kkfin]

Re: jSON data & xBasic argument

I did understand that.

My point was just that you do not have to use a5_JSON_PopulateArray() at all anymore to get array of properties from json

[Davidk]

Re: jSON data & xBasic argument

In this case json_parse and a5_JSON_PopulateArray produce exactly the same results. They both parse string formatted as JSON.

I believe Mike is working with a string... and needs to get properties of an array.

myJSONarr = [{"col":1,"row":1,"size_x":2,"size_y":2},{"col":3,"row":7,"size_x":1,"size_y":1}] is building an array within XBasic and in this form does not have properties of each member.

[kkfin]

Re: jSON data & xBasic argument

myJSONarr = [{"col":1,"row":1,"size_x":2,"size_y":2},{"col":3,"row":7,"size_x":1,"size_y":1}] is building an array within XBasic and in this form does not have properties of each member.

I must say I have read this many times but still mystery to me.
In your post #2 in this thread your result is xbasic property array but in the above example not?

[Davidk]

Re: jSON data & xBasic argument

Mistyped... myJSONarr = [{"col":1,"row":1,"size_x":2,"size_y":2},{"col":3,"row":7,"size_x":1,"size_y":1}] does, obviously, build a pointer variable...

I thought Mike was working with a string... not an array. Maybe I misunderstood.