expertenaustausch > microsoft.* > microsoft.german.xml

Tom (04.05.2010, 20:48)
Hallo, ich möchte folgende XML Datei in einem vbs script schreiben bzw.
erzeugen:

<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.
Martin Honnen (05.05.2010, 12:39)
Tom wrote:
[..]
> 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

oder auch als download
Tom (08.05.2010, 15:31)
Hey danke für die Hilfe Martin. Das ist genau das was ich gesucht habe.
Ähnliche Themen