Mega Code Archive

 

Categories / VisualBasic Script / XML

 

Retrieving Specific Information from Element Nodes

Sub SelectNodesByCriteria()      Dim xmldoc As MSXML2.DOMDocument50      Dim xmlNodeList As MSXML2.IXMLDOMNodeList      Dim myNode As MSXML2.IXMLDOMNode      Set xmldoc = New MSXML2.DOMDocument50      xmldoc.async = False      xmldoc.Load ("C:\yourFile.xml")      Set xmlNodeList = xmldoc.selectNodes("//Name")      If Not (xmlNodeList Is Nothing) Then          For Each myNode In xmlNodeList              Debug.Print myNode.Text              If myNode.Text = "old Text" Then                  myNode.Text = "new Text"                  xmldoc.Save "C:\newFile.xml"              End If          Next myNode      End If      Set xmlDoc = Nothing  End Sub