Android Question Problem decoding JSON with array

[DKnowles]

Hi All

Having a bit of a mare with decoding a json dataset

Dim json As JSONParser
Dim text As String '= j.GetString
                
text = $"[{            "errors": "OK,203",
                    "LegOtherID": "100321888",
                    "ExtraTypeID": "19233",
                    "Reading": "Test Data",
                    "SecurityID": "10801",
                    "ReadingType": "108",
                    "base64": "Test Data",
                    "decimal": "Test Data",
                    "integer": "Test Data",
                    "boolean": "Test Data",
                    "Text": "Test Data"
                }, {
                    "errors": "OK,203",
                    "LegOtherID": "100321888",
                    "ExtraTypeID": "19235",
                    "Reading": "Test Data",
                    "SecurityID": "10801",
                    "ReadingType": "108",
                    "base64": "Test Data",
                    "decimal": "Test Data",
                    "integer": "Test Data",
                    "boolean": "Test Data",
                    "Text": "Test Data"
                }, {
                    "errors": "OK,203",
                    "LegOtherID": "100321888",
                    "ExtraTypeID": "19237",
                    "Reading": "Test Data",
                    "SecurityID": "10801",
                    "ReadingType": "108",
                    "base64": "Test Data",
                    "decimal": "Test Data",
                    "integer": "Test Data",
                    "boolean": "Test Data",
                    "Text": "Test Data"
                }]"$
                
json.Initialize(text)
Dim m As Map = json.NextObject

When I execute this get 'java.lang.RuntimeException: JSON Object expected.' but the JSON is valid and all the validators I could find

Thanks in advance David

 

[DonManfred]

1. http://basic4ppc.com:51042/json/index.html
2. This is the correct code

Dim text As String = $"[{            "errors": "OK,203",
                    "LegOtherID": "100321888",
                    "ExtraTypeID": "19233",
                    "Reading": "Test Data",
                    "SecurityID": "10801",
                    "ReadingType": "108",
                    "base64": "Test Data",
                    "decimal": "Test Data",
                    "integer": "Test Data",
                    "boolean": "Test Data",
                    "Text": "Test Data"
                }, {
                    "errors": "OK,203",
                    "LegOtherID": "100321888",
                    "ExtraTypeID": "19235",
                    "Reading": "Test Data",
                    "SecurityID": "10801",
                    "ReadingType": "108",
                    "base64": "Test Data",
                    "decimal": "Test Data",
                    "integer": "Test Data",
                    "boolean": "Test Data",
                    "Text": "Test Data"
                }, {
                    "errors": "OK,203",
                    "LegOtherID": "100321888",
                    "ExtraTypeID": "19237",
                    "Reading": "Test Data",
                    "SecurityID": "10801",
                    "ReadingType": "108",
                    "base64": "Test Data",
                    "decimal": "Test Data",
                    "integer": "Test Data",
                    "boolean": "Test Data",
                    "Text": "Test Data"
                }]"$

Dim parser As JSONParser
parser.Initialize(text)
Dim root As List = parser.NextArray
For Each colroot As Map In root
 Dim Reading As String = colroot.Get("Reading")
 Dim LegOtherID As String = colroot.Get("LegOtherID")
 Dim ReadingType As String = colroot.Get("ReadingType")
 Dim boolean As String = colroot.Get("boolean")
 Dim SecurityID As String = colroot.Get("SecurityID")
 Dim base64 As String = colroot.Get("base64")
 Dim Text As String = colroot.Get("Text")
 Dim integer As String = colroot.Get("integer")
 Dim decimal As String = colroot.Get("decimal")
 Dim errors As String = colroot.Get("errors")
 Dim ExtraTypeID As String = colroot.Get("ExtraTypeID")
Next

The json contains a LIST of Maps but you are trying to get a Map directly.

 

[drgottjr]

the json may be valid, but your reading of it isn't. it's NextArray, not NextObject. all the objects are held in the array.

 

[DKnowles]

Manfred, your donate button is not working

 

[DonManfred]

Manfred, your donate button is not working

Which one?

 

[Pendrush]

Which one?

This

 

[DKnowles]

This

View attachment 126068

View attachment 126069

Yep thats what i got

 

[DonManfred]

Yep thats what i got

I´ve created a new one. Please check again ;-)

 

[DKnowles]

Dont get your hopes up just a £1 for your time, thanks