Android Question Json key null

[dibesw]

I have an error when I read Json file if a key is null.
if 37 key exist, it works
can someone help me? Thanks!!
this is my json file:

This in my code:

Sub ParseEvents
    Dim parser As JSONParser
    parser.Initialize(IncomingJSONText)
    Dim root As List = parser.NextArray
    Dim conta As Int = root.Size
    listaP.Initialize
    listaP.Clear
    For Each colroot As Map In root
       nome = colroot.Get("nome")
       cftp = colroot.Get("Foto")
       codice = colroot.Get("id")
       elenco.AddSingleLine(nome)
       listaP.Add(codice)
    Next
End Sub

 

[DonManfred]

Based on the Screenshot the json is invalid. There should not be a null i guess.

Where does the json come from? From a webapi of your own? A thirdparty webapi?

Recheck the json with any online jsonparser

 

[Peter Simpson]

In Erel's generated code, just check for a null just skip and go onto the next node, it's a simple enough code mod.

 

[dibesw]

key 37 in null because it was cancelled. it is normal this?
How I can skip this null value?
I tried:

If colroot.Get("nome")<>Null Then...
If callroot.size<>0<>Null Then...
If colroot.ContainsKey("nome") Then...

but I have always error in loop

 

[DonManfred]

key 37 in null because it was cancelled. it is normal this?

No.
How did you know it was cancelled?

Where does the json come from? From a webapi of your own? A thirdparty webapi?

Questions are still valid

 

[dibesw]

I use FireBase database.

This happens when I delete a key

 

[OliverA]

The problem is that with your for next loop you automatically assume that every list item is a Map, which is not true in your case.
Try:

Sub ParseEvents
   Dim parser As JSONParser
   parser.Initialize(IncomingJSONText)
   Dim root As List = parser.NextArray
   Dim conta As Int = root.Size
   listaP.Initialize
   listaP.Clear
   Dim colitem As Map
   For Each colroot As Object In root
       If (colroot <> Null) And GetType(colroot).EndsWith("Map") Then
           colitem = colroot
           nome = colitem.Get("nome")
           cftp = colitem.Get("Foto")
           codice = colitem.Get("id")
           elenco.AddSingleLine(nome)
           listaP.Add(codice)
       End If
   Next
End Sub

Edit: removed some of my dim's to make code work

 

[dibesw]

Great OliverA! Thanks a lot!