Android Question Encoding Text when Manually Building JSON

DonManfred said:

Usually i do use a map to build the structure and then pass the map to the jsongenerator to build a json out of it.

Does this not work for you?

B4X:

    Dim jgen As JSONGenerator
    jgen.Initialize(CreateMap("customerId": 123))
    Log(jgen.ToString)

Click to expand...

colboy said:

I'm manually building in code, some JSON files, but have a hit a problem where I need to ensure that characters like " ' [ & etc are encoded, as if I don't, the recipient can't parse the resulting file. Is there a function somewhere that will allow me to convert a text string to a JSON friendly string?

Thanks, Colin

Click to expand...

npsonic said:

You may want to encode all problematic strings with HEX. Encoding method can be found from ByteConverter lib.

Click to expand...

colboy said:

I know other languages have a function to encode and decode for this very purpose. Would be useful on B4A.

Click to expand...

Sub Encode (Text As String) As String
    Dim bc As ByteConverter
    Return bc.HexFromBytes(bc.StringToBytes(Text,"UTF-8"))
End Sub

npsonic said:

It isn't hard with B4A either.

B4X:

Sub Encode (Text As String) As String
    Dim bc As ByteConverter
    Return bc.HexFromBytes(bc.StringToBytes(Text,"UTF-8"))
End Sub

Click to expand...

colboy said:

Surely this would need to be decoded correctly at the other end?

Click to expand...

colboy said:

But I don't think I can use hex, as I'm posting to a site, I have no control over. Surely this would need to be decoded correctly at the other end?

Click to expand...

{"key1":"\'[\\"&"}

npsonic said:

If you build your own json string like you said what's the problem you are facing?
Characters " ' [ & should work just fine when json string is correctly created.

Just use \ with some characters like ' and \\ with the "

B4X:

{"key1":"\'[\\"&"}

Click to expand...

colboy said:

I'm just going to create a function based on DonManfred's solution. I'll then strip out the desired result. Just thought there was an easier way.

Click to expand...

npsonic said:

If you find method you need from B4A libs like in this case lib JSON, it's very good chance that it is already made easy as it can be.
Like I pointed out my last message you need to take care of correct syntax with some special characters when dealing with json. JSON lib already takes care of this all automatically.

Click to expand...

Sub StringToJSON(pText As String) As String
    Dim lResult As String=""
    Dim jgen As JSONGenerator
    jgen.Initialize(CreateMap("Remove": pText))
    lResult=Mid(jgen.ToString,12,jgen.ToString.Length-13)
    Return lResult
End Sub