Android Question How to create Map

[Calvin Yee]

I would like to create a map as per below.

All data is from sqlite. No hardcode on it.

Please advice.


{ "AdminGateWebLink":"http://qa.app.opengatebr.com/CompanyGate",
"AdminUserWebLink":"http://qa.app.opengatebr.com/User",
"ECommerceLink":"http://www.opengatebr.com/#!loja-e-carrinho/cq49",
"GateList": [
{"Id":102,"Name":"as","Url":"21321","Latitude":0,"Longitude":0},
{"Id":105,"Name":"olabug","Url":"189.54.67.252","Latitude":0,"Longitude":0},
{"Id":106,"Name":"pteste01","Url":"189.54.64.75","Latitude":0,"Longitude":0}
]
}

 

[Erel]

This is not a map. It is a json string.

Something like:

Dim jg As JsonGenerator
Dim m As Map = CreateMap("AdminGateWebLink": "http://....", "AdminUserWebLink": "http://...", _
   "GateList": Array (CreateMap("Id": 102, ...), _
 CreateMap("Id": 105, ...)))
jg.Initialize(m)
log(jg.ToPrettyString(4))

 

[Calvin Yee]

"GateList": Array (CreateMap("Id": 102, ...), _
CreateMap("Id": 105, ...)))


For the GateList: this is a dynamics data will get from table. How to write the coding?

 

[DonManfred]

dim m as map
m.initialize
m.put("Key","Value")
....

 

[Calvin Yee]

this is my code:-
I want 2 rows of "properties". system only show 1 row.
Its only display one row.

Please advise.

Dim GroupMap As Map
    GroupMap.Initialize
    GroupMap.Put("AdminGateWebLink","http://qa.app.opengatebr.com/CompanyGate")
    GroupMap.Put("AdminUserWebLink","http://qa.app.opengatebr.com/User")
    For i = 0 To 1
        GroupMap.Put("properties",Array( CreateMap("name": i,"IC":i)))
    Next
    Dim JSONGenerator As JSONGenerator
    JSONGenerator.Initialize(GroupMap)
    Dim JSONstring As String
    JSONstring = JSONGenerator.ToString
    Log(JSONstring)

Running above coding and show following output:-
{"AdminGateWebLink":"http:\/\/qa.app.opengatebr.com\/CompanyGate","AdminUserWebLink":"http:\/\/qa.app.opengatebr.com\/User","properties":[{"name":1,"IC":1}]}

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

 

[Calvin Yee]

Any idea for my question array don't want hardcoded.

How to do it?

 

[Erel]

You should edit your post and add code tags. Exactly like we made that effort when trying to help you.

 

[Calvin Yee]

Thank Erel for advise.
I tested following

Dim GroupMap As Map
    GroupMap.Initialize
    GroupMap.Put("AdminGateWebLink","http://qa.app.opengatebr.com/CompanyGate")
    GroupMap.Put("AdminUserWebLink","http://qa.app.opengatebr.com/User")
    For i = 0 To 1
        GroupMap.Put("properties",Array( CreateMap("name": i,"IC":i)))
    Next
    Dim JSONGenerator As JSONGenerator
    JSONGenerator.Initialize(GroupMap)
    Dim JSONstring As String
    JSONstring = JSONGenerator.ToString
    Log(JSONstring)

Running above coding and show following output:-
{"AdminGateWebLink":"http:\/\/qa.app.opengatebr.com\/CompanyGate","AdminUserWebLink":"http:\/\/qa.app.opengatebr.com\/User","properties":[{"name":1,"IC":1}]}

 

[Erel]

It is critical for developers to understand how the Map collection works. I recommend you to watch the collections video tutorial: https://b4x.com/etp.html

Dim names As List
names.Initialize
For i = 0 To 1
 names.Add(CreateMap("name": i,"IC":i))
Next
GroupMap.Put("properties", names)

 

[Calvin Yee]

Hi Erel,

Thank you for your help.

Solved.