Imports System

Imports System.Xml

Imports System.Xml.Serialization

Imports System.Linq

Imports System.Xml.Linq

​

​

    Public Module XObjectExtensions

        <System.Runtime.CompilerServices.Extension> 

        Public Function SerializeToXDocument(Of T)(obj As T, serializer As XmlSerializer, ns As XmlSerializerNamespaces) As XDocument

            Dim doc = New XDocument()

            Using writer = doc.CreateWriter()

                serializer = If(serializer, New XmlSerializer(obj.GetType()))

                serializer.Serialize(writer, obj, ns)

            End Using

            If doc.Root IsNot Nothing AndAlso ns IsNot Nothing Then

                ' Add missing namespaces

                For Each name In ns.ToArray().Except(doc.Root.Attributes().Where(Function(a) a.IsNamespaceDeclaration).Select((Function(a) New XmlQualifiedName(a.Name.LocalName, a.Value))))

                    doc.Root.Add(New XAttribute("xmlns" + (If(String.IsNullOrEmpty(name.Name), String.Empty, ":" + name.Name)), name.Namespace))

                Next

            End If

            Return doc

        End Function

    End Module

    Public Class TestClass

        Public Property Foo() As String

            Get

                Return m_Foo

            End Get

            Set

                m_Foo = Value

            End Set

        End Property

        Private m_Foo As String

        Public Shared Sub Test()

            Dim oXML = New TestClass()

            oXML.Foo = "foo bar"

            Dim x As New Xml.Serialization.XmlSerializer(oXML.GetType, "urn:oecd:blah:blah")

            Dim xmlns = New XmlSerializerNamespaces()

            xmlns.Add(String.Empty, "urn:oecd:blah:blah")

            xmlns.Add("xsi", "http://www.w3.org/2001/XMLSchema-instance")

            xmlns.Add("sfa", "urn:oecd:blah:blah1")

            xmlns.Add("iso", "urn:oecd:blah:blah2")

            xmlns.Add("ftc", "urn:oecd:blah:blah")      

            Dim xml1 as String

            Using sw = New IO.StringWriter()

                x.Serialize(sw, oXML, xmlns)

                xml1 = sw.ToString()

            End Using

            Console.WriteLine("Default Serialization: ")

            Console.WriteLine(xml1)

            Dim xDoc = oXML.SerializeToXDocument(x, xmlns)

            Dim xml2 as String

            Using sw = New IO.StringWriter()

                xDoc.Save(sw)

                xml2 = sw.ToString()

            End Using

            Console.WriteLine("")

            Console.WriteLine("Fixed serialization: ")

            Console.WriteLine(xml2)

        End Sub

    End Class       

    Public Module Module1

        Public Sub Main()

            TestClass.Test()

        End Sub

    End Module