XML Attribute

Computer: Software & Programmierung
1

Hallo,
ich habe eine XML Datein, in der ich ein Attribut aus einen bestimmten Knoten auslesen will.

meine Anfaenge bis jetzt sind:

Dim Iterator1 As XPathNodeIterator = Navigator.Select(„WMT_MS_Capabilities/Capability/Layer/Layer/Style/LegendURL/OnlineResource“)

If Iterator1.Current.MoveToAttribute(„xlink:href“, „“) Then
imagen_leyenda = Iterator1.Current.Value
Iterator1.Current.MoveToNextAttribute()
End If

der Knoten, indem das Attribut ist heisst OnlineResource und das Attribut ist xlink:href.

Leider funktioniert mein Versuch ueberhaupt nicht.

Bin fuer jede Hilfe dankbar

2

Hallo Anja,

sieht nach VB(A?) aus.

Was mach ich (c#):

xPathStatement = "./Knotenname";
node = doc.SelectSingleNode(xPathStatement);
if (node != null)
 if (node.Attributes.GetNamedItem("id") != null)
 nn = node.Attributes.GetNamedItem("id").Value;

Also erstnmal einen Knoten selektieren. Wenn der da ist schauen ob der das Attribut hat. dann den Wert auslesen.

An mein VBA komme ich gerade nicht ran …

Welceh Sprache brauchst du denn? Das ist nämlich „fast“ kein xml Problem!

biba

Dirk.Pegasus

3

Hallo,

ich arbeite mit vb.net
ich hab es allerdings soweit geschaft, das ich das gewuenschte Attribut bekomme aber in willkuelrlicher reihenfolge, aber ich moechte das in der Reihenfolge, wie es in der XML ist.

Mein Code:

Dim Iterator1 As XPathNodeIterator = Navigator.Select(„WMT_MS_Capabilities/Capability/Layer/Layer/Style/LegendURL/OnlineResource“)

Iterator1.MoveNext()
Iterator1.Current.MoveToFirstAttribute()
Iterator1.Current.MoveToNextAttribute()
imagen_leyenda = Iterator1.Current.Value
Iterator1.Current.MoveToParent()

4

Hallo Anja,

deinen Code verstehe ich nicht. Hier mal „wie ich es machen würde“ in vb.net:

Sub test()
 Dim doc As System.Xml.XmlDocument
 Dim node As System.Xml.XmlElement
 Dim sr As String

 doc = New System.Xml.XmlDocument
 doc.LoadXml("")

 node = doc.SelectSingleNode("t")

 If (Not node Is Nothing) Then
 If (Not node.Attributes.GetNamedItem("ee") Is Nothing) Then
 sr = node.Attributes.GetNamedItem("ee").Value
 End If
 End If

 End Sub

biba

Dirk.Pegasus