VB.NET:从 XML 文件中读取多个属性和表

Question

我决定使用 XML 文件保存一些应用程序数据。 我对XML文件很陌生，所以请耐心等待。

我有这样的课程）：

Public Class config
    Public Property name As String
    Public Property type As String
    Public Property inputsTable As DataTable
    Public Property outputsTable As DataTable
    Public Sub WriteXML(filePath As String)
        Using writer As XmlWriter = XmlWriter.Create(filePath)
            writer.WriteStartDocument()
            writer.WriteStartElement("config")
            writer.WriteElementString("name", Me.name)
            writer.WriteElementString("type", Me.type)
            Me.inputsTable.WriteXml(writer)
            Me.outputstable.WriteXml(writer)
            writer.WriteEndElement()
            writer.WriteEndDocument()
        End Using
    End Sub
End Class

WriteXML 子生成如下文件：

<?xml version="1.0" encoding="utf-8"?>
<config>
    <name>testConfigName</name>
    <type>testConfigType</type>
    <DocumentElement>
        <inputs>
            <inputName>testInputName1</inputName>
            <inputValue>testInputValue1</inputValue>
        </inputs>
        <inputs>
            <inputName>testInputName2</inputName>
            <inputValue>testInputValue2</inputValue>
        </inputs>
    </DocumentElement>
    <DocumentElement>
        <outputs>
            <outputName>testOutputName1</outputName>
            <outputValue>testOutputValue1</outputValue>
        </outputs>
    </DocumentElement>
</config>

我有几个问题：

1. XML 文件中"根节点"的用途是什么？ 在这里我创建了一个节点"配置"以使我的代码正常工作，但我没有真正理解为什么有必要。

2. 是否需要 WriteStartDocument/WriteEndDocument？

3. 如何编写 sub 以将此文件读回我的应用程序？ 我特别难以把桌子拿出来。 我能够使用以下方法获取单个元素：

   Using reader As XmlReader = XmlReader.Create(filePath)
       While reader.Read()
           Select Case reader.NodeType
               Case XmlNodeType.Element
                   Select Case reader.Name
                       Case "name"
                           name = reader.ReadElementContentAsString()
                       Case "type"
                           type = reader.ReadElementContentAsString()
                   End Select    
           End Select
       End While
   End Using
   

   但我不知道如何（或者是否有可能）将其与：

   inputsTable.ReadXml(reader)
   outputsTable.ReadXml(reader)
   

   似乎 ReadXml 实际上可能不适用于我正在尝试做的事情（读取特定表），并且适用于更简单的单表 XML 结构，但我无法明确确认这一点。

任何帮助将不胜感激！

Answer 1

试试这段代码，.Net 序列化程序为你做了很多工作。

Public Class config
    Public Property name As String
    Public Property type As String
    Public Property inputsTable As DataTable
    Public Property outputsTable As DataTable
    Public Sub WriteXML(filePath As String)
        Dim writer As New XmlSerializer(GetType(config))
        Dim file As New StreamWriter(filePath)
        writer.Serialize(file, Me)
        file.Close()
    End Sub
    Public Shared Function ReadXML(filePath As String) As config
        Dim reader = New XmlSerializer(GetType(config))
        Dim file = New StreamReader(filePath)
        Dim fileData = CType(reader.Deserialize(file), config)
        Return fileData
    End Function
End Class

顺便说一句，这些代码模式是您可以通过右键单击轻松访问的代码片段，并且：单击插入代码段 -> 数据 - LINQ -XML 等...-> XML -> XML 读/XML 写 -> 从/到类。

如何忽略属性

<XmlIgnore>
Public Property inputsTable As DataTable