Add key <> value pair to JSON object through scriptcontrol

Hi all,

Take the following code example:

Please Login or Register  to view this content.

This will set object J as a JSON object, parsing the json string found on https://jsonplaceholder.typicode.com/users
For field '0', the name is "Leanne Graham" - I can get this by saying:

Please Login or Register  to view this content.

I can change this using the VbSet argument of CallByName, for example like this:

Please Login or Register  to view this content.

Which changes the name from "Leanne Graham" to "Excel Forum".

This is all great, but what if I want to *add* a field? How could I add a new key/value pair?
For example - adding in "gender" as key, and "female" as a value - is that possible using CallByName?
If not, is it possible through JScript code added by "addcode"?

Essentially, this example code gives 10 names, but I'd want to be flexible to add a) key/values to each of the 10, and b) add additional name fields, with all subfields to the 10, increasing the total.

Please let me know if you have any bright ideas.
Thanks!

Jasper

ps: I know 'eval' isn't safe, I use a json parse emca 3 jscript function instead, but for ease of this example, I used 'eval'
ps ps: I know scriptcontrol isn't available in 64 bit - In reality I use a class module that sets it up either through MSHTA or straight to scriptcontrol, depending on the environment, but again, for ease of this example I just set the object straight to 'scriptcontrol'

I believe you'd need to .AddCode to your ScriptControl object and do it using java script.

I can't test it since I have Excel installed as x64 and can't easily access ScriptControl. But read below links.
http://ramblings.mcpher.com/Home/exc.../scriptcontrol
https://www.sitepoint.com/community/...y-in-json/8361

You should be able to use JsArray.Push("item") or JsArray[JsArray.Length] = "item" to add item end of array in Javascript.

Your example Json is nested array (i.e. values in an array is array).

Have a read of...
https://www.w3schools.com/js/js_json_arrays.asp
https://stackoverflow.com/questions/...for-everything

Hey CK76,

thanks for the reply - I know it's nested, and it should be So adding through the tuples code (S.AddCode "function a(r, x, y){r[10] = {x:y} ;return r;}), it adds another array (10) and adds key "x", with value "y". The problem is that the value is taken correctly from the variable "y" I feed it, but the key name is put as "x" rather than the contents of the variable "x".
For instance:

Please Login or Register  to view this content.

This adds a new array (nest) as object '10', with one key/value pair. This should be J.10.thisisa = 'test'; instead it is J.10.x = 'test'.
I don't understand why it puts x as "x", but y as "test" (the value assigned to variable "y").
Do you have any idea?

Hmm, let me think on it.

Normally I just load JSON to dictionary object, do string manipulation, or interact with it using Python.
Have not used ScriptControl before and am weak in Javascript array manipulation. But I suspect there's something wrong with syntax.

Edit: Ah, thanks Kyle!

What's the error?

Run-Time error '1028': Application-defined or object-defined error.

Thank you Karedog - I wasn't aware that I can just leave it in the scriptcontrol object and set it via var, instead of having to put it in an object in VBA.
I will still have to put it into an object if I want to see the treeview (or can that be done simpler), but setting new key/value pairs and new nested objects is much easier now. Many thanks!