Quebra de linha em documentos XML

[Joacir]

Olá! Como remover quebra de linha em documento XML quando o campo está em branco? Conforme arquivo XML abaixo e o código exemplo abaixo em VB.Net 2013;

 

Obrigado

 

<?xml version='1.0' encoding='UTF-8'?>

<PrimeiroNo xmlns="NamespaceDoPrimeiroNo">

  <SegundoNo>

    <Campo1doSegundoNo>Valor do Campo 1 do SegundoNo</Campo1doSegundoNo>

    <Campo2doSegundoNo>Valor do Campo 2 do SegundoNo</Campo2doSegundoNo>

    <Campo3doSegundoNo>Valor do Campo 3 do SegundoNo</Campo3doSegundoNo>

    <TerceiroNo>

      <Campo1doTerceiroNo>Valor do Campo 1 do TerceiroNo</Campo1doTerceiroNo>

      <Campo2doTerceiroNo>

      </Campo2doTerceiroNo>

      <QuartoNo>

        <Campo1doQuartoNo>

        </Campo1doQuartoNo>

      </QuartoNo>

    </TerceiroNo>

  </SegundoNo>

</PrimeiroNo>

 

 

Public Class Form1

 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim xmlDoc As New Xml.XmlDocument()

        Dim campodoNó As Xml.XmlElement

 

        Dim primeiroNó, segundoNó, terceiroNó, quartoNó As Xml.XmlElement

 

        primeiroNó = xmlDoc.CreateElement("PrimeiroNo")

        primeiroNó.SetAttribute("xmlns", "NamespaceDoPrimeiroNo")

 

        segundoNó = xmlDoc.CreateElement("SegundoNo")

 

        campodoNó = xmlDoc.CreateElement("Campo1doSegundoNo")

        campodoNó.InnerText = "Valor do Campo 1 do SegundoNo"

        segundoNó.AppendChild(campodoNó)

 

        campodoNó = xmlDoc.CreateElement("Campo2doSegundoNo")

        campodoNó.InnerText = "Valor do Campo 2 do SegundoNo"

        segundoNó.AppendChild(campodoNó)

 

        campodoNó = xmlDoc.CreateElement("Campo3doSegundoNo")

        campodoNó.InnerText = "Valor do Campo 3 do SegundoNo"

        segundoNó.AppendChild(campodoNó)

 

        terceiroNó = xmlDoc.CreateElement("TerceiroNo")

 

        campodoNó = xmlDoc.CreateElement("Campo1doTerceiroNo")

        campodoNó.InnerText = "Valor do Campo 1 do TerceiroNo"

        terceiroNó.AppendChild(campodoNó)

 

        campodoNó = xmlDoc.CreateElement("Campo2doTerceiroNo")

        campodoNó.InnerText = ""

        terceiroNó.AppendChild(campodoNó)

 

        quartoNó = xmlDoc.CreateElement("QuartoNo")

 

        campodoNó = xmlDoc.CreateElement("Campo1doQuartoNo")

        campodoNó.InnerText = ""

        quartoNó.AppendChild(campodoNó)

 

        terceiroNó.AppendChild(quartoNó)

        segundoNó.AppendChild(terceiroNó)

        primeiroNó.AppendChild(segundoNó)

 

        xmlDoc.AppendChild(xmlDoc.CreateProcessingInstruction("xml", "version='1.0' encoding='UTF-8'"))

        xmlDoc.AppendChild(primeiroNó)

 

        Dim arq As String = "C:\Teste\4Nos\TesteXMLVBnet.xml"

        xmlDoc.Save(arq)

 

    End Sub

End Class