B4J Question [BANano] [SOLVED] How to parse 'different' JSON string back to List/Map without modification?

[Mashiane]

Ola

I'm trying to copy and use code from javascript (which is somehow 'different'). Instead of having to modify such strings before I can use them, I'm wondering if its possible to get them parsed to list and or map variables.

Dim sCode As String = $"[{action: 'move_to_inbox',    title: 'Inbox'},{action: 'send', title: 'Sent'},{action: 'delete', title: 'Trash'},{action: 'report', title: 'Spam'},{divider: True }, {header: 'Labels'},{action: 'label', title: 'Family'},{action: 'label', title: 'Friends'},{action: 'label', title: 'Work'}]"$

1. The keys are not inside quotes i.e action
2. There is a single quote on the titles

In normal circumstances most things should be in double quotes.

Thanks.

 

[Daestrum]

Uses json library

    Dim sCode As String = $"[{action: 'move_to_inbox',    title: 'Inbox'},{action: 'send', title: 'Sent'},{action: 'delete', title: 'Trash'},{action: 'report', title: 'Spam'},{divider: True }, {header: 'Labels'},{action: 'label', title: 'Family'},{action: 'label', title: 'Friends'},{action: 'label', title: 'Work'}]"$
    Dim j,k As JSONParser
   
    j.Initialize(sCode)
   
    Dim iCount As Int = 0
   
    Dim a As List = j.NextArray
    Log(a)
    For Each item In a
        Log("------" & CRLF & "item " & iCount & CRLF &"------")
        k.Initialize(item)
        Dim m As Map = k.NextObject
        For Each mitem In m.Keys
            Log(mitem & " = " & m.Get(mitem))
        Next
        iCount = iCount + 1       
    Next

Produces

Waiting for debugger to connect...
Program started.
(ArrayList) [{action=move_to_inbox, title=Inbox}, {action=send, title=Sent}, {action=delete, title=Trash}, {action=report, title=Spam}, {divider=true}, {header=Labels}, {action=label, title=Family}, {action=label, title=Friends}, {action=label, title=Work}]
------
item 0
------
action = move_to_inbox
title = Inbox
------
item 1
------
action = send
title = Sent
------
item 2
------
action = delete
title = Trash
------
item 3
------
action = report
title = Spam
------
item 4
------
divider = true
------
item 5
------
header = Labels
------
item 6
------
action = label
title = Family
------
item 7
------
action = label
title = Friends
------
item 8
------
action = label
title = Work

 

[Peter Simpson]

Dim Parser As JSONParser
parser.Initialize("[{action: 'move_to_inbox',    title: 'Inbox'},{action: 'send', title: 'Sent'},{action: 'delete', title: 'Trash'},{action: 'report', title: 'Spam'},{divider: True }, {header: 'Labels'},{action: 'label', title: 'Family'},{action: 'label', title: 'Friends'},{action: 'label', title: 'Work'}]")

Dim Root As List = Parser.NextArray
For Each ColRoot As Map In Root
     Dim Action As String = ColRoot.Get("action")
     Dim Title As String = ColRoot.Get("title")
Next

 

[Mashiane]

JSON strings needed "cleaning" i.e. were badly formatted!