X-Configuration Storage (COM verfügbares Konfigurationsvariablen System)

    • VB.NET

    Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ExtremProgrammierer.

      X-Configuration Storage (COM verfügbares Konfigurationsvariablen System)

      So, hier noch ne Kleinigkeit.

      Ich habe für unser CAD-System eine Klasse zum Speichern von Konfigurationsvariablen erstellt. Der Grund für das selbst erstellen ist einfach, das System kann nur COM (und das teilweise nicht richtig) und wir haben einen zentralen Speicher gebraucht.

      Gespeichert wird in folgender Notation:

      Quellcode

      1. Kategorie->Objekt->Eigenschaft°Wert

      Das Dateiformat ist eine einfache Textdatei mit der Endung .xcs

      Es ist auch ein simpler Editor dabei (wirklich simpel), mit dem man die Dateien bearbeiten kann. Der Editor kann die Dateiendung registrieren, sodass sich beim Doppelklick auf eine xcs-Datei sofort der Editor öffnet und die Datei lädt.


      Um die X-Configuration Storage Klasse auch über COM zu nutzen, muss diese nur noch registriert werden

      Visual Studio Shell als Administrator öffnen, zum Ordner navigieren in dem die DLL liegt, mit RegAsm registrieren

      Quellcode

      1. regasm X-Configuration_Storage.dll /tlb:X-Configuration_Storage.tlb /codebase



      Danach kann man die DLL in [Word/Excel/usw.] als Referenz hinzufügen und verwenden.


      Zur Verwendung (in VBA):
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Sub Test()
      2. 'Objekt erstellen
      3. Dim stor as X_Configuration_Storage.Storage
      4. Set stor = new X_Configuration_Storage.Storage
      6. 'ordner in den gespeichert wird
      7. Dim pfad As String
      8. pfad = "C:\Test\"
      10. 'Schreiben
      11. Call stor.WriteValue("Kategorie->Objekt->Eigenschaft", "Wert")
      13. 'z.B.:
      14. Call stor.WriteValue("Haus->Farbe->Tür", "Braun")
      15. Call stor.WriteValue("Haus->Farbe->Dach", "Rot")
      17. 'Speichern
      18. Call stor.Save(pfad)
      20. 'Öffnet die Datei in Notepad
      21. Shell ("notepad " & pfad & "storage.xcs")
      23. 'Neues objekt
      24. Set stor = Nothing
      25. Set stor = New elkmenu.Storage
      27. 'Laden
      28. Call stor.Load(pfad)
      30. 'Lesen
      31. Dim sRet As String
      32. Call stor.ReadValue("Haus->Farbe->Tür", sRet)
      33. MsgBox (sRet)
      35. 'Löscht einen Wert oder eine Struktur
      36. 'Hier wird das Objekt "Hausecken", mit allen Eigenschaften, aus der Kategorie Kalkulation gelöscht
      37. stor.DelTree ("Haus->Farbe")
      38. stor.Save (pfad)
      40. 'Öffnet die Datei in Notepad
      41. Shell ("notepad " & pfad & "storage.xcs")
      42. End Sub


      Hier das Projekt:
      X-Configuration System.zip
      SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

      Weil einfach, einfach zu einfach ist! :D

      ExtremProgrammierer schrieb:

      du bist mein held

      Das hört man gerne. :D

      Man muss noch dazu sagen, dass dies nur ein ganz simples System ist, welches nicht mal typisiert ist. Der Vorteil liegt einfach in der Einfachheit und der Kompatibilität zu älteren Systemen (z.B.: VB6).

      Aber es freut mich, dass du es gebrauchen kannst. :)
      SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

      Weil einfach, einfach zu einfach ist! :D

    Facebook
    Telefonspende