Les pongo el código y el resultado.
Código vb:
Ver original
Public Sub Generate_XML_Object(ByVal lpFile As String, ByVal lpObjectName As String) Dim XML As New XmlTextWriter(lpFile, Encoding.GetEncoding("UTF-8")) XML.WriteStartDocument() XML.WriteStartElement(lpObjectName) 'Objeto XML.WriteStartElement("Propiedades") 'Propiedades XML.WriteElementString("Titulo", WebPanel.Titulo) XML.WriteElementString("Main", WebPanel.Main) XML.WriteElementString("Start", WebPanel.Generar_Start) XML.WriteElementString("Volver", WebPanel.Generar_Volver) XML.WriteElementString("Mensaje", WebPanel.Generar_Reportar_Mensaje) XML.WriteEndElement() '/Propiedades XML.WriteEndElement() '/Objeto XML.Close() End Sub
Ese es el ejemplo de un solo elemento, tengo muchísimos mas que se generan.
Paso una parte del XML
Código XML:
Ver original
<?xml version="1.0" encoding="utf-8"?><Objeto><Form><Propiedades><Titulo>Titulon</Titulo><Main>True</Main><Start>True</Start><Volver>True</Volver><Mensaje>True</Mensaje></Propiedades><Objetos /></Form></Objeto>
Queda todo en una linea sola, yo prefiero que quede así:
Código XML:
Ver original
<?xml version="1.0" encoding="utf-8"?> <Objeto> <Form> <Propiedades> <Titulo>Titulon</Titulo> <Main>True</Main> <Start>True</Start> <Volver>True</Volver> <Mensaje>True</Mensaje> </Propiedades> <Objetos /> </Form> </Objeto>
Cualquier ayuda se agradece.
<<[[MIKOLBE]]>>