Hallo,
ich habe ein altes VB6-Programm, das seine Konfiguration künftig nciht mehr in der Registry sondern einer XML-Datei speichern soll.
Das Laden und Speichern der eiznelnen Einträge habe ich bereits mit
gemacht.
Allerdings setzt das voraus, dass eine XML-Datei da ist. Ich würde jetzt gerne statt der einfachen msgbox eine XML mit dem Grundgerüst erstellen
Mein Gerüst sieht wie folgt aus:
ich habe ein altes VB6-Programm, das seine Konfiguration künftig nciht mehr in der Registry sondern einer XML-Datei speichern soll.
Das Laden und Speichern der eiznelnen Einträge habe ich bereits mit
Code:
Public Function xmlschreiben(pfad As String, wert As String)
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.validateOnParse = True
objXML.setProperty "SelectionLanguage", "XPath"
' Dokument laden
If Not objXML.Load(Environ$("AppData") & "\XXX\config.xml") Then
' Fehler beim Laden
MsgBox "XML-Datei nicht gefunden"
Set objXML = Nothing
End If
Set nNode = objXML.selectSingleNode(pfad)
nNode.Text = wert
objXML.Save (Environ$("AppData") & "\XXX\config.xml")
End Function
Allerdings setzt das voraus, dass eine XML-Datei da ist. Ich würde jetzt gerne statt der einfachen msgbox eine XML mit dem Grundgerüst erstellen
Mein Gerüst sieht wie folgt aus:
HTML:
<?xml version="1.0" encoding="windows-1252"?>
<Config>
<Hotkeys>
<Hotkey ID="0">
<X1></X1>
<X2></X2>
</Hotkey>
<Hotkey ID="1">
<X1></X1>
<X2></X2>
</Hotkey>
<Hotkey ID="2">
<X1></X1>
<X2></X2>
</Hotkey>
<Hotkey ID="3">
<X1></X1>
<X2></X2>
</Hotkey>
<Hotkey ID="4">
<X1></X1>
<X2></X2>
</Hotkey>
<Hotkey ID="5">
<X1></X1>
<X2></X2>
</Hotkey>
<Hotkey ID="6">
<X1></X1>
<X2></X2>
</Hotkey>
<Hotkey ID="7">
<X1></X1>
<X2></X2>
</Hotkey>
<Hotkey ID="8">
<X1></X1>
<X2></X2>
</Hotkey>
<Hotkey ID="9">
<X1></X1>
<X2></X2>
</Hotkey>
</Hotkeys>
<Window>
<Position>
<links>0</links>
<oben>0</oben>
</Position>
<DBUser></DBUser>
</Window>
</Config>
[/htm]
Aber irgendwie stehe icih wohl auf dem Schlauch...
Zuletzt bearbeitet: