Fragmentation CPUDB add MConvert.module

example:
i-nex.gambas --conv /run/media/michal/fbd26004-de6c-43ba-
92d3-5c15e88a9eee/michal/Baazar/git-i-nex/I-Nex/i-nex/Database/intel
/run/media/michal/fbd26004-de6c-43ba-
92d3-5c15e88a9eee/michal/Baazar/git-i-nex/I-Nex/i-nex/Database/i5 "*i5*"

I-Nex/i-nex/.src/FCpudb.module

@@ -17,7 +17,7 @@
 
 Public Logs As New Logger
 Public i As Integer
-Public database As Collection
+Public database As New Collection
 Function _inits()
   Dim buffer As String
   Dim cpucache As String
@@ -43,6 +43,22 @@ Function _inits()
    Logs("Use Intel Xeon CPU Database", Logger.Info)
     buffer = File.Load("Database/Xeon") 'Load the database to a temporary buffer
     Finfosys.Label14.Text = Replace(Finfosys.Label14.Text, "Intel", "")
+  '
+  '
+  Else If Finfosys.Label14.Text Like "*i3*" Then
+   Logs("Use Intel i3 CPU Database", Logger.Info)
+    buffer = File.Load("Database/i3") 'Load the database to a temporary buffer
+    Finfosys.Label14.Text = Replace(Finfosys.Label14.Text, "Intel", "")
+  Else If Finfosys.Label14.Text Like "*i5*" Then
+   Logs("Use Intel i5 CPU Database", Logger.Info)
+    buffer = File.Load("Database/i5") 'Load the database to a temporary buffer
+    Finfosys.Label14.Text = Replace(Finfosys.Label14.Text, "Intel", "")
+  Else If Finfosys.Label14.Text Like "*i7*" Then
+   Logs("Use Intel i7 CPU Database", Logger.Info)
+    buffer = File.Load("Database/i7") 'Load the database to a temporary buffer
+    Finfosys.Label14.Text = Replace(Finfosys.Label14.Text, "Intel", "")
+  '
+  '
   Else If Finfosys.Label14.Text Like "*atom*" Then
    Logs("Use Intel Atom CPU Database", Logger.Info)
     buffer = File.Load("Database/atom") 'Load the database to a temporary buffer
@@ -92,6 +108,7 @@ Function _inits()
 
   For z = 0 To database["DATABASE"].Count - 1
     If database["DATABASE"][z]["PROCESSOR_MODEL_NAME"] Like "*" & cpucache & "*" Then 
+      Print database["DATABASE"][z]["PROCESSOR_MODEL_NAME"]
       Finfosys.PictureBox3.Name = database["DATABASE"][z]["PROCESSOR_SOCKET_IMAGE"]
       Finfosys.PictureBox3.Picture = Picture["Database/Logos/" & database["DATABASE"][z]["PROCESSOR_SOCKET_IMAGE"] & ""]
       Finfosys.Label103.Text = " Integrated GPU: " & database["DATABASE"][z]["PROCESSOR_INTEGRATEDGRAPHIC"]

I-Nex/i-nex/.src/MConvert.module

@@ -0,0 +1,23 @@
+' Gambas module file
+
+Function Convert(inputS As String, OutputS As String, CPUName As String)
+ Dim JSON_FILE As Collection
+ Dim z As Float
+ Dim NEW_DB As Collection = [("DATABASE"): ""]
+ Dim BUFFF As String
+ Dim CPUDBINTEL As New Collection
+ Dim CPUDBINTELADD As New Collection
+ JSON_FILE = JSON.Decode(File.Load(inputS))
+ CPUDBINTEL = JSON.Decode(File.Load("Database/NULLD"))
+ For z = 0 To JSON_FILE["DATABASE"].Count - 1
+    If JSON_FILE["DATABASE"][z]["PROCESSOR_MODEL_NAME"] Like CPUName Then 
+     Print JSON_FILE["DATABASE"][z]["PROCESSOR_MODEL_NAME"]
+     Print CPUName
+     Print z
+     CPUDBINTEL["DATABASE"].Add(JSON_FILE["DATABASE"][z])
+    Endif
+ Next
+
+ File.Save(OutputS, JSON.Encode(CPUDBINTEL))
+
+End

I-Nex/i-nex/.src/MStart.module

@@ -29,8 +29,9 @@ Public Sub Main()
            "\n  "
            "\n  Usage: env VARIABLE=\"STRING\"  " & Application.name & ".gambas [Options]"
            "\n  Options:"
-           "\n          --help                       (Chow Help)"
-           "\n          --library                       (Chow library)"
+           "\n          --help                          (Chow Help)"
+           "\n          --library                    (Chow library)"
+           "\n          --cpuinfo    (Use cpuinfo instead of /proc)"
            "\n"
            "\n  Env Variables:"
            "\n"
@@ -49,6 +50,9 @@ Public Sub Main()
     CPUINFO_FILE = Application.Args[2]
     Finfosys.Show
     PrintErr = False
+   Case "--conv"
+    MConvert.Convert(Application.Args[2], Application.Args[3], Application.Args[4])
+    PrintErr = False
    Case ""
     Finfosys.Show
     PrintErr = False

I-Nex/i-nex/Database/NULLD

@@ -0,0 +1,4 @@
+{
+  "DATABASE": [
+  ]
+}