XML Datei in vbs schreiben

Martin Honnen

2010-05-05 10:39:19 UTC

Post by Tom
Hallo, ich möchte folgende XML Datei in einem vbs script schreiben bzw.
<B Name="Test" CName="Test" BNumber="12" Hex="00 00">
<R Name="Test1" CName="Test1">
<F Name="" CName="Test2" EnumValue="" Value="0" />
<F Name="" CName="Test3" EnumValue="" Value="0" />
</R>
<R Name="Test2" CName="Test2">
<F Name="" CName="Test4" EnumValue="" Value="0" />
<F Name="" CName="Test5" EnumValue="" Value="0" />
</R>
</B>
Wie kann ich diese XML Datei in VBS erzeugen, wie kann ich einzelne
Attribute bzw Knoten hinzufügen, diese dann mit werte beschreiben und die XML
datei erzeugen.? Beispiel Code anhand dieses kurzen Beispiels wäre auch gut.
Danke für euere Hilfe im Vorraus.

Mit VBScript kann man MSXML benutzen. MSXML 3 gibt es überall, wo
mindestens IE 6 installiert ist, MSXML 6 gibt es (zusätzlich) unter
Windows XP SP 3, Vista, Windows 7.
Also etwa mit MSXML 3 (ja, mit MSXML 3 benutzt man die ProgId
Msxml2.DOMDocument.3.0"):

Dim doc
Set doc = CreateObject("Msxml2.DOMDocument.3.0")
Dim b
Set b = doc.appendChild(doc.createElement("B"))
b.setAttribute "Name", "Test"
' hier weitere Attribute setzen
b.appendChild doc.createTextNode(VbCrLf)
Dim r
Set r = b.appendChild(doc.createElement("R"))
r.setAttribute "Name", "Test1"
' hier weitere Attribute setzen
' hier weitere Elemente erzeugen
doc.save "datei.xml"

Siehe auch die MSXML SDK online unter
http://msdn.microsoft.com/en-us/library/ms763742(v=VS.85).aspx
oder auch als download
http://www.microsoft.com/downloads/details.aspx?FamilyID=993C0BCF-3BCF-4009-BE21-27E85E1857B1&displaylang=en

--
Martin Honnen --- MVP Data Platform Development
http://msmvps.com/blogs/martin_honnen/