What am I doing wrong? How can I avoid this?
I tried to manually fix things with Regex but it seems like a big mess (e.g. I dont know what happens if i add quotes to non-String values?) to do it that way and I am not good with regex anyways.
Sorry guys, I found a way in the meantime, altough I don't know if its good practice:
B4X:
Dim jg As JSONGenerator 'temporary JSON generator
jg.Initialize(mongodata.Get(i)) ' initializing it with the JSON from the MongoDB
JSON.Initialize(jg.ToString) ' tostring to parse it again
Dim root As Map = JSON.NextObject
Dim Typ As String = root.Get("Typ") ' Those will have correct quotes
Dim Konto As String = root.Get("Konto") 'yay!
Sorry guys, I found a way in the meantime, altough I don't know if its good practice:
B4X:
Dim jg As JSONGenerator 'temporary JSON generator
jg.Initialize(mongodata.Get(i)) ' initializing it with the JSON from the MongoDB
JSON.Initialize(jg.ToString) ' tostring to parse it again
Dim root As Map = JSON.NextObject
Dim Typ As String = root.Get("Typ") ' Those will have correct quotes
Dim Konto As String = root.Get("Konto") 'yay!