XML u. VisBasic : Attribute lesen : Fehler !

[Wolf Fietz]

Mit MSXML4.0 u. Vis.Basic6 kann ich Elemente lesen;
bei dem Versuch Attribute zu lesen passiert folgendes :

For Each chd In xroot.Children
If chd.Children Is Nothing Then
List1.AddItem (Indent & "Tag : " & xroot.tagName & "|" & chd.Text)
If (xroot.Attributes.length > 0) Then
List1.AddItem (Indent & xroot.Attributes(0).xml)
End If

-> Automatisierungsfehler

If Not (chd.Attributes(0).xml Is Nothing) Then

-> Fehler 91 : With..Endwith Blockvariable nicht belegt

laut Galileo-Buch "XML,XSLT,VB und ASP" wäre zumindest die Abfrage auf
child.length richtig !

Please HELP !!!

[Michael Seemann]

Hallo, mag sein die Abkürzung für Item ist nicht erlaubt - dann sollte xroot.Attributes.Item(0).xml funktionieren

[Michael Seemann]

übrigens liefert die Eigenschaft attributes nur einen Wert <> Null zurück, wenn es sich um ein Element handelt - wenn es sich z.B. bei xroot oder chd um einen text-Knoten handelt geht die Sache schief. Auf der sicheren Seite ist man, wenn vorher If Not (xroot.Attributes Is Nothing) überprüft wird.