Um den Wert eines XML-Attributs in VBS

<Requirement Description="description" Operation="Configure">
   <Action ID="1000" Name="Split">
     <Contract>
       <Parameter Name="Version">4</Parameter>
       <Parameter Name="DefaultServer">192.168.00.</Parameter>
       <Parameter Name="DefaultUser">administrator</Parameter>
       <Parameter Name="DefaultPassword">password</Parameter>
       <Parameter Name="DefaultDomain">192.168.00.00</Parameter>
       <Parameter Name="Split">1</Parameter>
     </Contract>
   </Action>
</Requirement>

Aus der obigen XML-Dokument mein Ziel ist, ersetzen Sie die IP-Adresse für die Attribute-Standard-server und die Standard-domain von einem VBScript.

Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
objXMLDoc.async = False
objXMLDoc.load(XMLFullPath) 
Set NodeList = objXMLDoc.documentElement.SelectNodes("//Parameter")

NodeList(i).nodeName

Namen als Parameter und NodeList(i).Text gibt mir Werte wie 4, IP-Adresse, administrator-und andere. Aber ich bin nicht in der Lage, den Attribut-Namen, so dass ich direkt ändern Sie den Wert des Attributs.

InformationsquelleAutor Vijay Nag | 2012-10-15

  1. 5

    Ihre Frage zu beantworten, die Sie verwenden können, die getAttribute - Funktion Zugriff auf ein Attribut-Wert:

    NodeList(i).getAttribute("Name")

    Können Sie auch hinzufügen, ein Prädikat, das dem XPath-Ausdruck in Ihrem SelectNodes abrufen nur die gewünschten Elemente aus:

    Set NodeList = objXMLDoc.documentElement.SelectNodes("//Parameter[@Name = 'DefaultServer' or @Name = 'DefaultDomain']")

    Diese Weise werden Sie nicht haben, um Sie abrufen und in einer Schleife durch die Parameter-Knoten, dass Sie nicht interessiert sind in.

    getAttribute("") war etwas, was ich fehlte-auf einem meiner scripts. vielen Dank für die Referenz.

    InformationsquelleAutor Cheran Shunmugavel

  2. 1

    Etwas rostig, aber ich denke, Sie können dies verwenden, um abrufen der nodevalue durch nodename:

    Function getTag(nList, nName)
    Dim i
    i = 0
    Do while i < nList.childNodes.length
        if (nList.childNodes(i).nodeName = nName) then
            getTag = nList.childNodes(i).childNodes(0).text
            Exit Function
        end if
        i = i + 1
    Loop
End Function

    Und es, wahrscheinlich 

    Sub setTag(nList, nName, val)
    Dim i
    i = 0
    Do while i < nList.childNodes.length
        if (nList.childNodes(i).nodeName = nName) then
            nList.childNodes(i).childNodes(0).text = val
            Exit Sub
        end if
        i = i + 1
    Loop
End Sub
    Hi..sorry, das hat nicht funktioniert.
    set obj = NodeList(ich).Attribute dieser gibt alle Werte der Attribute. Trotzdem danke 🙂
    Ohhh... schlug meinen Kopf gegen den Schreibtisch jetzt, dass ich nicht Lesen Sie die Frage sorgfältig durch.

    InformationsquelleAutor AardVark71

Schreibe einen Kommentar