Pastable version of Load XmlNodeList into an XmlDocument

<pre class='prettyprint' language='asp_vb.net'>Private Function GetPreviousMonthsXml(ByVal months As Integer, ByVal startDate As Date, ByVal xDoc As XmlDocument, ByVal path As String, ByVal nodeName As String) As XmlDocument
    ' build xpath string with list of months to return
    Dim xp As New StringBuilder(&quot;//&quot;)
    xp.Append(nodeName)
    xp.Append(&quot;[&quot;)
    For i As Integer = 0 To (months - 1)
      ' get year and month portion of date for datestring
      xp.Append(&quot;starts-with(@Id, '&quot;)
      xp.Append(startDate.AddMonths(-i).ToString(&quot;yyyy-MM&quot;))
      If i &lt; (months - 1) Then
        xp.Append(&quot;') or &quot;)
      Else
        xp.Append(&quot;')]&quot;)
      End If
    Next

' *** This is the block that needs to be refactored ***
    ' import nodelist into an xmldocument
    Dim xnl As XmlNodeList = xDoc.SelectNodes(xp.ToString())
    Dim returnXDoc As New XmlDocument(xDoc.NameTable)
    returnXDoc = xDoc.Clone()
    Dim nodeParents As XmlNodeList = returnXDoc.SelectNodes(path)
    For Each nodeParent As XmlNode In nodeParents
      For Each nodeToDelete As XmlNode In nodeParent.SelectNodes(nodeName)
        nodeParent.RemoveChild(nodeToDelete)
      Next
    Next

For Each node As XmlNode In xnl
      Dim newNode As XmlNode = returnXDoc.ImportNode(node, True)
      returnXDoc.DocumentElement.SelectSingleNode(&quot;//&quot; &amp; node.ParentNode.Name &amp; &quot;[@Id='&quot; &amp; newNode.Attributes(&quot;Id&quot;).Value.Split(&quot;-&quot;)(0) &amp; &quot;']&quot;).AppendChild(newNode)
    Next

' *** end ***
    Return returnXDoc
  End Function</pre>
<a href="http://www.refactormycode.com/codes/36-load-xmlnodelist-into-an-xmldocument" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of Load XmlNodeList into an XmlDocument