✔ Erstellen eines XML-Gerüstes

[DaRealMC]

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

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

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:

<?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...

 

[DaRealMC]

Habs jetzt anders gemacht.

Warum soll ich mir da nen Wolf mit XML-Nodes programmieren, wenn cih auch einfach nur ne Text-Datei schreiben kann...

Public Sub xmlerstellen()

Open (Environ$("AppData") & "\XXX\test.xml") For Output As #1
Print #1, "<?xml version=""1.0"" encoding=""windows-1252""?>"
Print #1, "<Config>"
Print #1, "  <Hotkeys>"
For i = 0 To 9
  Print #1, "  <Hotkey ID=""" & i & """>"
  Print #1, "  <X1></X1>"
  Print #1, "  <X2></X2>"
  Print #1, "  </Hotkey>"
Next i

Print #1, "  </Hotkeys>"
Print #1, "  <Window>"
Print #1, "  <Position>"
Print #1, "  <links></links>"
Print #1, "  <oben></oben>"
Print #1, "  </Position>"
Print #1, "  <DBUser></DBUser>"
Print #1, "  </Window>"
Print #1, "</Config>"

Close #1


End Sub