66 lines
No EOL
1.7 KiB
Text
Executable file
66 lines
No EOL
1.7 KiB
Text
Executable file
UseSQLiteDatabase()
|
|
|
|
; worry about the database init later
|
|
|
|
OpenDatabase(0,"json.db","","",#PB_Database_SQLite)
|
|
|
|
LoadJSON(1,"results.json");ParseJSON(1, json$) ; returns garbage without the PB ascii there not sure why
|
|
|
|
ParseJSON(1, json$) ; returns garbage without the PB ascii there not sure why
|
|
ObjectValue = JSONValue(1)
|
|
|
|
If ExamineJSONMembers(ObjectValue)
|
|
While NextJSONMember(ObjectValue)
|
|
|
|
Debug "Key: " + JSONMemberKey(ObjectValue)
|
|
|
|
MemberValue = JSONMemberValue(ObjectValue)
|
|
|
|
|
|
; Now extract the actual value based on its type
|
|
Select JSONType(MemberValue)
|
|
Case #PB_JSON_String
|
|
Debug "Value (String): " + GetJSONString(MemberValue)
|
|
|
|
|
|
Case #PB_JSON_Number
|
|
Debug "Value (Number): " + StrD(GetJSONDouble(MemberValue))
|
|
|
|
|
|
Case #PB_JSON_Boolean
|
|
Debug "Value (Boolean): " + Bool(GetJSONBoolean(MemberValue))
|
|
|
|
|
|
Case #PB_JSON_Object
|
|
Debug "Value (Object): (nested object)"
|
|
; You could further examine this nested object if needed.
|
|
|
|
|
|
Case #PB_JSON_Array
|
|
Debug "Value (Array): (nested array)"
|
|
; Handle array values if needed.
|
|
|
|
|
|
Default
|
|
Debug "Value (Unknown type)"
|
|
|
|
EndSelect
|
|
|
|
|
|
Wend
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
; IDE Options = PureBasic 6.12 LTS (Linux - x64)
|
|
; CursorPosition = 43
|
|
; FirstLine = 33
|
|
; Folding = -
|
|
; EnableXP
|
|
; DPIAware
|
|
; IDE Options = PureBasic 6.12 LTS (Linux - x64)
|
|
; CursorPosition = 9
|
|
; EnableXP
|
|
; DPIAware |