Dim parser As JSONParser
parser.Initialize(<text>)
Dim root As Map = parser.NextObject
Dim base As List = root.Get("base")
For Each colbase As Map In base
Dim entry As String = colbase.Get("entry")
Dim id As String = colbase.Get("id")
Dim info As List = colbase.Get("info")
For Each colinfo As Map In info
Dim entry As String = colinfo.Get("entry")
Dim id As String = colinfo.Get("id")
Next
Next
JsonTree is a tool that helps developers to parse and understand JSON strings. It shows the data structure in a TreeView and it also prints the code (B4J / B4A) required in order to extract the data from the string. Note that variables in the generated code are based on the JSON fields. It may...