How can I extract the data from this json?
Thank you
B4J:
Sub ParseJSON1(jsonstring As String)
Dim parser As JSONParser
parser.Initialize(jsonstring)
Dim jRoot As Map = parser.NextObject
Dim Minimo As String = jRoot.Get("Min")
Dim Maximo As String = jRoot.Get("Max")
Dim Value As String = jRoot.Get("Value")
Dim ImageURL As String = jRoot.Get("ImageURL")
Dim Text As String = jRoot.Get("Text")
Dim id As Int = jRoot.Get("id")
Dim Children As List = jRoot.Get("Children")
For Each colChildren As Map In Children
Dim Minimo As String = colChildren.Get("Min")
Dim Maximo As String = colChildren.Get("Max")
Dim Value As String = colChildren.Get("Value")
Dim ImageURL As String = colChildren.Get("ImageURL")
Dim Text As String = colChildren.Get("Text")
Dim id As Int = colChildren.Get("id")
Dim Children As List = colChildren.Get("Children")
For Each colChildren As Map In Children
Dim Minimo As String = colChildren.Get("Min")
Dim Maximo As String = colChildren.Get("Max")
Dim Value As String = colChildren.Get("Value")
Dim ImageURL As String = colChildren.Get("ImageURL")
Dim Text As String = colChildren.Get("Text")
Dim id As Int = colChildren.Get("id")
Dim Children As List = colChildren.Get("Children")
For Each colChildren As Map In Children
Dim Minimo As String = colChildren.Get("Min")
Dim Maximo As String = colChildren.Get("Max")
Dim Value As String = colChildren.Get("Value")
Dim ImageURL As String = colChildren.Get("ImageURL")
Dim Text As String = colChildren.Get("Text")
Dim id As Int = colChildren.Get("id")
Dim Children As List = colChildren.Get("Children")
For Each colChildren As Map In Children
Dim Minimo As String = colChildren.Get("Min")
Dim Maximo As String = colChildren.Get("Max")
Dim Value As String = colChildren.Get("Value")
Dim ImageURL As String = colChildren.Get("ImageURL")
Dim Text As String = colChildren.Get("Text")
Dim id As Int = colChildren.Get("id")
Dim Children As List = colChildren.Get("Children")
For Each colChildren As Map In Children
Dim SensorId As String = colChildren.Get("SensorId")
Dim Types As String = colChildren.Get("Type")
Dim Minimo As String = colChildren.Get("Min")
Dim Maximo As String = colChildren.Get("Max")
Dim Value As String = colChildren.Get("Value")
Dim ImageURL As String = colChildren.Get("ImageURL")
Dim Text As String = colChildren.Get("Text")
Dim id As Int = colChildren.Get("id")
Dim Children As List = colChildren.Get("Children")
Next
Next
Next
Next
Next
End Sub