Android Question Json string reading

[DarkoT]

Hi guys,
I will be more as happy when somebody can help me... I'm receiving a Json string from Post request - result is like this:

[
    {
        "id": "9669",
        "title": "PO-23-00029",
        "status": "306",
        "status_name": "Open/In production",
        "customer_id": "9219",
        "customer_name": "MAGMA MEDIA D.O.O."
    },
    {
        "id": "9661",
        "title": "PO-23-00028",
        "status": "306",
        "status_name": "Open/In production",
        "customer_id": "9633",
        "customer_name": "MyCustomer d.o.o."
    },
    {
        "id": "9652",
        "title": "PO-23-00027",
        "status": "306",
        "status_name": "Open/In production",
        "customer_id": "9633",
        "customer_name": "MyCustomer d.o.o."
    },
    {
        "id": "9636",
        "title": "PO-23-00026",
        "status": "306",
        "status_name": "Open/In production",
        "customer_id": "9633",
        "customer_name": "MyCustomer d.o.o."
    },
    {
        "id": "9626",
        "title": "PO-23-00025",
        "status": "306",
        "status_name": "Open/In production",
        "customer_id": "9622",
        "customer_name": "BigPrint d.o.o."
    }
]

How to get all data to Map; when I'm using function:

' Waiting for requesst
    ProgressDialogShow2("Waiting for SAP...", False)
    Wait For (job) JobDone(job As HttpJob)
    ProgressDialogHide
    If job.Success Then
        Dim response As String = job.GetString
        response = response.Replace("[","").Replace("]", "")
        Log(response) ' Do something with the response

        Dim jRead As JSONParser
        jRead.Initialize(response)
        
        Dim mOrders As Map
        mOrders = jRead.NextObject
        Log(mOrders)
        
    Else
        Log("Error: " & job.ErrorMessage)
    End If
    
    job.Release

I geting just FIRST value into map... How to read next object from Json string?

Thank you...
Darko

 

[Erel]

https://b4x.com:51041/json/index.html

 

[DarkoT]

https://b4x.com:51041/json/index.html

Ooooo, thank you...

I completely forgot about it....

 

[Erel]

Tip:

Dim mOrders As Map
        mOrders = jRead.NextObject

Better:

Dim mOrders As Map = jRead.NextObject

Dim jRead As JSONParser
        jRead.Initialize(response)
        
        Dim mOrders As Map
        mOrders = jRead.NextObject

Nicer:

        Dim mOrders As Map = response.As(Json).ToMap