Hack x Crack - Comunidad de Seguridad informática

Programación => Visual Basic => Mensaje iniciado por: @NetFcruz en Agosto 27, 2012, 11:31:16 pm

Título: Duda en xml en VB.NET
Publicado por: @NetFcruz en Agosto 27, 2012, 11:31:16 pm
Hola amigos mi duda  es sobre insertar un nodo creado desde VB.NET y agregarlo a un xml leido o cargado en texbox multilinea, Mediante la funcion de xml leo un archivo.mxl por ejemplo y se carga de forma ordenada, Entonces al final del ultimo nodo <cfdi:Complemento> Datos </cdfio:Complemento> quiero agregar un nuevo nodo que creo al capturar datos delde el form y se guarda en un archivo2.xml en "C:\Test\archivo2.xml" desde vb.net.
Entonces tengo 2 archivos diferentes uno archivo.xml el cual lo cargo a un txt leido y se ve toda su estructura y en otro texbox tengo el otro que se crea archivo2.xml (donde este archivo2.xml solo tiene un nodo), este nodo lo quiero insertar como un nodo mas en el archivo.XML, l final claro.


<Nodo>

<cfdi:Complemento> jdsdjfkdsfjdbfkdbsfkjbsdkjfbdskjfbjskbfjsbfjdbkjfbksdfbkjsdbfkjsbdjfbsdkfbsjfbjdfbdskfbdksjfbdsjb
</cfdi:Complemento>

'Aqui quiero insertar el nuevo nodo que capturo desde un frm (Esto ya esta, solo falta como poner lo que capturo en el xml que lei)

<cfdi:Addenda>
Mi Adenda</cfdi:Addenda> 'Este es el nodo creado y se encuentra dentro dearchivo2.xml

</Nodo>


Saludos y disculpa por la molestia amigos.
Mientras tratare de copiar lo de archivo2.xml que esta en txbox1 a ubicacion especifica de txbox2 del archivo.xml previamente cargado.

[SOLUCIONADO]
Título: Re:Duda en xml en VB.NET
Publicado por: @NetFcruz en Septiembre 20, 2012, 06:49:10 pm
Bien amigos, para quien le sirva les pongo el code aqui la solucion a mi problema.
Leer Xml al cual quiero insertarle un nuevo nodo, el cual genero de mi programa:
Código: [Seleccionar]

'1. Cargo atravez de txtLoad la URL de la Factura Timbrada y sellada por SAT desde un directorio.
            Dim docXmlFile As XmlDocument = New XmlDocument()
            docXmlFile.Load(txtLoad.Text) 'Para sellecionarlo desde archivo
           
'2. Crear en otro XmlDocument el Nodo a Insertar Este lo cargo directamende del directorio, es el nodo Addenda capturado. Pueden poner otro nombre, en este caso porque lo hago para una factura.
            Dim XmlAddenda As New XmlDocument()
            XmlAddenda.Load("C:\XML\Addenda.xml")
           
'3. Import el nodo Addenda dedocXmlA en el documento Original docXmlF.
            Dim Addenda As XmlNode = docXmlFile.ImportNode(XmlAddenda.DocumentElement.LastChild, True)
            docXmlFile.DocumentElement.AppendChild(Addenda)

           
 ' 4. Save the modified fil XML a formato UTF8.
            docXmlFile.PreserveWhitespace = True
            Dim wrtr As XmlTextWriter = New XmlTextWriter(txtGuardarA.Text + txtAddendaXml.Text, System.Text.Encoding.UTF8)
            docXmlFile.WriteTo(wrtr)
            wrtr.Close()
           
'5. Guardo y Senalo la Direccion
            docXmlF.Save(Console.Out)
            Console.WriteLine("C:\XML\CTT + .xml is created")
            Console.ReadLine()
            Console.WriteLine("Mostrando que se ha modificado el XML...")
            MsgBox("Se genero Addenda Completa" & _
                   "    en" & _
                   " C:\XML\CTT + Folio .xml is created XDXDXD...", MsgBoxStyle.OkOnly)

Asi me funciona, espero les sirva.
Nos vemos Familia  :) .
Título: Re:Duda en xml en VB.NET
Publicado por: @NetFcruz en Noviembre 16, 2012, 09:35:47 pm
Perdon comenten si alguien anda atorado como lo andube yo.
Saludos...