Android Question Sort json

Sub AppStart (Args() As String)

    Dim res As List = Sort(msg.As(JSON).ToList)

    Dim dataList As List
    dataList.Initialize
    
    For Each str As String In res
        Dim jsonObject As Map
        jsonObject.Initialize
        
        Dim pairs() As String = Regex.Split(",\s*(?=\w+=)", str)
        For Each pair As String In pairs
            Dim keyValue() As String = Regex.Split("=", pair)
            If keyValue.Length = 2 Then
                Dim key As String = keyValue(0).Trim
                Dim value As String = keyValue(1).Trim
                jsonObject.Put(key, value)
            End If
        Next
        
        dataList.Add(jsonObject)
    Next
    
    Dim sortedJsonList As List
    sortedJsonList.Initialize
    
    For Each item As Map In dataList
        Dim jg As JSONGenerator
        jg.Initialize(item)
        sortedJsonList.Add(jg.ToString)
    Next
    
    Dim exJson As JSONGenerator
    exJson.Initialize2(sortedJsonList)
    Dim jsonSortResult As String = exJson.ToString
    jsonSortResult = jsonSortResult.Replace($"["{\"["$,$"[{""$)
    jsonSortResult = jsonSortResult.Replace($"}"]"$,"}]")
    jsonSortResult = jsonSortResult.Replace($"\""$,$"""$)
    jsonSortResult = jsonSortResult.Replace($"}","{"$,"},{")
    Log(jsonSortResult)
End Sub

 #AdditionalJar: sqlite-jdbc-3.41.2.1
Sub Process_Globals
    Type KeyValueList (Keys As List, Values As List)
    Dim msg As String = $"[{"service":"1","count":"110","amount":99000,"id":"1413"},{"service":"1","count":"3","amount":53000,"id":"3"},{"service":"1","country":"5","operator":"1","count":"29702","amount":63000,"id":"9"},{"service":"1","count":"605","amount":87000,"id":"95"},{"service":"1","count":"102","amount":46000,"id":"8"}]"$
    Dim OrderList As List = Array("amount")
End Sub

Sub AppStart (Args() As String)
    Dim List1 As List = msg.As(JSON).ToList
    Dim keys As List = Array("service", "country", "operator", "count", "amount", "id")
    Dim cols As List = Array(DBUtils.DB_TEXT, DBUtils.DB_TEXT, DBUtils.DB_TEXT, DBUtils.DB_TEXT, DBUtils.DB_TEXT, DBUtils.DB_TEXT)
    'Dim cols As List = Array(DBUtils.DB_INTEGER, DBUtils.DB_INTEGER, DBUtils.DB_INTEGER, DBUtils.DB_INTEGER, DBUtils.DB_INTEGER, DBUtils.DB_INTEGER)
    Dim schema As KeyValueList = CreateKeyValueList(keys, cols)

    Dim imdb As SQL ' in-memory database
    imdb.InitializeSQLite("", ":memory:", True)
    DBUtils.CreateTable(imdb, "TempList", ConvertKeyValueList2Map(schema), "id")
    DBUtils.InsertMaps(imdb, "TempList", List1)
    
    Dim Query As String = "SELECT * FROM TempList ORDER BY " & List2CommaString(OrderList)
    Dim SortedMap As Map = DBUtils.ExecuteJSON(imdb, Query, Null, 0, cols)
    Dim root As List = SortedMap.Get("root")
    Log(root.As(JSON).ToString)
    StartMessageLoop
End Sub

Public Sub ConvertKeyValueList2Map (kvl As KeyValueList) As Map
    Dim obj As Map = CreateMap()
    For i = 0 To kvl.Keys.Size - 1
        obj.Put(kvl.Keys.Get(i), kvl.Values.Get(i))
    Next
    Return obj
End Sub

Private Sub List2CommaString (list As List) As String
    Dim SB As StringBuilder
    SB.Initialize
    For Each item In list
        If SB.Length > 0 Then SB.Append(", ")
        SB.Append(item)
    Next
    Return SB.ToString
End Sub

Public Sub CreateKeyValueList (Keys As List, Values As List) As KeyValueList
    Dim t1 As KeyValueList
    t1.Initialize
    t1.Keys = Keys
    t1.Values = Values
    Return t1
End Sub

Private Sub Sort(Input As List) As List
    Dim res As List
    res.Initialize
    For Each m As Map In Input
        res.Add(CreateItemType(m.Get("service"), m.Get("count"), m.Get("amount"), m.Get("id")))
    Next
    res.SortType("Amount", True)
    '
    'Convert itemtypes back to maps
    '
    Dim res2 As List
    res2.Initialize
    For Each item As ItemType In res
        res2.Add(ItemType2Map(item))
    Next
    Return res2
End Sub

Public Sub ItemType2Map(input As ItemType) As Map
    Dim m As Map
    m.Initialize
    m.Put("service", input.Service)
    m.Put("count", input.Count)
    m.Put("amount", input.Amount)
    m.Put("id", input.Id)
    Return m
End Sub