If Job.Success Then
Dim res As String
res = Job.GetString
Dim parser As JSONParser
parser.Initialize(res)
Select Job.JobName
Case brand
brand_list = parser.NextArray 'returns a list with maps
For i = 0 To brand_list.Size - 1
m = brand_list.Get(i)
tl.First = m.Get("brand") & " " & m.Get("model") & " / " & m.Get("engine") & " / " & m.Get("yearfrom")
tl.Second = m.Get("fuel") & " - " & m.Get("variant") & " - " & m.Get("comments")
newData = m.Get("brand") & " - " & m.Get("model") & " - " & m.Get("engine") & " - " & m.Get("yearfrom") & " - " & m.Get("fuel") & " - " & m.Get("variant")
If newData <> oldData Then
ListViewCars.AddTwoLines2(tl.First, tl.Second, tl)
brand_list.
End If
oldData = m.Get("brand") & " - " & m.Get("model") & " - " & m.Get("engine") & " - " & m.Get("yearfrom") & " - " & m.Get("fuel") & " - " & m.Get("variant")
Next
End Select
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release