将 XmlNodeList 加载到 XmlDocument 中而不循环?
-
08-06-2019 - |
题
我最初问这个问题 重构我的代码, ,但没有得到任何回应...
基本上我只是尝试加载一个 XmlNodeList
进入一个 XmlDocument
我想知道是否有比循环更有效的方法。
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("//")
xp.Append(nodeName)
xp.Append("[")
For i As Integer = 0 To (months - 1)
'' get year and month portion of date for datestring
xp.Append("starts-with(@Id, '")
xp.Append(startDate.AddMonths(-i).ToString("yyyy-MM"))
If i < (months - 1) Then
xp.Append("') or ")
Else
xp.Append("')]")
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("//" & node.ParentNode.Name & "[@Id='" & newNode.Attributes("Id").Value.Split("-")(0) & "']").AppendChild(newNode)
Next
'' *** end ***
Return returnXDoc
End Function
解决方案
Dim returnXDoc As New XmlDocument(xDoc.NameTable)
returnXDoc = xDoc.Clone()
这里的第一行是多余的 - 您正在创建 XmlDocument 的实例,然后重新分配变量:
Dim returnXDoc As XmlDocument = xDoc.Clone()
这也是同样的作用。
看到您似乎将节点列表中的每个 XmlNode 插入新 XmlDocument 中的不同位置,那么我看不出您如何以其他方式执行此操作。
您可能可以编写更快的 XPath 表达式,例如,在 XPath 表达式前面添加“//”几乎总是执行某些操作的最慢方法,尤其是在您的 XML 结构良好的情况下。您还没有显示您的 XML,所以我无法对此进一步发表评论。
不隶属于 StackOverflow