Convert jscript JSON flattener to work with VBA ScriptControl

Hi all,

I set a scriptcontrol object in VBA to run jscript, and want to use the following javascript to flatten a nested JSON object, but when I run it on my parsed JSON object, it tells me "Run Time Error 5007 - object expected"

Does anyone know why this happens?
I can't post the javascript, but basically it's the first reply from SO/questions/19098797; Object.Flatten

Any help is welcome!

Thanks,

Jaspper

Hi Jaspper,
you know about Parsing JSON more than I do since I did not use the object until I got excel 32 bit. If you are using HTTP request, do you get a JSON response? If not, that is where the problem lies.

Set RetVal = MyScript.Eval("(" + .responseText + ")")
flattens the JSON data.
I know this is not a Python request, but it is a breath to flatten data using Python. A two lines of code will do the magic. You can export the output in to CVS format. Did you also tried the Third party parser?

Hey AB33,

eval just parses the JSON, it doesn't flatten it.
You can remove all the pointless nesting with the javascript code on stackoverflow.com/questions/19098797/ (the 'object.flatten' part in the first reply with 150+ upvotes). However, if I just do ScriptC.AddCode and then that code, it will accept it, but then I don't know how to actually use it to flatten my json string.

Trust me that I have the json string and all pulls correctly ;-)
Thanks!

Jaspper

OK, I solved it by going through every related javascript code I could find until I found one that worked

The below does the trick - after loading it with 'addcode', function 'f' will flatten the json string neatly. Please note it already has the double quotes for you to paste into vba, if you're using it as jscript, replace "" with ".

"function f(r){var n={};for(var e in r)if(""object""==typeof r[e]&&null!==r[e]){var o=f(r[e]);for(var a in o)n[e+"".""+a]=o[a]}else n[e]=r[e];return n}"

Resolving thread.
Thanks,

Jasper