SpiderBasic

Code: Select all

Structure config
  Name$
  Age.l
  List Books.s()
EndStructure

  LoadJSON(0,"config.json")

  ExtractJSONStructure(JSONValue(0), @P.config, config)
  
  Debug P\Name$
  Debug P\Age
  Debug ListSize(P\Books())

Code: Select all

{"Name": "John Smith", "Age": 42, "Books": ["Investing For Dummies", "A Little Bit of Everything For Dummies"] }

Code: Select all

Structure config
  Name$
  Age.l
  List Books.s()
EndStructure

Procedure LoadingEvent(Type, Filename$, ObjectId)
	
  Debug Type ; should be #PB_Loading_JSON
  Debug Filename$ ; should be "config.json"
  Debug ObjectId ; should be 0
	
  ExtractJSONStructure(JSONValue(ObjectId), @P.config, config)
  
  Debug P\Name$
  Debug P\Age
  Debug ListSize(P\Books())
  
EndProcedure

BindEvent(#PB_Event_Loading, @LoadingEvent())

LoadJSON(0, "config.json")