lectura de xml y guardarlo en variables
Publicado por lectura de xml y guardarlo en variables (1 intervención) el 04/01/2019 19:14:43
estructuare mi pregunta
talves no me di a entender
necesito leer el xl y al pasar por los nodos guadarlos en variables
mi panorama actual es lo caro el xml lo recorro por un for each pero la lista ue contiene los elementos la trae vacias me ayudarian a detectar que es lo que falta para que la lista ya no este vacia?
talves no me di a entender
necesito leer el xl y al pasar por los nodos guadarlos en variables
mi panorama actual es lo caro el xml lo recorro por un for each pero la lista ue contiene los elementos la trae vacias me ayudarian a detectar que es lo que falta para que la lista ya no este vacia?
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
Dim record As XmlNodeList
Dim Respuesta As New Respuesta()
Dim doc As XmlDocument = New XmlDocument()
doc.LoadXml(sRespCons)
record = doc.SelectNodes("RESPUESTA/Adicionales")
Respuesta.ListaRecord = New List(Of Response)
Dim clsrecord As Response
If Respuesta.confirmacion = "<Confirmacion>00</Confirmacion> " Then
Respuesta.descripcion = "<Descripcion>TRANSACCION EXITOSA</Descripcion>"
For Each nd As Xml.XmlNode In recordclsrecord = New Response()
clsrecord.nombre = nd.Item("Nombre").InnerText
clsrecord.direccion = nd.Item("Direccion").InnerText
clsrecord.factura = nd.Item("Factura").InnerText
Respuesta.ListaRecord.Add(clsrecord)
Next
Else
Respuesta.confirmacion = "<Confirmacion>01</Confirmacion>"
Respuesta.descripcion = "<Descripcion>Referencia no valida</Descripcion>"
End If
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
Valora esta pregunta
0