Imports System

Imports System.Collections.Generic

Imports System.Collections

Imports System.IO

Imports System.Text

Imports System.Collections.ObjectModel

Imports System.Linq

Imports System.Reflection

​

Imports System.Xml.Serialization

Imports System.Xml

Imports System.Xml.Linq

Imports System.Xml.XPath

Imports System.Xml.Schema

​

Imports NUnit.Framework

​

' https://stackoverflow.com/questions/57275086/ienumerableof-string-ignored-by-xmlserializer

​

    Public Class CategoryInfo

        Public Sub New()

        End Sub

​

    Public Sub New(SearchTerm as String)

            Me.SearchTerm = SearchTerm

        End Sub

        Public Property SearchTerm As String

    End Class

​

    Public Class OptionsSerializable

        Public Sub New()

        End Sub

​

        <XmlAnyElement>

        Public Property Unsupported As List(Of XmlElement)

​

        <System.Xml.Serialization.XmlElement(ElementName:="ListeCategoriesExt")>

        Public ReadOnly Property Categories As List(Of CategoryInfo) = New List(Of CategoryInfo)

​

        Shared Sub AddCategory(Categories as IList(Of CategoryInfo), Name as String)

            If Not Categories.Any(Function(c) c.SearchTerm = Name) Then

                Categories.Add(New CategoryInfo(Name))

            End If

        End Sub

        Public ReadOnly Property ListeCategories As EnumerableBridge(Of String, CategoryInfo) = New EnumerableBridge(Of String, CategoryInfo)(_categories, AddressOf AddCategory, Function(c) c.SearchTerm)

​

        ' Remainder unchanged

        Public Property ServeurExchangeUrl As String

        Public Property VersionExchange As String

​

        ' Commented out for demo simplicity

        ' Public Property AdresseBoitePartager As New List(Of String)

        ' Public Property GroupingMasks As New List(Of String)

        ' Public Property TFSLinks As New XmlSerializableDictionary(Of String, String)

        ' Public Property EstAlertageActif As Boolean

        ' Public Property Laps As Integer

        ' Public Property NbErreursMaximum As Integer

        ' Public Property DerniereVerification As Date

        ' Public Property ListeEnvoi As String

        ' Public Property DernierEnvoi As Date

        ' Public Property LogonDernierEnvoi As String

        ' Public Property IntervalEnvoiMinimum As Integer

    End Class

​

    ' <Serializable> Removed since _converterFrom and _add are not really serializable

    Public Class EnumerableBridge(Of TSource, TTarget)

        Implements IEnumerable(Of TSource)

​

        Private _refCollection As IList(Of TTarget)

        Private _add As Action(Of IList(Of TTarget), TSource)

        Private _converterFrom As Func(Of TTarget, TSource)

​

        Sub New()

            Throw New NotImplementedException()

        End Sub

​

        Public Sub New(refCollection As IList(Of TTarget), add As Action(Of IList(Of TTarget), TSource), converterFrom As Func(Of TTarget, TSource))

            _refCollection = refCollection

            _add = add

            _converterFrom = converterFrom

        End Sub

​

        Public Sub Add(item As TSource) 'Implements ICollection(Of TSource).Add

            _add(_refCollection, item)

        End Sub

​

        Public Function IEnumerable_GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator

            Return GetEnumerator()

        End Function

​

        Public Function GetEnumerator() As IEnumerator(Of TSource) Implements IEnumerable(Of TSource).GetEnumerator

            Return _refCollection.Select(_converterFrom).GetEnumerator()

        End Function

    End Class

​

    Public Module Module1

        Public Sub Main()

            Dim Root as OptionsSerializable = New OptionsSerializable() With { _

                .ServeurExchangeUrl = "hello" _

                }

            Root.Categories.Add(New CategoryInfo("item 1"))

​

            Dim xml = Root.GetXml()

​

            Console.WriteLine(xml)

            Dim root2 = xml.LoadFromXML(Of OptionsSerializable)()

            Dim xml2 = root2.GetXml()

            Console.WriteLine(xml2)

            Assert.IsTrue(xml = xml2)

            Assert.IsTrue(Root.ListeCategories.Count = Root2.ListeCategories.Count)

        End Sub

    End Module

​

    Public Module XmlSerializationHelper

        <System.Runtime.CompilerServices.Extension> _

        Public Function LoadFromXML(Of T)(xmlString As String) As T

            Using reader As New StringReader(xmlString)

                Return DirectCast(New XmlSerializer(GetType(T)).Deserialize(reader), T)

            End Using

        End Function

​

        <System.Runtime.CompilerServices.Extension> _

        Public Function GetXml(Of T)(obj As T, Optional omitStandardNamespaces As Boolean = False) As String

            Dim ns As XmlSerializerNamespaces = Nothing

            If omitStandardNamespaces Then

                ns = New XmlSerializerNamespaces()

                    ' Disable the xmlns:xsi and xmlns:xsd lines.

                ns.Add("", "")

            End If

            Return obj.GetXml(ns)

        End Function

​

        <System.Runtime.CompilerServices.Extension> _

        Public Function GetXml(Of T)(obj As T, ns as XmlSerializerNamespaces) As String

            Using textWriter = New StringWriter()

                Dim settings = New XmlWriterSettings() With { _

                    .Indent = True _

                }

                ' For cosmetic purposes.

                Using xmlWriter = System.Xml.XmlWriter.Create(textWriter, settings)

                    Dim serializer as New XmlSerializer(obj.GetType()) 

                    serializer.Serialize(xmlWriter, obj, ns)

                End Using

                Return textWriter.ToString()

            End Using

        End Function

​

        <System.Runtime.CompilerServices.Extension> _

        Public Function GetOuterXml(node as XmlNode, Optional indent as Boolean = true) as String

            Using textWriter = New StringWriter()

                ' For cosmetic purposes.

                Dim settings = New XmlWriterSettings() With { _

                    .Indent = indent, _

                    .OmitXmlDeclaration = true _

                }

                Using xmlWriter = System.Xml.XmlWriter.Create(textWriter, settings)

                    node.WriteTo(xmlWriter)

                End Using

                Return textWriter.ToString()

            End Using       

        End Function

    End Module