DecodificatoreMappeJSON.Initialize(DatiMappe)
ListaDatiMappe = DecodificatoreMappeJSON.NextArray
'----Code for Sorting
Dim DecodificatoreSingoloValore1 As JSONParser
Dim DecodificatoreSingoloValore2 As JSONParser
Dim swapped As Boolean
Dim ValoreTemporaneo As String
swapped = True
Do While swapped
swapped = False
For i = 1 To ListaDatiMappe.Size - 1
DecodificatoreSingoloValore1.Initialize(ListaDatiMappe.Get(i-1))
DecodificatoreSingoloValore2.Initialize(ListaDatiMappe.Get(i))
Dim root1 As Map = DecodificatoreSingoloValore1.NextObject
Dim root2 As Map = DecodificatoreSingoloValore2.NextObject
Dim OraIniziale1 As String = root1.Get("OrTick")
Dim OraIniziale2 As String = root2.Get("OrTick")
If OraIniziale1 < OraIniziale2 Then
ValoreTemporaneo = ListaDatiMappe.Get(i)
ListaDatiMappe.Set(i, ListaDatiMappe.Get(i-1))
ListaDatiMappe.Set(i-1, ValoreTemporaneo)
swapped = True
End If
Next
Loop
'-----End of Code for Sorting
For Each coordinata As Map In ListaDatiMappe
....
Next