Visual Basic.NET - Crear XML desde VB.net

   
Vista:

Crear XML desde VB.net

Publicado por biki (38 intervenciones) el 22/11/2013 13:04:10
Buenas a todos,

Estoy ejecutando la siguiente funcion cada vez que recibo una trama por el puerto serie pero en el docuemtno XML que me creo solo me queda reflejado el ultimo de los cambios realizado antes de cerrar la aplicación. Por que puede ser?

Os pongo la funcion:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Private Sub actualizarFicheroXML(ByVal nHabitacion)
        Try
            'volvar la informacion de la informacion de la habitacion en el fichero.
            Dim infoHabitacion = Habitaciones.GetHabitaciones.obtInfohabitacionFichero(nHabitacion)
            Dim myXmlDocument As XmlDocument = New XmlDocument()
            'If File.Exists("XMLFile.xml") Then
            myXmlDocument.Load("XMLFile.xml")
            'End If
            Dim nodo = myXmlDocument.CreateElement("infoHabitacion")
 
            Dim nodoNHabitacion = myXmlDocument.CreateElement("nHabitacion")
            nodoNHabitacion.innerText = infoHabitacion(0)
            nodo.AppendChild(nodoNHabitacion)
 
            Dim nodoOcupacion = myXmlDocument.CreateElement("ocupacion")
            nodoOcupacion.innerText = infoHabitacion(1)
            nodo.AppendChild(nodoOcupacion)
 
 
            Dim nodoTemp = myXmlDocument.CreateElement("temp")
            nodoTemp.innerText = infoHabitacion(2)
            nodo.AppendChild(nodoTemp)
 
            Dim nodoNpLanta = myXmlDocument.CreateElement("nPlanta")
            nodoNpLanta.innerText = infoHabitacion(3)
            nodo.AppendChild(nodoNpLanta)
 
            Dim nodoTextoAsociado = myXmlDocument.CreateElement("textoASociado")
            nodoTextoAsociado.innerText = infoHabitacion(4)
            nodo.AppendChild(nodoTextoAsociado)
 
            Dim nodoHoraActualizacion = myXmlDocument.CreateElement("horaActualizacion")
            nodoHoraActualizacion.innerText = infoHabitacion(5)
            nodo.AppendChild(nodoHoraActualizacion)
 
            Dim nodoTiempoEstado = myXmlDocument.CreateElement("tiempoEstado")
            nodoTiempoEstado.innerText = infoHabitacion(6)
            nodo.AppendChild(nodoTiempoEstado)
 
            Dim nodoSensorica = myXmlDocument.CreateElement("sensorica")
            nodoSensorica.innerText = infoHabitacion(7)
            nodo.AppendChild(nodoSensorica)
 
            Dim nodoRepetidor = myXmlDocument.CreateElement("repetidor")
            nodoRepetidor.innerText = infoHabitacion(8)
            nodo.AppendChild(nodoRepetidor)
 
            Dim nodoNombreUsuario = myXmlDocument.CreateElement("nombreUsuario")
            nodoNombreUsuario.innerText = infoHabitacion(9)
            nodo.AppendChild(nodoNombreUsuario)
 
            Dim nodoReles = myXmlDocument.CreateElement("reles")
            nodoReles.innerText = infoHabitacion(10)
            nodo.AppendChild(nodoReles)
 
            Dim nodoDNDMUR = myXmlDocument.CreateElement("DNDMUR")
            nodoDNDMUR.innerText = infoHabitacion(11)
            nodo.AppendChild(nodoDNDMUR)
 
            Dim nodoAveria = myXmlDocument.CreateElement("averia")
            If infoHabitacion(12) <> "" Then
                nodoAveria.innerText = infoHabitacion(12)
            Else
                nodoAveria.innerText = 0
            End If
            nodo.AppendChild(nodoAveria)
 
            Dim xmlRaiz = myXmlDocument.DocumentElement
            Dim xmlHabitaciones = xmlRaiz.SelectSingleNode("/habitaciones")
 
            Dim xmlHabitacion = myXmlDocument.DocumentElement
            xmlHabitacion = xmlRaiz.SelectSingleNode("/habitaciones/infoHabitacion[nHabitacion=nHabitacion]")
            xmlHabitaciones.replaceChild(nodo, xmlHabitacion)
            myXmlDocument.Save(Application.StartupPath & "\XMLFile1.xml")
 
 
        Catch ex As Exception
        End Try
    End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder