Quebra de linha em documentos XML

[Joacir 0]

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; Até encontrei uma forma de salvar, mas, perde a formatação e não posso.

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

 

[KhaosDoctor 242]

Usando um objeto para salvar ele não vai manter a formatação mesmo, você teria que escrever as linhas manualmente, mas existem algumas opções.

 

Veja esses links:

http://stackoverflow.com/questions/4724940/is-there-any-way-to-save-an-xmldocument-without-indentation-and-line-returns

http://blogs.msdn.com/b/erikaehrli/archive/2005/11/16/indentxmlfilesanddocuments.aspx

http://stackoverflow.com/questions/203528/what-is-the-simplest-way-to-get-indented-xml-with-line-breaks-from-xmldocument

http://stackoverflow.com/questions/589943/make-xml-more-readable