Editando archivo XML desde VB6

[oso_cat]

Buenas,

Tengo una aplicación que pasa las lineas de un grid a un archivo xml.
El problema es que en el archivo XML quedan los elementos uno al lado del otro y cuando lo abro en modo texto, no se ve nada claro.

Hay alguna manera para que insterte un salto de linea después de cada elemento insertado?

Por si no me he explicado bien, el archivo queda así:

<FILTER configuration="AAANOM">ekn</FILTER><FILTER configuration="BBBEKN">ekn</FILTER><FILTER configuration="CCCEKN">ekn</FILTER><FILTER configuration="DDDEKN">ekn</FILTER>

Y me gustaría que quedase así:

<FILTER configuration="AAANOM">ekn</FILTER>
<FILTER configuration="BBBEKN">ekn</FILTER>
<FILTER configuration="CCCEKN">ekn</FILTER>
<FILTER configuration="DDDEKN">ekn</FILTER>

Gracias!

[pkj]

Solo tienes que añadir al final de cada linea la constante vbCrLf

Linea1 = Linea1 & vbCrLf

Saludos

[oso_cat]

Mmmmm... no me sirve.

Doy más datos:

Agrego elementos a un nodo de esta manera:

Set xmlsrv = xmlspc.appendChild(documento.createElement("FILTER "))
xmlsrv.setAttribute "configuration", grdspc.TextMatrix(row, 1)
xmlsrv.setAttribute "user", grdspc.TextMatrix(row, 2)
xmlsrv.setAttribute "mode", grdspc.TextMatrix(row, 3)
xmlsrv.setAttribute "address", grdspc.TextMatrix(row, 4)
xmlsrv.Text = grdspc.TextMatrix(row, 5)

Después de agregar el elemento, es cuando me gustaría dar el salto de línea.

[oso_cat]

He probado con el &vbcrclf detrás del appendchild pero no me funciona...

Alguna idea más?

[oso_cat]

Me respondo:

He encontrado una solución válida a mi problema, la posteo por si a alguien le sirve de ayuda.

Para que el XML quede estructurado cuando lo construimos desde vb, la única solución que he encontrado ha sido la de insertar un nodo vacío y como texto de ese nodo un vbcrlf (para insertar linea) y algún vbtab (para que quede tabulado)

El código quedaría más o menos así:

Set xmlenter = xml.appendChild(documento.createTextNode(" "))
xmlenter.Text = vbCrLf + vbTab + vbTab