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

​

' 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)

​

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

​

        Public Property ServeurExchangeUrl As String

        Public Property VersionExchange As String

        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 _converterTo and _converterFrom are not really serializable

    Public Class EnumerableBridge(Of TSource, TTarget)

        Implements IEnumerable(Of TSource)

​

        Private _refCollection As IList(Of TTarget)

        Private _converterTo As Func(Of TSource, TTarget)

        Private _converterFrom As Func(Of TTarget, TSource)

​

        Public Sub New()

        End Sub

​

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

            _refCollection = refCollection

            _converterTo = converterTo

            _converterFrom = converterFrom

        End Sub

​

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

            _refCollection.Add(_converterTo(item))

        End Sub

​

    Public Function GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator

        Return GetEnumerator()

    End Function

​

    Public Function IEnumerableOfT_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)

        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