Config class + Json file

Post

Posted
Rating:
#1 (In Topic #680)
tincho
Avatar
Regular
tincho is in the usergroup ‘Regular’
Hello friends.
I would like to present you a method to manage the configuration of a program, which I find interesting.
Together with TercoIDE we prepared this example in which in a class there are all the parameters of a program and with great flexibility can be added more. Then in any other part of the program you can read and write those variables.
Finally there is a method (Save) that goes through the symbols of the class and saves them in a text file in json format for future use by retrieving this data with the "Load" method.
Please feel free to give your opinion, comment or improve this program.
Config.class

Code (gambas)

  1. ' Gambas class file
  4. Private Const ConfigFile As String = ".app/config.json"
  5. ''Configuration variables to be saved, add as needed below
  6. Public CurrentColor As Byte = 1
  7. Public CurrentWidth As Byte = 1
  8. Public CurrentLType As Byte = 1
  9. Public OtherParameter1 As String = "gambas-es.org"
  10. Public OtherParameter2 As String = "gambas.one"
  11. Public OtherParameter3 As String = "gambas-club.de"
  12. Public OtherParameter4 As String = "gambas-it.org"
  13.  
  15.  
  16.   Dim jConfig As Collection
  18.   Dim sSymbol As String
  19.   Dim obj As Object = Me
  20.   Dim MyClass As Class = Object.Class(obj)
  21.  
  22.   If sFile = "" Then
  23.     sFile = User.Home &/ ConfigFile
  25.  
  26.   If Exist(sFile) Then
  27.     jConfig = JSON.FromString(File.Load(sFile))
  28.     For Each sSymbol In myClass.Symbols
  29.       If jConfig.Exist(sSymbol) Then
  30.         Object.SetProperty(obj, sSymbol, jConfig[sSymbol])
  31.       Endif
  32.     Next
  35.  
  38.   Dim jConfig As New JSONCollection
  39.   Dim obj As Object = Me
  40.   Dim MyClass As Class = Object.Class(obj)
  41.   Dim Var As String
  42.   Dim Valor As Variant
  43.   If sFile = "" Then
  44.     sFile = User.Home &/ ConfigFile
  46.   For Each Var In myClass.Symbols
  47.     '' Verifying that it is a property or a variable.
  48.     If (MyClass[var].kind = Class.Variable) Or (MyClass[var].kind = Class.Property) Then
  49.       valor = Object.GetProperty(obj, var)
  50.       jConfig.Add(Valor, var)
  51.     End If
  52.   Next
  53.   If Not Exist(File.Dir(sFile)) Then
  54.     Shell "mkdir -p " & File.Dir(sFile) Wait
  56.   File.Save(sFile, JSON.Encode(jConfig))
  58.  

For example in a form…

Code (gambas)

  1. Public Sub Form_Open()
  2.   Config.Load()
  3.   Print "Color saved", Config.CurrentColor
  4.   Config.CurrentColor = Rand(0, 255)
  5.   Print "Color to save", Config.CurrentColor
  6.   Config.Save()
  8.  

Regards.
Martín.

Attachment
Online now: No Back to the top
1 guest and 0 members have just viewed this.