Facendo qualche prova con il componente da te segnalato, poniamo il caso di avere questo file
.json:
{
"glossary": {
"title": "example glossary",
"GlossDiv": {
"title": "S",
"GlossList": {
"GlossEntry": {
"ID": "SGML",
"SortAs": "SGML",
"GlossTerm": "Standard Generalized Markup Language",
"Acronym": "SGML",
"Abbrev": "ISO 8879:1986",
"GlossDef": {
"para": "A meta-markup language, used to create markup languages such as DocBook.",
"GlossSeeAlso": ["GML", "XML"]
},
"GlossSee": "markup"
}
}
}
}
}
Ogni oggetto
json inizia con { (parentesi graffa sinistra) e finisce con } (parentesi graffa destra), e in Gambas è rappresentato da un oggetto
Collection.
Ho provato l'interpretazione di quel
file.json con il seguente codice (scritto in modo molto didattico):
Public Sub Main()
Dim coll1, coll2, coll3, coll4, coll5, coll6, coll7 As Collection
coll1 = jSON.Decode(File.Load("/tmp/file.json"), False)
coll2 = coll1["glossary"]
Print coll2["title"]
coll3 = coll2["GlossDiv"]
Print coll3["title"]
coll4 = coll3["GlossList"]
coll5 = coll4["GlossEntry"]
Print coll5["ID"]
Print coll5["SortAs"]
Print coll5["GlossTerm"]
Print coll5["Acronym"]
Print coll5["Abbrev"]
coll6 = coll5["GlossDef"]
Print coll6["para"]
Print coll6["GlossSeeAlso"][0]
Print coll6["GlossSeeAlso"][1]
coll7 = coll4["GlossEntry"]
Print coll7["GlossSee"]
End
