none
Ayuda de como añadir datos a un xml ya creado RRS feed

  • Pregunta

  • hola tengo un achivo xml ya creado con este codigo

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim obj As Object
            Dim Archivo As Object
            Dim x As Integer = 0
            obj = CreateObject("Scripting.FileSystemObject")
            Archivo = obj.CreateTextFile("salvi.xml", True)
            Archivo.Writeline("<?xml version='1.0' encoding='utf-8'?>")
            Archivo.Writeline("<G>")
            For x = 0 To 3
                Archivo.Writeline("<Imagen id='" & CStr(x) & "'>")
                Archivo.Writeline("<subnodo1>hola</subnodo1>")
                Archivo.Writeline("<subnodo1>Rocio</subnodo1>")
                Archivo.Writeline("</Imagen>")
                Archivo.Writeline("")
            Next

            Archivo.Writeline("</G>")
            Archivo.close()


        End Sub

    y este para añadir pero no consigo terminar el codigo

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
            //Cargamos el documento XML.
            Dim documento As XmlDocument
            Dim nodelist As XmlNodeList
            Dim node As XmlNode
            documento = New XmlDocument

            documento.Load("salvi.xml")

             //Creamos el nodo que deseamos insertar.
            node(G / Imagen = this.CrearNodoXml("4"))

     //Obtenemos el nodo raiz del documento.
            node(G = documento.DocumentElement)

             //Insertamos el nodo empleado al final del archivo
            G.InsertAfter(empleado, nodoRaiz.LastChild);   //***

            documento.Save("salvi.xml")
        End Sub

    domingo, 3 de mayo de 2015 20:28

Respuestas

Todas las respuestas