Per vbscript neues element an xml datei einfügen
guten abend an alle
das xml file, dass dieser script bearbeitet sieht leer so aus:
<?xml version="1.0"?>
-<DynPlacement.Document>
-<Config>
<Paths/>
</Config>
</DynPlacement.Document>
nach ausführung des scripts:
<?xml version="1.0"?>
-<DynPlacement.Document>
-<Config>
<Paths/>
</Config>
-<Path>
<Path>C:\Program Files\Lockheed Martin\Prepar3D v4\Ecosystem\Europe\Italy\Ancona\scenery</Path>
</Path>
</DynPlacement.Document>
ich schaffe es nicht den script so umzuschreiben, dass das element wie unten aufgeführe eingefügt wird:
<?xml version="1.0"?>
-<DynPlacement.Document>
-<Config>
<Paths/>
<Path>C:\Program Files\Lockheed Martin\Prepar3D v4\Ecosystem\Europe\Italy\Ancona\scenery</Path>
</Config>
</DynPlacement.Document>
besten dank für eure hilfe
das xml file, dass dieser script bearbeitet sieht leer so aus:
<?xml version="1.0"?>
-<DynPlacement.Document>
-<Config>
<Paths/>
</Config>
</DynPlacement.Document>
nach ausführung des scripts:
<?xml version="1.0"?>
-<DynPlacement.Document>
-<Config>
<Paths/>
</Config>
-<Path>
<Path>C:\Program Files\Lockheed Martin\Prepar3D v4\Ecosystem\Europe\Italy\Ancona\scenery</Path>
</Path>
</DynPlacement.Document>
Set xmlDoc = _
CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "False"
xmlDoc.Load("C:\Program Files\Lockheed Martin\Prepar3D v4\ATiLibs\Scenery\OF_Config.xml")
Set objRoot = xmlDoc.documentElement
Set objRecord = _
xmlDoc.createElement("Path")
objRoot.appendChild objRecord
Set objFieldValue = _
xmlDoc.createElement("Path")
objFieldValue.Text = "C:\Program Files\Lockheed Martin\Prepar3D v4\Ecosystem\Europe\Italy\ATiAncona\scenery"
objRecord.appendChild objFieldValue
xmlDoc.Save ("C:\Program Files\Lockheed Martin\Prepar3D v4\ATiLibs\Scenery\OF_Config.xml")
ich schaffe es nicht den script so umzuschreiben, dass das element wie unten aufgeführe eingefügt wird:
<?xml version="1.0"?>
-<DynPlacement.Document>
-<Config>
<Paths/>
<Path>C:\Program Files\Lockheed Martin\Prepar3D v4\Ecosystem\Europe\Italy\Ancona\scenery</Path>
</Config>
</DynPlacement.Document>
besten dank für eure hilfe
Please also mark the comments that contributed to the solution of the article
Content-Key: 351290
Url: https://administrator.de/contentid/351290
Printed on: April 23, 2024 at 19:04 o'clock
1 Comment
Set xmlDoc = _
CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = False
xmlDoc.Load("C:\Program Files\Lockheed Martin\Prepar3D v4\ATiLibs\Scenery\OF_Config.xml")
Set objRecord = xmlDoc.createElement("Path")
objRecord.Text = "C:\Program Files\Lockheed Martin\Prepar3D v4\Ecosystem\Europe\Italy\ATiAncona\scenery"
xmlDoc.SelectSingleNode("/DynPlacement.Document/Config").appendChild objRecord
xmlDoc.Save ("C:\Program Files\Lockheed Martin\Prepar3D v4\ATiLibs\Scenery\OF_Config.xml")