Сериализация XML, без пробелов

Question

У меня есть следующий метод сериализации:

    Private Function SerializeData(ByVal data As cData) As String
        If data IsNot Nothing Then
            Dim xml_stream As New MemoryStream()
            Dim sr As StreamReader
            Dim xs As New XmlSerializer(GetType(cData))
            xml_stream = New MemoryStream()

            Try
                xs.Serialize(xml_stream, data)
                xml_stream.Position = 0

                sr = New StreamReader(xml_stream)
                Return sr.ReadToEnd()
            Finally
                If sr IsNot Nothing Then sr.Close()
                xml_stream.Close()
            End Try

        Else
            Return "No data"
        End If
    End Function

однако возвращает XML вложенные элементы с отступом. Есть ли способ отключить это на сериализаторе или мне нужно просто запустить процедуру поиска и замены, чтобы избавиться от всего этого?

По сути, я хочу увидеть:

<root><child1>data</child1><child2>data</child2></root>

Answer 1

Используйте переопределение Serialize, которое принимает параметр XmlWriter. Создайте XmlWriter с помощью XmlWriter :: Create, передав объект XmlWriterSettings со свойством Indent, установленным в false.