Android Question Json UTF8 Download with httpjob has many "\" into string

[Magma]

Hi there,

probably I am doing something wrong as always...

Json UTF8 Download with httpjob has many "\" into string, but browser can read it without them. (as JSON).. also in start and end have [, ]

1. Is the right way removing [ ] (array/list) with substring2 or i must use parser --- can i have an example in forum for one record (object) and for more ?
2. Those "\" can removed automatically and how ?

What i get with httpjob:
"[{\"Id\":33,\"Username\":\"xxxxxxxxxxx\",\"Pass\":\"xxxxxxxxx\",\"Admin\":false,\"IatrosId\":1}]"

What i get with browser:

Thanks in advance

 

[Magma]

This is what I get from your original line in file

(MyMap) {Pass=xxxxxxxxxxxxxxxxx, Username=xxxxxxxxxxxxxx, IatrosId=1, Id=33, Admin=false}

with the same code... ?

 

[Daestrum]

    Dim orig As String = $"[{\"Id\":33,\"Username\":\"xxxxxxxxxxxxxx\",\"Pass\":\"xxxxxxxxxxxxxxxxx\",\"Admin\":false,\"IatrosId\":1}]"$
    Dim js As String = orig.SubString2(1,orig.Length-1)
    Log(js)
    js = js.Replace($"\""$,$"""$)
    Log(js)
    Dim parser As JSONParser
    parser.Initialize(js)
    Dim m As Map = parser.NextObject
    Log(m.Get("IatrosId"))
    Log(m)

 

[Magma]

    Dim orig As String = $"[{\"Id\":33,\"Username\":\"xxxxxxxxxxxxxx\",\"Pass\":\"xxxxxxxxxxxxxxxxx\",\"Admin\":false,\"IatrosId\":1}]"$
    Dim js As String = orig.SubString2(1,orig.Length-1)
    Log(js)
    js = js.Replace($"\""$,$"""$)
    Log(js)
    Dim parser As JSONParser
    parser.Initialize(js)
    Dim m As Map = parser.NextObject
    Log(m.Get("IatrosId"))
    Log(m)

It that the right solution or the only solution ?

because removing/replacing the \" (those characters with ") ...not seems right... or I am saying it wrong ?

 

[aeric]

Dim thestring As String = $""[{\"Id\":33,\"Username\":\"xxxxxxxxxxxxxx\",\"Pass\":\"xxxxxxxxxxxxxxxxx\",\"Admin\":false,\"IatrosId\":1}]""$
Log(thestring)
Dim parser As JSONParser
parser.Initialize(thestring)
Dim value As String = parser.NextValue
parser.Initialize(value)
Dim array1 As List = parser.NextArray
Dim map1 As Map = array1.Get(0)
Log(map1.Get("Username"))

 

[Magma]

Dim thestring As String = $""[{\"Id\":33,\"Username\":\"xxxxxxxxxxxxxx\",\"Pass\":\"xxxxxxxxxxxxxxxxx\",\"Admin\":false,\"IatrosId\":1}]""$
Log(thestring)
Dim parser As JSONParser
parser.Initialize(thestring)
Dim value As String = parser.NextValue
parser.Initialize(value)
Dim array1 As List = parser.NextArray
Dim map1 As Map = array1.Get(0)
Log(map1.Get("Username"))

WOW! you did it !

 

[TILogistic]

My two cents.
I've encountered several issues of this type.

It is always recommended to parse the JSON string as an object before converting it to map or list type.

    Dim thestring As String = $""[{\"Id\":33,\"Username\":\"xxxxxxxxxxxxxx\",\"Pass\":\"xxxxxxxxxxxxxxxxx\",\"Admin\":false,\"IatrosId\":1}]""$
    Dim Parser As JSONParser
    Parser.Initialize(thestring)
    Log(Parser.NextValue.As(JSON).ToList)

test

    Log(Parser.NextValue.As(JSON).ToList.As(JSON).ToString)

ref.

B4A/Libs_JSON/src/anywheresoftware/b4a/objects/collections/JSONParser.java at master · AnywhereSoftware/B4A

B4A core libraries. Contribute to AnywhereSoftware/B4A development by creating an account on GitHub.

github.com