json-simple2(keep the json order)

[icefairy333]

usage same as JSONGenerator

Private jsg2 as JSONGenerator2
Dim ret As Map
    ret.Initialize
    If success Then ret.Put("code",200) Else ret.Put("code",500)
    ret.Put("data",data)
    jsg2.Initialize(ret)
    res.Write(jsg2.ToString)

2017-7-12 13:01:39
v1.1 add jsonparser(the functions are same as jsonparser in b4x)

 

[prajinpraveen]

exactly what i wanted. thank you

 

[MathiasM]

Thanks for you library, altough I doesn't seem to work for me.
I have this code:

Dim ErrorMap As Map
   ErrorMap.Initialize
   ErrorMap.Put("type","http://linktobereplaced.com/probs/login-failed")
   ErrorMap.Put("detail", "You provided wrong credentials.")
   ErrorMap.Put("instance", mRequest.RequestURI)
   
   Dim jsonError As JSONGenerator2
   jsonError.Initialize(ErrorMap)

And this returns:

{"detail":"You provided wrong credentials.","instance":"/authentication","type":"http://linktobereplaced.com/probs/login-failed"}

 

[aeric]

How if we use List?

https://www.b4x.com/android/forum/threads/android-json-tutorial.6923/#content

 

[Erel]

The order of list items is preserved.

 

[Erel]

The library doesn't work properly. The order is not preserved.

Example code:

Dim m As Map
m.Initialize
For i = 1 To 10
   m.Put(Rnd(0, 100000), i)
Next
Log(m)
Dim jg As JSONGenerator2
jg.Initialize(m)
Log(jg.ToString)

 

[mcqueccu]

In this instance the order was preserved

Dim m As Map
    m.Initialize
    For i = 1 To 10
        m.Put(i, i)       
    Next
    Log(m)
    Dim jg As JSONGenerator2
    jg.Initialize(m)
    Log(jg.ToString)

OUTPUT

(MyMap) {1=1, 2=2, 3=3, 4=4, 5=5, 6=6, 7=7, 8=8, 9=9, 10=10}
{"1":1,"2":2,"3":3,"4":4,"5":5,"6":6,"7":7,"8":8,"9":9,"10":10}

 

[Erel]

It will also be preserved in this case with the internal json library. Probably because of the hash keys of integers.

The premise of this library is that the order is preserved. It is not the case.