Imports System

Imports System.Xml.Serialization

Imports System.Xml

Imports System.IO

Imports System.Xml.Linq

Imports System.Collections.Generic

​

​

    <XmlRoot("configuration")>

    Public Class LocalSettings

      <XmlElement("appSettings")>

      Public appSettings As New postHistory()

      Public SettingsPath As String = ""

    End Class

    Public Class postHistory

      <XmlArray("postHistory")>

      <XmlArrayItem("postFile")>

      Public postHistory As New List(Of String)

End Class

    Public Module Module1

        Public Function GetXml() As String

            Dim xml as String = <?xml version="1.0" encoding="utf-8"?>

<configuration>

  <appSettings>

    <postHistory>

      <postFile>a.txt</postFile>

      <postFile>b.txt</postFile>

      <postFile>c.txt</postFile>

    </postHistory>

  </appSettings>

  <SettingsPath>d.txt</SettingsPath>

</configuration>.ToString()

            return xml

        End Function

        Public Sub Main()

​

            Dim lSettings As LocalSettings

            Dim xml = GetXml()

​

            Dim xs As New XmlSerializer(GetType(LocalSettings))

            Using reader As New StringReader(xml)

                lSettings = xs.Deserialize(reader)

            End Using

            Using writer as new StringWriter()

                xs.Serialize(writer, lSettings)

                Dim xml2 = writer.ToString()

                Console.WriteLine("Re-serialized XML")

                Console.WriteLine(xml2)

            End Using

        End Sub

    End Module