Map1.Clear
For xx = 0 To 10' Contactz.Size-1
Map1.Put("name",xx)
Map1.Put("mobile",xx)
Data.InsertAt(xx,Map1)
JSONGenerator.Initialize2(Data)
Log (JSONGenerator.ToPrettyString(1))
Next
'
Dim data As List
data.Initialize
For xx = 0 To 10' Contactz.Size-1
Dim map1 As Map
map1.Initialize
map1.Put("name",xx)
map1.Put("mobile",xx)
data.InsertAt(xx,map1)
Next
JSONGenerator.Initialize2(data)
Log (JSONGenerator.ToPrettyString(1))
Map1.Clear
For xx = 0 To 10' Contactz.Size-1
Dim Map1 As Map
Map1.initialize
Map1.Put("name",xx)
Map1.Put("mobile",xx)
Data.InsertAt(xx,Map1)
Next
JSONGenerator.Initialize2(Data)
Log (JSONGenerator.ToPrettyString(1))
Data.Clear
For xx = 0 To 10' Contactz.Size-1
Data.Add(CreateMap("name": xx, "mobile": xx))
Next
JSONGenerator.Initialize2(Data)
Log (JSONGenerator.ToPrettyString(1))
Dim Data As List
Data.Initialize
For i = 0 To 10
Data.Add(CreateMap("name": i, "mobile": i))
Next
Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize2(Data)
Log (JSONGenerator.ToPrettyString(4))
Dim parser As JSONParser
parser.Initialize(<text>)
Dim root As List = parser.NextArray
For Each colroot As Map In root
Dim name As Int = colroot.Get("name")
Dim mobile As Int = colroot.Get("mobile")
Next