From 08f9208e02e6235941ae751b3e48ab78321a045e Mon Sep 17 00:00:00 2001
From: kake26 <codeberg@pngpst.net>
Date: Sat, 9 Nov 2024 22:23:14 -0600
Subject: [PATCH] save point

---
 json.db     | Bin 12288 -> 12288 bytes
 jsonlib2.pb |  97 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 97 insertions(+)
 create mode 100644 jsonlib2.pb

diff --git a/json.db b/json.db
index 85641e427ff942c0338bcec55643248f94ec8872..9b03cdc025be3e368382490469f065fa96115049 100644
GIT binary patch
delta 85
zcmZojXh@hK&8Ra`#+gxPW5Nn~8QvZU<Y~Z!8w+`PS$MZIL{BViVPf)}SlG(KU(U!g
Pv2ZPr28p&Zb^-|iK_(gk

delta 41
xcmZojXh@hK%_uri#+gxcW5Nn~4t@=O4Zcvm(9MDZKlvDcO)R{`s6Me!836mS43hu=

diff --git a/jsonlib2.pb b/jsonlib2.pb
new file mode 100644
index 0000000..248de36
--- /dev/null
+++ b/jsonlib2.pb
@@ -0,0 +1,97 @@
+UseSQLiteDatabase()
+
+Procedure searchkey()
+searchKey$ = "your.key.path"
+query$ = "SELECT * FROM json_data WHERE key = '" + searchKey$ + "'"
+
+If DatabaseQuery(0, query$)
+  While NextDatabaseRow(0)
+    Debug "Key: " + GetDatabaseString(0, 0)
+    Debug "Parent Key: " + GetDatabaseString(0, 1)
+    Debug "Type: " + GetDatabaseString(0, 2)
+    Debug "Value: " + GetDatabaseString(0, 3)
+  Wend
+  FinishDatabaseQuery(0)
+Else
+  Debug "Error executing query: " + DatabaseError()
+EndIf
+
+EndProcedure
+
+Procedure searchval()
+  searchValue$ = "specific value"
+query$ = "SELECT * FROM json_data WHERE value = '" + searchValue$ + "'"
+
+If DatabaseQuery(0, query$)
+  While NextDatabaseRow(0)
+    Debug "Key: " + GetDatabaseString(0, 0)
+    Debug "Parent Key: " + GetDatabaseString(0, 1)
+    Debug "Type: " + GetDatabaseString(0, 2)
+    Debug "Value: " + GetDatabaseString(0, 3)
+  Wend
+  FinishDatabaseQuery(0)
+Else
+  Debug "Error executing query: " + DatabaseError()
+EndIf
+  EndProcedure
+
+
+Procedure ProcessJSONObject(ObjectValue, parentKey$)
+  If ExamineJSONMembers(ObjectValue)
+    While NextJSONMember(ObjectValue)
+      key$ = JSONMemberKey(ObjectValue)
+      MemberValue = JSONMemberValue(ObjectValue)
+      fullKey$ = parentKey$ + key$
+      
+      Select JSONType(MemberValue)
+        Case #PB_JSON_String
+          value$ = GetJSONString(MemberValue)
+          type$ = "String"
+          
+        Case #PB_JSON_Number
+          value$ = StrD(GetJSONDouble(MemberValue))
+          type$ = "Number"  
+          
+        Case #PB_JSON_Boolean
+          value$ = Str(Bool(GetJSONBoolean(MemberValue)))
+          type$ = "Boolean"
+          
+        Case #PB_JSON_Object
+          value$ = "(nested object)"
+          type$ = "Object"
+          ; Recursively process the nested object
+          ProcessJSONObject(MemberValue, fullKey$ + ".")
+          
+        Case #PB_JSON_Array
+          value$ = "(nested array)"
+          type$ = "Array"
+          ; Handle array values if needed.
+          
+        Default
+          value$ = "(unknown type)"
+          type$ = "Unknown"
+          
+      EndSelect
+  
+      ; Insert the parsed data into the SQLite database
+      query$ = "INSERT INTO json_data (key, parent_key, type, value) VALUES ('" + fullKey$ + "', '" + parentKey$ + "', '" + type$ + "', '" + value$ + "')"
+      If DatabaseUpdate(0, query$) = 0
+        Debug "Error inserting data: " + DatabaseError()
+      EndIf
+    Wend
+  EndIf
+EndProcedure
+
+OpenDatabase(0, "json.db", "", "", #PB_Database_SQLite)
+
+LoadJSON(1, "results.json")
+ParseJSON(1, json$) ; returns garbage without the PB ascii there not sure why
+ObjectValue = JSONValue(1)
+
+ProcessJSONObject(ObjectValue, "")
+; IDE Options = PureBasic 6.12 LTS (Linux - x64)
+; CursorPosition = 37
+; FirstLine = 11
+; Folding = -
+; EnableXP
+; DPIAware
\ No newline at end of file