Wie kann ich feststellen, ob ein XmlNode ein bestimmtes Attribut hat?

Question

Ich möchte eine Wenn-Bedingung in das Unterprogramm einfügen, die besagt, dass es ausgeführt werden soll, wenn der Xml-Knoten STORE mit dem Attribut TEST="test.doc" nicht existiert. Jeder Vorschlag wäre großartig. Ich bin neu in vb.

Sub InsertNode(ByVal doc As XmlDocument)   
    Dim City As XmlNode = doc.DocumentElement

    Dim Location As XmlElement = doc.CreateElement("store")
    Location.SetAttribute("test", "test.doc")

    Dim books As XmlElement = doc.CreateElement("books")
    books.InnerXml = "New Words"
    Location.AppendChild(books)

    City.AppendChild(store)
End Sub 'InsertNode

---

Beispiel für die XML-Datei

<city>
    <store test="test.doc">
        <books>
        "New Words" 
        </books>
    </store>
</city>

Answer 1

Versuchen Sie so etwas:

If Not doc.SelectSingleNode("//store[@test='test.doc']") Is Nothing Then
    Exit Sub
End If

Answer 2

Unter der Annahme, dass Standort ist der Knoten, den Sie auf das Vorhandensein Ihres Attributs prüfen wollen:

If Location.Attributes.ItemOf("test") Is Nothing Then
    'Attribute doesnt exist
Else
    'Attribute does exist
End If

Answer 3

Editar: Mit meinem Beitrag versuche ich, die ursprüngliche Frage von @Judy zu beantworten. Er geht nicht direkt auf die stark veränderte Version der Frage (und des Titels) ein, die derzeit existiert.

---

Sie können prüfen, ob ein Element "Store" auf folgende Weise existiert:

Dim storeNode as XmlNode = doc.SelectSingleNode("Store")
If storeNode isnot Nothing Then
  'The "Store" node was found.
Else
  'The "Store" node was not found.
End If

Folglich können Sie auf folgende Weise prüfen, ob das Attribut test in der StoreNode vorhanden ist:

Dim testAttribute as XmlAttribute = CType(storeNode.Attributes.GetNamedItem("Test"),  XmlAttribute)

If testAttribute isnot nothing then
  'The "Test" attribute was found.
Else
  'The "Test" attribute was found.
End If

Und schließlich können Sie auf folgende Weise überprüfen, ob das Attribut "Test" den Wert "test.doc" enthält:

If testAttribute.Value = "test.doc" Then
  'The value matches.
End If

Ich bin sicher, dass Sie diese drei Prüfungen in einem einzigen Block zusammenfassen können. Mit dieser offensichtlich ausführlichen Erklärung möchte ich das Konzept verdeutlichen.