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

Mashiane

Expert
Licensed User
Longtime User
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.

B4X: 
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.
 
Sort by date Sort by votes

Daestrum

Expert
Licensed User
Longtime User
Uses json library

B4X: 
    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
 
Upvote 0

Peter Simpson

Expert
Licensed User
Longtime User
B4X: 
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
 
Upvote 0
You must log in or register to reply here.

Similar Threads

  • Question
B4J Question Convert 32 Bit Unsigned Hex Address strings to Long
Replies
11
Views
3K
emexes
E
  • Question
B4J Question How to know if string is parseable as JSON "list" or "Map"
2
Replies
24
Views
5K
jmon
  • Question
B4J Question [SOLVED] How to solve String not closed $
Replies
4
Views
806
Mashiane
D
  • Question
B4J Question Parsing HEX string
Replies
5
Views
1K
sorex
S
B
  • Question
B4J Question How to split on a string by spaces, but don't parse the quotes?
Replies
4
Views
2K
B4JExplorer
B
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…