Android Question How To Parse JSON

[syerif]

Hi, I got a problem parsing JSON format

{
"success": true,
"data": [
{
"total": "15"
},
[
{
"rows": [
{
"id": 1,
"aton_type": 1,
"aton_name": "TANJUNG LAYAR",
"degree1": "-6",
"minute1": "45",
"second1": "0",
"direction1": "N",
"degree2": "105",
"minute2": "12",
"second2": "30",
"direction2": "E",
"location": "Banten",
"date_establish": "1879-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-09-25T07:17:35.325Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 2,
"aton_type": 1,
"aton_name": "CIKONENG",
"degree1": "-6",
"minute1": "4",
"second1": "0",
"direction1": "N",
"degree2": "105",
"minute2": "53",
"second2": "0",
"direction2": "E",
"location": "Banten",
"date_establish": "1883-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:12:09.105Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 3,
"aton_type": 1,
"aton_name": "PULAU TUNDA",
"degree1": "-5",
"minute1": "49",
"second1": "0",
"direction1": "N",
"degree2": "106",
"minute2": "17",
"second2": "0",
"direction2": "E",
"location": "Banten",
"date_establish": "1970-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:16:13.902Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 4,
"aton_type": 1,
"aton_name": "PULAU TEMPURUNG",
"degree1": "-5",
"minute1": "54",
"second1": "3",
"direction1": "N",
"degree2": "105",
"minute2": "56",
"second2": "0",
"direction2": "E",
"location": "Banten",
"date_establish": "1919-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:19:41.881Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 5,
"aton_type": 1,
"aton_name": "PULAU DELI",
"degree1": "-7",
"minute1": "1",
"second1": "0",
"direction1": "N",
"degree2": "105",
"minute2": "31",
"second2": "25",
"direction2": "E",
"location": "Banten",
"date_establish": "2006-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:21:26.339Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 6,
"aton_type": 3,
"aton_name": "CITUIS",
"degree1": "-6",
"minute1": "1",
"second1": "54.6",
"direction1": "N",
"degree2": "106",
"minute2": "34",
"second2": "7",
"direction2": "E",
"location": "Banten",
"date_establish": "2004-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:26:45.641Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 7,
"aton_type": 3,
"aton_name": "KARANG ANTU",
"degree1": "-6",
"minute1": "1",
"second1": "40",
"direction1": "N",
"degree2": "106",
"minute2": "9",
"second2": "40",
"direction2": "E",
"location": "Banten",
"date_establish": "1973-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:28:35.919Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 8,
"aton_type": 3,
"aton_name": "PULAU ULAR",
"degree1": "-6",
"minute1": "0",
"second1": "33",
"direction1": "N",
"degree2": "155",
"minute2": "55",
"second2": "34",
"direction2": "E",
"location": "Banten",
"date_establish": "1999-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:29:55.459Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 9,
"aton_type": 3,
"aton_name": "PULAU SANGIANG",
"degree1": "-5",
"minute1": "58",
"second1": "20",
"direction1": "N",
"degree2": "105",
"minute2": "51",
"second2": "08",
"direction2": "E",
"location": "Banten",
"date_establish": "1997-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:31:16.547Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 10,
"aton_type": 3,
"aton_name": "KARDINAL BARAT KARANG / TERUMBU KOLIOT",
"degree1": "-5",
"minute1": "55",
"second1": "18",
"direction1": "N",
"degree2": "105",
"minute2": "48",
"second2": "52.32",
"direction2": "E",
"location": "Banten",
"date_establish": "2017-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:33:00.298Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 11,
"aton_type": 2,
"aton_name": "MPMT TG PRIOK",
"degree1": "-6",
"minute1": "2",
"second1": "16.40",
"direction1": "N",
"degree2": "106",
"minute2": "53",
"second2": "2.795",
"direction2": "E",
"location": "Banten",
"date_establish": "2011-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:45:43.248Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 12,
"aton_type": 2,
"aton_name": "TG.PRIOK NO.1",
"degree1": "-6",
"minute1": "2",
"second1": "48",
"direction1": "N",
"degree2": "106",
"minute2": "52",
"second2": "37",
"direction2": "E",
"location": "DKI Jakarta",
"date_establish": "2015-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:45:49.800Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 13,
"aton_type": 2,
"aton_name": "TG.PRIOK NO.2",
"degree1": "-6",
"minute1": "2",
"second1": "48",
"direction1": "N",
"degree2": "106",
"minute2": "53",
"second2": "12",
"direction2": "E",
"location": "DKI Jakarta",
"date_establish": "2015-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:49:58.038Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 14,
"aton_type": 2,
"aton_name": "TG.PRIOK NO.3",
"degree1": "-6",
"minute1": "3",
"second1": "28.13",
"direction1": "N",
"degree2": "106",
"minute2": "52",
"second2": "53.07",
"direction2": "E",
"location": "DKI Jakarta",
"date_establish": "1995-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:51:41.773Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
},
{
"id": 15,
"aton_type": 2,
"aton_name": "TG.PRIOK NO.4",
"degree1": "-6",
"minute1": "3",
"second1": "28.61",
"direction1": "N",
"degree2": "106",
"minute2": "53",
"second2": "2.81",
"direction2": "E",
"location": "DKI Jakarta",
"date_establish": "1995-01-01T00:00:00.000Z",
"owner": "Disnav Priok",
"remarks": null,
"picture": null,
"created_at": "2021-10-13T03:53:43.130Z",
"updated_at": null,
"deleted_at": null,
"deleted_by": null,
"updated_by": null,
"created_by": null,
"is_delete": false,
"djpl": true,
"radius": 1000
}
]
}
]
]
}

i have to try JSON Tree and got an error when testing the generated code

Dim parser As JSONParser
parser.Initialize(<text>)
Dim root As Map = parser.NextObject
Dim data As List = root.Get("data")
For Each coldata As Map In data
 Dim total As String = coldata.Get("total")
Next
Dim success As String = root.Get("success")

 

[MikeSW17]

And, what error do you get?
Have you read: https://www.b4x.com/android/forum/threads/json-parsing.107410/
This may help: https://www.b4x.com/android/forum/threads/jsontree-tool-to-help-with-json-parsing-b4a-b4j.35963/
and/or this https://b4x.com:51041/json/index.html

Besides posting relevant error messages, A little searching often goes a long way.

 

[jahswant]

Check this !

[Server] Online Json Tree Example

This example is a port of the following desktop example: http://www.b4x.com/android/forum/threads/jsontree-tool-to-help-with-json-parsing-b4a-b4j.35963/ You can try it online: https://b4x.com:51041/json/index.html The server parses the JSON string and returns the tree representation and also...

www.b4x.com

 

[drgottjr]

i use a lot of REST api's, and, as a result, i see a lot of
json strings. i have no problem parsing them with our
json parser. until today. the OP's example is very
interesting, and normal processing will generate java
errors.

i can parse the string, but it's very ugly. and while i
do not normally doubt my own coding, there is
something embarrassing about what i had to do to
parse this string. not quite failing a smell test, but
something seems forced. i hope our json mavens
can see how to make this work using our normal
processing.

the issue i ran across relates to the so-called "data"
list. if you look at it, you can see that odd-numbered
items in the list are maps, while even-numbered items
are, themselves, lists. i don't think we have a way of
dealing with that, even though our list object can
accept any type of object. i tried casting items as
different types, but that threw exceptions. so i
ended up reading from the list one way for even-numbered
items and another way for odd-numbered items. it
felt strange, but it worked. i used log entries to keep track
of what the parser was seeing. i removed some to maintain
focus. i also truncated the OP's string. only a couple items
are necessary to parse the thing.

i posted the OP's string at 2 online json parser sites, and
they both stepped through it without issue, dispelling
any thoughts i may have had about its being malformed.

in any case, here's how i did it (and the result). i look
forward to someone's more succinct version.

    Dim json, liljson As JSONParser
    json.Initialize( text )
    
    Dim root As Map = json.NextObject
    Dim data As List = root.Get( "data" )
    Log("items: " & data.Size)
    
    Dim i As Int
    For i = 0 To data.Size - 1
        Log("looking at item: " & i)
        Dim theitem As String = data.Get(i)
        Log("theitem: " & theitem)
        
        If i Mod data.Size = 0 Then  ' odd items are a simple map
            Dim entry As Map = data.Get(i)
            Dim total As String = entry.Get("total")
            Log("total:" & total)
        Else           ' even items are a list
            Dim lillist As List = data.Get(i)
            Dim j As Int
            For j = 0 To lillist.Size - 1
                Dim lilmap As Map = lillist.Get(j)
                Dim list2 As List = lilmap.Get("rows")
                Dim k As Int
                For k = 0 To list2.Size - 1
                    Dim lilmap2 As Map = list2.Get(k)
                    Log(lilmap2.Get("aton_name"))
                Next
            Next
        End If
    Next
    Log("success: " & root.Get("success"))

 

[TILogistic]

Other:

    Dim parser As JSONParser
    parser.Initialize(sText)
    Dim mRoot As Map = parser.NextObject
    Dim data As List = mRoot.Get("data")
    
    Dim success As String = mRoot.Get("success")
    Log(success)
    
    Dim total As String = data.Get(0).As(Map).Get("total")
    Log(total)
    
    Dim rows  As List = data.Get(1).As(List).Get(0).As(Map).Get("rows")
    For Each coldata As Map In rows
        Dim id As String = coldata.Get("id")
        Dim aton_name As String = coldata.Get("aton_name")
        Log(id & " - "&  aton_name)
    Next

 

[TILogistic]

other: use "As"


sText: It is a string that contains the JSON

'ignore: is warning #22

    Dim mRoot As Map = sText.As(JSON).ToMap 'ignore
    Dim data As List = mRoot.Get("data")

    Dim success As String = mRoot.Get("success")
    Log(success)
 
    Dim total As String = data.Get(0).As(Map).Get("total")
    Log(total)
 
    Dim rows  As List = data.Get(1).As(List).Get(0).As(Map).Get("rows")
    For Each coldata As Map In rows
        Dim id As String = coldata.Get("id")
        Dim aton_name As String = coldata.Get("aton_name")
        Log(id & " - "&  aton_name)
    Next

 

[syerif]

Other:

    Dim parser As JSONParser
    parser.Initialize(sText)
    Dim mRoot As Map = parser.NextObject
    Dim data As List = mRoot.Get("data")
    
    Dim success As String = mRoot.Get("success")
    Log(success)
    
    Dim total As String = data.Get(0).As(Map).Get("total")
    Log(total)
    
    Dim rows  As List = data.Get(1).As(List).Get(0).As(Map).Get("rows")
    For Each coldata As Map In rows
        Dim id As String = coldata.Get("id")
        Dim aton_name As String = coldata.Get("aton_name")
        Log(id & " - "&  aton_name)
    Next

View attachment 120739

You are the best, thank you...

 

[TILogistic]

tip:

helps to see the structure of the json

Best JSON Pretty Print Online

Best JSON Pretty Print tool to Make Pretty JSON and JSON Print in color and Save and Share Online.

jsonformatter.org

 

[TILogistic]

orher: ????

direct access to the structure and less code to use

    Dim mRoot As Map = sText.As(JSON).ToMap 'ignore

    Dim success As String = mRoot.Get("success")
    Log(success)
    
    Dim total As String = mRoot.Get("data").As(List).Get(0).As(Map).Get("total")
    Log(total)
    
    For Each coldata As Map In  mRoot.Get("data").As(List).Get(1).As(List).Get(0).As(Map).Get("rows").As(List)
        Dim id As String = coldata.Get("id")
        Dim aton_name As String = coldata.Get("aton_name")
        Log(id & " - "&  aton_name)
    Next