'Private Sub JobDone(job As HttpJob)
'
' If job.Success Then
' Dim res As String
' res = job.GetString
' Log(res)
'
' 'XML TO JSON
' Dim xm As Xml2Map
' xm.Initialize
' ParsedData = xm.Parse(res)
' Dim jg As JSONGenerator
' jg.Initialize(ParsedData)
' Log(jg.ToPrettyString(1))
' End If
'End Sub
Private Sub Button1_Click
' If job.Success Then
Dim res As String
' res = job.GetString
' Log("res)
res=$"[{"Group":[],"ID":1,"Name":"num1 ","lat":"43.80","lon":"11.23","URL":"https://xxxxxx","Group":0}]"$
'XML TO JSON
Dim xm As Xml2Map
xm.Initialize
ParsedData = xm.Parse(res)
Dim jg As JSONGenerator
jg.Initialize(ParsedData)
Log(jg.ToPrettyString(1))
End Sub