堆栈内存溢出
  繁体   English   中英

如何在VB .NET中上移XML节点

[英]How to Move up an XML Node in VB .NET

 原文  2015-02-13 03:40:05  6   2    xml/ vb.net

问题描述

给定这样的XML结构： 

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<LandXML xmlns="http://www.landxml.org/schema/LandXML-1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" date="2014-12-18-06:00" language="English" readOnly="false" time="12:12:16.338-06:00" version="1.0" xsi:schemaLocation="http://www.landxml.org/schema/LandXML-1.0 http://www.landxml.org/schema/LandXML-1.0/LandXML-1.0.xsd">
  <Surfaces>
    <Surface OID="SIE" desc="Ground Surface" name="Ground">
      <Definition surfType="TIN">
        <Pnts />
        <Faces />
      </Definition>
      <SourceData>
        <Boundaries>
          <Boundary bndType="outer" edgeTrim="true" name="Outermost bounding edge">
            <PntList3D>1.5181307542E7 2125297.27 1713.976 1.5181309121E7 2125348.661 1713.65 1.518131357E7 2125401.188 1713.624 1.5181355394E7 2125953.634 1712.622 1.5181471897E7 2127035.359 1711.076 1.5181474238E7 2127060.368 1711.571 1.5181479644E7 2127074.35 1711.4 1.5181484532E7 2127081.58 1711.23 1.5181486144E7 2127083.79 1711.24 1.5181526576E7 2127114.416 1710.763 1.5181604217E7 2127162.511 1710.742 1.518173257E7 2127220.112 1712.713 1.5182046629E7 2127316.035 1716.328 1.5182350908E7 2127362.323 1709.085 1.518238492E7 2126720.863 1678.373 1.5182383044E7 2126559.786 1663.524 1.518236883E7 2126031.128 1708.884 1.5182353785E7 2125775.21 1680.648 1.5182361822E7 2125348.267 1648.468 1.518235892E7 2125223.263 1646.325 1.518233926E7 2124751.224 1640.587 1.5181441405E7 2125081.466 1700.044 1.518132618E7 2125144.398 1708.546 1.5181317827E7 2125194.92 1712.947 1.5181309366E7 2125246.027 1714.161</PntList3D>
          </Boundary>
        </Boundaries>
      </SourceData>
      <Units>
        <Imperial angularUnit="decimal degrees" areaUnit="squareFoot" diameterUnit="USSurveyFoot" directionUnit="decimal degrees" flowUnit="cubicFeetSecond" heightUnit="USSurveyFoot" linearUnit="USSurveyFoot" pressureUnit="inHG" temperatureUnit="fahrenheit" velocityUnit="feetPerSecond" volumeUnit="cubicFeet" widthUnit="USSurveyFoot" />
      </Units>
      <Project desc="GPS Survey, UTM14 North, Autonomous Base, Geoid 2009, Reedy" />
      <Application manufacturer="USDA NRCS" name="Engineering Field Tools" version="3.4.1.2">
        <Author createdBy="james.reedy" />
      </Application>
    </Surface>
  </Surfaces>
</LandXML>

我想将<Units>节点移动到<LandXML>下的顶部，因此它出现在Surfaces节点之上，并且我需要将<SourceData>节点移动到<Surface> 。

这是我想要的最终结构： 

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<LandXML xmlns="http://www.landxml.org/schema/LandXML-1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" date="2014-12-18-06:00" language="English" readOnly="false" time="12:12:16.338-06:00" version="1.0" xsi:schemaLocation="http://www.landxml.org/schema/LandXML-1.0 http://www.landxml.org/schema/LandXML-1.0/LandXML-1.0.xsd">
  <Units>
    <Imperial angularUnit="decimal degrees" areaUnit="squareFoot" diameterUnit="USSurveyFoot" directionUnit="decimal degrees" flowUnit="cubicFeetSecond" heightUnit="USSurveyFoot" linearUnit="USSurveyFoot" pressureUnit="inHG" temperatureUnit="fahrenheit" velocityUnit="feetPerSecond" volumeUnit="cubicFeet" widthUnit="USSurveyFoot" />
  </Units>
  <Surfaces>
    <Surface OID="SIE" desc="Ground Surface" name="Ground">
      <SourceData>
        <Boundaries>
          <Boundary bndType="outer" edgeTrim="true" name="Outermost bounding edge">
            <PntList3D>1.5181307542E7 2125297.27 1713.976 1.5181309121E7 2125348.661 1713.65 1.518131357E7 2125401.188 1713.624 1.5181355394E7 2125953.634 1712.622 1.5181471897E7 2127035.359 1711.076 1.5181474238E7 2127060.368 1711.571 1.5181479644E7 2127074.35 1711.4 1.5181484532E7 2127081.58 1711.23 1.5181486144E7 2127083.79 1711.24 1.5181526576E7 2127114.416 1710.763 1.5181604217E7 2127162.511 1710.742 1.518173257E7 2127220.112 1712.713 1.5182046629E7 2127316.035 1716.328 1.5182350908E7 2127362.323 1709.085 1.518238492E7 2126720.863 1678.373 1.5182383044E7 2126559.786 1663.524 1.518236883E7 2126031.128 1708.884 1.5182353785E7 2125775.21 1680.648 1.5182361822E7 2125348.267 1648.468 1.518235892E7 2125223.263 1646.325 1.518233926E7 2124751.224 1640.587 1.5181441405E7 2125081.466 1700.044 1.518132618E7 2125144.398 1708.546 1.5181317827E7 2125194.92 1712.947 1.5181309366E7 2125246.027 1714.161</PntList3D>
          </Boundary>
        </Boundaries>
      </SourceData>
      <Definition surfType="TIN">
        <Pnts />
        <Faces />
      </Definition>
      <Project desc="GPS Survey, UTM14 North, Autonomous Base, Geoid 2009, Reedy" />
      <Application manufacturer="USDA NRCS" name="Engineering Field Tools" version="3.4.1.2">
        <Author createdBy="james.reedy" />
      </Application>
    </Surface>
  </Surfaces>
</LandXML>

到目前为止，我已经提出了以下代码： 

Dim doc As XmlDocument = New XmlDocument()
doc.Load(Xml_in)

Dim nsmgr As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable)
nsmgr.AddNamespace("", "http://www.landxml.org/schema/LandXML-1.0")

Dim nodelist As XmlNodeList = doc.SelectNodes("//LandXML", nsmgr)
Dim nodelist1 As XmlNode = doc.SelectSingleNode("//LandXML")

For i As Integer = 0 To nodelist.Count - 1
    If (nodelist(i).HasChildNodes) Then
        Dim nodes As XmlNodeList = nodelist(i).ChildNodes
        For j As Integer = nodelist(i).ChildNodes.Count - 1 To 0 Step -1
            If (nodes(j).Name = "Units") Then
                msgbox("Found Units")
                Dim xn As XmlNode = nodes(j)
                nodelist(i).RemoveChild(nodes(j))
                nodelist1.InsertBefore(xn, nodelist1.FirstChild)
            End If
        Next
    End If
Next 
doc.Save(Xml_out)
MsgBox("Done")

但是，它将仅输出原始文件，而从不显示第一个消息框。 我认为它没有找到<Units>而且我不知道该怎么去。

2 个解决方案

解决方案1
 1  2015-02-13 06:00:27

我认为对于您的用例而言，子节点的顺序无关紧要。

从语义上讲是同一回事：在<Surface>下正好有一个 <SourceData>子级，无论它是第一个还是最后一个都无关紧要。 您可以简单地通过名称来引用它。

如果您当前正在构建依赖于<SourceData>作为第一个孩子的东西，强烈建议您重新考虑。

  • 您的主要问题： XmlNamespaceManager （*）中不能有一个空的名称空间前缀
  • 提示1：您不需要删除要在文档中移动的节点
  • 技巧2：VB.NET具有类型推断功能，您可以在大多数地方删除显式类型声明 
Shared Sub ProcessXml(Xml_in As String, Xml_out As String)
    Dim doc = New XmlDocument()
    doc.Load(Xml_in)

    Dim nsmgr = New XmlNamespaceManager(doc.NameTable)
    nsmgr.AddNamespace("land", "http://www.landxml.org/schema/LandXML-1.0")

    SetAsFirstChild(doc.SelectSingleNode("//land:Units", nsmgr), doc.DocumentElement)
    SetAsFirstChild(doc.SelectSingleNode("//land:SourceData", nsmgr))

    doc.Save(Xml_out)
End Sub

Shared Sub SetAsFirstChild(node As XmlNode, Optional parent As XmlNode = Nothing)
    If node Is Nothing Then Exit Sub
    If parent Is Nothing Then parent = node.ParentNode
    If parent Is Nothing Then Exit Sub
    parent.InsertBefore(node, parent.FirstChild)
End Sub

（*）从技术上讲，您可以。 但是，这不会影响XPath。 请参阅文档 。

解决方案2
 1 已采纳  2015-02-13 06:33:56

给定您原始的不完整xml代码，根据缩进，我认为您的意思是这样的： 

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<LandXML date="2014-12-18-06:00" language="English" readOnly="false" time="12:12:16.338-06:00" version="1.0" xsi:schemaLocation="http://www.landxml.org/schema/LandXML-1.0 http://www.landxml.org/schema/LandXML-1.0/LandXML-1.0.xsd" xmlns="http://www.landxml.org/schema/LandXML-1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <Surfaces>
    <Surface OID="SIE" desc="Ground Surface" name="Ground">
      <Definition surfType="TIN">
        <Pnts></Pnts>
        <Faces></Faces>
      </Definition>
      <SourceData>
        <Boundaries>
          <Boundary bndType="outer" edgeTrim="true" name="Outermost bounding edge">
            <PntList3D>1.5181307542E7 2125297.27 1713.976 1.5181309121E7 2125348.661 1713.65 1.518131357E7 2125401.188 1713.624 1.5181355394E7 2125953.634 1712.622 1.5181471897E7 2127035.359 1711.076 1.5181474238E7 2127060.368 1711.571 1.5181479644E7 2127074.35 1711.4 1.5181484532E7 2127081.58 1711.23 1.5181486144E7 2127083.79 1711.24 1.5181526576E7 2127114.416 1710.763 1.5181604217E7 2127162.511 1710.742 1.518173257E7 2127220.112 1712.713 1.5182046629E7 2127316.035 1716.328 1.5182350908E7 2127362.323 1709.085 1.518238492E7 2126720.863 1678.373 1.5182383044E7 2126559.786 1663.524 1.518236883E7 2126031.128 1708.884 1.5182353785E7 2125775.21 1680.648 1.5182361822E7 2125348.267 1648.468 1.518235892E7 2125223.263 1646.325 1.518233926E7 2124751.224 1640.587 1.5181441405E7 2125081.466 1700.044 1.518132618E7 2125144.398 1708.546 1.5181317827E7 2125194.92 1712.947 1.5181309366E7 2125246.027 1714.161</PntList3D>
          </Boundary>
        </Boundaries>
      </SourceData>
    </Surface>
  </Surfaces>
  <Units>
    <Imperial angularUnit="decimal degrees" areaUnit="squareFoot" diameterUnit="USSurveyFoot" directionUnit="decimal degrees" flowUnit="cubicFeetSecond" heightUnit="USSurveyFoot" linearUnit="USSurveyFoot" pressureUnit="inHG" temperatureUnit="fahrenheit" velocityUnit="feetPerSecond" volumeUnit="cubicFeet" widthUnit="USSurveyFoot" />
  </Units>
  <Project desc="GPS Survey, UTM14 North, Autonomous Base, Geoid 2009, Reedy"></Project>
  <Application manufacturer="USDA NRCS" name="Engineering Field Tools" version="3.4.1.2">
    <Author createdBy="james.reedy" />
  </Application>
</LandXML>

使用XDocument这样的东西将起作用： 

Sub MoveUnits(fileName As String)
    Dim file As XDocument = XDocument.Load(fileName)
    Dim units As XName = XName.Get("{http://www.landxml.org/schema/LandXML-1.0}Units")
    Dim tempElement = file.Root.Elements(units)(0)
    tempElement.Remove()
    file.Root.AddFirst(tempElement)
    file.Save(fileName)
End Sub

对于要移动的其他元素，应该很容易遵循相同的过程。 这将导致以下结果： 

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<LandXML date="2014-12-18-06:00" language="English" readOnly="false" time="12:12:16.338-06:00" version="1.0" xsi:schemaLocation="http://www.landxml.org/schema/LandXML-1.0 http://www.landxml.org/schema/LandXML-1.0/LandXML-1.0.xsd" xmlns="http://www.landxml.org/schema/LandXML-1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <Units>
    <Imperial angularUnit="decimal degrees" areaUnit="squareFoot" diameterUnit="USSurveyFoot" directionUnit="decimal degrees" flowUnit="cubicFeetSecond" heightUnit="USSurveyFoot" linearUnit="USSurveyFoot" pressureUnit="inHG" temperatureUnit="fahrenheit" velocityUnit="feetPerSecond" volumeUnit="cubicFeet" widthUnit="USSurveyFoot" />
  </Units>
  <Surfaces>
    <Surface OID="SIE" desc="Ground Surface" name="Ground">
      <Definition surfType="TIN">
        <Pnts></Pnts>
        <Faces></Faces>
      </Definition>
      <SourceData>
        <Boundaries>
          <Boundary bndType="outer" edgeTrim="true" name="Outermost bounding edge">
            <PntList3D>1.5181307542E7 2125297.27 1713.976 1.5181309121E7 2125348.661 1713.65 1.518131357E7 2125401.188 1713.624 1.5181355394E7 2125953.634 1712.622 1.5181471897E7 2127035.359 1711.076 1.5181474238E7 2127060.368 1711.571 1.5181479644E7 2127074.35 1711.4 1.5181484532E7 2127081.58 1711.23 1.5181486144E7 2127083.79 1711.24 1.5181526576E7 2127114.416 1710.763 1.5181604217E7 2127162.511 1710.742 1.518173257E7 2127220.112 1712.713 1.5182046629E7 2127316.035 1716.328 1.5182350908E7 2127362.323 1709.085 1.518238492E7 2126720.863 1678.373 1.5182383044E7 2126559.786 1663.524 1.518236883E7 2126031.128 1708.884 1.5182353785E7 2125775.21 1680.648 1.5182361822E7 2125348.267 1648.468 1.518235892E7 2125223.263 1646.325 1.518233926E7 2124751.224 1640.587 1.5181441405E7 2125081.466 1700.044 1.518132618E7 2125144.398 1708.546 1.5181317827E7 2125194.92 1712.947 1.5181309366E7 2125246.027 1714.161</PntList3D>
          </Boundary>
        </Boundaries>
      </SourceData>
    </Surface>
  </Surfaces>
  <Project desc="GPS Survey, UTM14 North, Autonomous Base, Geoid 2009, Reedy"></Project>
  <Application manufacturer="USDA NRCS" name="Engineering Field Tools" version="3.4.1.2">
    <Author createdBy="james.reedy" />
  </Application>
</LandXML>

暂无
暂无

声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 如何在VB .NET中升级LandXML节点 VB.NET XML节点 Java JDOM XML：如何将节点上移 VB.NET 将 XML 子级移动到父级 如何使用组合框编辑XML节点（VB.Net） 如何在 vb.net 中使用 xml 节点的 if 条件 如何将一个完整的节点插入到 vb.net 中的 xml？ 使用vb.net读取XML节点 在VB.NET中读取XML节点 xml中每个节点的问题（vb.net）
相关标签
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM