Private Sub GetList As List
Dim Result As List
'Dim JSON As JSONParser
'Dim jsonstr As String
''jsonstr="[{""0"":""KA001"",""1"":""KA002"",""Rcnt"":2,""Fcnt"":2,""Err"":""""},{""0"":""5103"",""1"":""212029""},{""0"":""5103"",""1"":""211710""}]"
'jsonstr = $"[{"0":"KA001", "1":"KA002", "Rcnt":"", "Fcnt":2, "Err":""}, {"0":"5103", "1":"212029"}, {"0":"5103", "1":"211710"}]"$
'JSON.Initialize(jsonstr)
'Result=JSON.NextArray
Result.Initialize
Result.Add(CreateMap("0":"KA001", "1":"KA002", "Rcnt":2, "Fcnt":2, "Err":""))
Result.Add(CreateMap("0":"5103", "1":"212029"))
Result.Add(CreateMap("0":"5103", "1":"211710"))
Return Result
End Sub
Sub Button1_Click
Dim ListRs As List = GetList
Dim TempRs As Map = ListRs.Get(1)
If TempRs.IsInitialized = True Then
Log(TempRs.Get("0"))
Else
Log("No Initialized")
End If
End Sub