question 31158470 | C# Online Compiler

question 31158470 by dbc_MinLength

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

​x
 
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

Last Run:	12:38:19 am
Compile:	0.106s
Execute:	0.29s
Memory:	11.05Mb
CPU:	0.396s

View IL Code