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/69502162/preserve-xml-xsd-schemalocation-when-deserializing-then-serializing

​

<XmlRoot("StationSetpoints")>

Public Partial Class XmlStationSetpoints

    <XmlElement("Setpoint")>

    Public Property Setpoints As List(Of XmlStationSetpointsSetpoint)

End Class

Public Partial Class XmlStationSetpoints

    <XmlAttribute("schemaLocation", Namespace:="http://www.w3.org/2001/XMLSchema-instance")>

    Public Property xsiSchemaLocation() As String

        Get

            Return "http://www.w3schools.com StationSetpoints.xsd"

        End Get

        Set

            ' Do nothing, it's hardcoded.  A setter is required because XmlSerializer will only serialize properties with public getters and setters.

        End Set

    End Property

    <XmlIgnore>

    Public Property xsiSchemaLocationSpecified() As Boolean

End Class

​

<Serializable>

Public Class XmlStationSetpointsSetpoint

    <XmlElement("Point")>

    Public Property Points As List(Of XmlStationSetpointsSetpointPoint)

    ' etc...

End Class

​

Public Class XmlStationSetpointsSetpointPoint

    <XmlAttribute>

    Public Property Order As String

    <XmlAttribute>

    Public Property InstrumentName As String

    <XmlAttribute>

    Public Property Value As String

End Class

Public Module Module1

    Public Sub Main()

        Dim xml as String = GetXml()

​

        Console.WriteLine(xml)

        Dim model = xml.LoadFromXml(Of XmlStationSetpoints)()

        Dim newXml = model.GetXml()

        Console.WriteLine(newXml)

        model.xsiSchemaLocationSpecified = False

​

        Dim newXml2 = model.GetXml()

        Console.WriteLine(newXml2)

    End Sub

​

    Function GetXml() As String

        Dim xml as String = <StationSetpoints

    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"

    xmlns:xsd="http://www.w3.org/2001/XMLSchema"

    xsi:schemaLocation="http://www.w3schools.com StationSetpoints.xsd">

  <Setpoint PartNumber="108022">

    <Point InstrumentName="PD Stage" Value="10"/>

  </Setpoint>

  <Setpoint PartNumber="107983">

    <Point Order="2" InstrumentName="PD Stage" Value="7.5"/>

  </Setpoint>

</StationSetpoints>.ToString()

        Return xml

    End Function

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

​