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:
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
0