-1

这是我的sample.xml文件。我正在寻找如何阅读此内容并将所有节点（子节点）中的内容放入 DataSet 并在 DataGrid 中显示的说明。我只能读取单个节点（没有子节点）。

我的代码如下：

Private Sub ReadXmlButton_Click() Handles ReadXmlButton.Click

    Dim filePath As String = "C:\Path\"
    DataSet.ReadXml("C:\Path\sample.xml")

    DataGridView1.DataSource = DataSet
    DataGridView1.DataMember = "CART_ID"
End Sub

但它只读取没有子节点的头节点（1000、10.05、YES、8、2）。CART_ID我想在 DataGridView 中显示第一个（以及所有）的所有信息（例如：1000、10.05、A1A、Triangle、10、1、YES、8、2） 。

我的结果： 在此处输入图像描述

预期结果： 在此处输入图像描述

示例.xml

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
    <XML_FILE>
        <typ>xml</typ>
        <ID>
            <NR>007</NR>
        </ID>
        <PERSONAL>
            <Surname>John</Surname>
            <Name>Smith</Name>
        </PERSONAL>
        <COUNTRY>
            <CName>UK</CName>
        </COUNTRY>
          <CITY>
            <TOWN>
                <TOWN_ID>
                    <PART_ID>
                        <CART_ID>
                            <SIMPLE_ID>1000</SIMPLE_ID>
                            <SIMPLE_AREA_ID>10.05</SIMPLE_AREA_ID>
                            <PLACE_ID>
                                <SPECIFIC_ID>
                                    <id>A1A</id>
                                    <name>Triangle</name>
                                    <area>10</area>
                                    <note>1</note>
                                </SPECIFIC_ID>
                            </PLACE_ID>
                            <Control>YES</Control>
                            <Control_area>8</Control_area>
                            <Control_rest>2</Control_rest>
                        </CART_ID>
                              <CART_ID>
                            <SIMPLE_ID>2000</SIMPLE_ID>
                            <SIMPLE_AREA_ID>20.05</SIMPLE_AREA_ID>
                            <PLACE_ID>
                                <SPECIFIC_ID>
                                    <id>B1B</id>
                                    <name>Triangle</name>
                                    <area>20</area>
                                    <note>2</note>
                                </SPECIFIC_ID>
                            </PLACE_ID>
                            <Control>YES</Control>
                            <Control_area>18</Control_area>
                            <Control_rest>2</Control_rest>
                        </CART_ID>
                    </PART_ID>
                 </TOWN_ID>
            </TOWN>
        </CITY>
</XML_FILE>

更新： 最后一件事是如何将修改后的后代（例如 - 手动将 SIMPPLE_ID 从 1000 更改为 5000 等）保存到原始 sample.xml 文件？是否可以使用此解决方案来做到这一点，还是我应该寻找其他方式？

4

2 回答 2

1

@Artec 假设三件事：

  • 您的购物车节点的结构是标准的
  • 你知道节点的名字
  • 您使用的是 Windows 窗体，因为您有 DataGridView 控件

...而不是使用数据集，首先创建一个具有与您需要的数据节点相对应的属性的类

Public Class CartItem

    Public Property Simple_ID As String
    Public Property Simple_Area_ID As String
    Public Property Place_ID As String
    Public Property Place_Name As String
    '...

End Class

现在在您的 Form 类上，通过 XDocument 从您的 xml 文件中获取数据并创建一个 CartItem 列表。

Public Class Form1

    Private _CartItems As List(Of CartItem)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        _CartItems = New List(Of CartItem)

        'TODO: Replace ... below with your file location.
        BuildCart("...\sample.xml")
        DataGridView1.DataSource = _CartItems
    End Sub

    Private Sub BuildCart(XmlSourcePath As String)
        Dim xDoc As XDocument = XDocument.Load(XmlSourcePath)
        For Each cartElement As XElement In xDoc.Root.Descendants("CART_ID")
            Dim item As New CartItem

            With cartElement
                item.Simple_Area_ID = .Descendants("SIMPLE_ID").Value
                item.Simple_ID = .Descendants("SIMPLE_AREA_ID").Value
                item.Place_ID = .Descendants("id").Value
                item.Place_Name = .Descendants("name").Value
                '...
            End With

            _CartItems.Add(item)
        Next
    End Sub
End Class

注意：有几种读取xml文件的方法，比如XMLTextReader；XML文档；XPath 文档；XML阅读器；等等。使用 XDocument 只是我个人的偏好。如果您想查看其他选项，则必须进行一些研究。这完全取决于您的 xml 文件的复杂性、您的要求和偏好。

这应该让你走向正确的方向。

于 2016-11-12T19:23:49.560 回答
0

@Artec 我很长时间没有使用 WinForms，我不确定是否有更简单的方法来确定更改了哪些特定行和列。现在，我只是寻求最简单和基本的解决方案来为您指明正确的方向。

首先，由于您的 xml 结构，我们不能直接将数据集替换回 xml。无法说明代码需要深入到 CART_ID 元素的几个级别。因此，我们将颠倒加载 xml 的方法。

使用与我之前的答案相同的 CartItem 类，我们将 DataGridView 数据集转换为 CartItem 列表。使用列表的值更新 xDoc 元素并将 xDocument 保存回 xml。

Public Class Form1

    Private _CartItems As List(Of CartItem)
    'TODO: Replace ... with the file location.
    Private _FilePath As String = "...\source.xml"

    '... Button1_Click and BuildCart in here.

    Private Sub UpdateXmlButton_Click(sender As Object, e As EventArgs) Handles UpdateXmlButton.Click
        _CartItems = DirectCast(DataGridView1.DataSource, List(Of CartItem))
        UpdateXml()
        MessageBox.Show("Update Done.")
    End Sub

    Private Sub UpdateXml()
        Dim xDoc As XDocument = XDocument.Load(_FilePath)
        Dim cartIDs As IEnumerable(Of XElement) = xDoc.Root.Descendants("CART_ID")

        For index As Integer = 0 To cartIDs.Count - 1
            Dim cartElement As XElement = cartIDs.ElementAt(index)
            Dim item As CartItem = _CartItems(index)

            With cartElement
                .Descendants("SIMPLE_ID").Value = item.Simple_Area_ID
                .Descendants("SIMPLE_AREA_ID").Value = item.Simple_ID
                .Descendants("id").Value = item.Place_ID
                .Descendants("name").Value = item.Place_Name
                '...
            End With
        Next

        xDoc.Save(_FilePath)
    End Sub
End Class

您实际上是在更改内存中加载的 XDocument 的元素并将其放回 xml 文件中。肯定有很多改进可以做，比如：

  • 循环遍历属性，而不是在一行中对每个属性进行编码。这可以通过反射和字典的结合来实现。
  • 只更新被改变的元素而不是改变整个事物
  • 等等

但是上面的代码应该可以帮助您入门。

于 2016-11-14T03:29:43.560 回答