Leer XML en Visual Basic 6
Publicado por Alvaro (1 intervención) el 27/05/2016 11:24:25
Buenos días, tengo un programa desarrollado en Visual Basic 6, que apenas tocaba y ahora me toca modificarle porque el programa es de gestión y el banco ha cambiado los ficheros de las remesas. Hasta ahora enviaba TXT y ahora mandan XML con otro formato.
Mi duda es que estoy intentando leer estos ficheros con Visual Basic y no lo consigo. Os muestro lo que hago y de que tipo es el XML:
El XML es de este tipo
Mi duda es que estoy intentando leer estos ficheros con Visual Basic y no lo consigo. Os muestro lo que hago y de que tipo es el XML:
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
Private Function GetNodeValue(ByVal start_at_node As IXMLDOMNode, ByVal node_name As String, Optional ByVal default_value As String = "") As String
Dim value_node As IXMLDOMNode
Dim id As String
Set value_node = start_at_node.SelectSingleNode(".//" & node_name)
id = value_node.Attributes.getNamedItem("ID").Text
If value_node Is Nothing Then
GetNodeValue = default_valueElse
GetNodeValue = idEnd If
End Function
Private Sub cargarXML()
Dim xml_document As DOMDocument
Dim values_node As IXMLDOMNode
Dim i As Integer
Dim j As Integer
On Error Resume Next
' Load the document.
Set xml_document = New DOMDocumentxml_document.Load "C:/arch.215.xml"
' If the file doesn't exist, then
' xml_document.documentElement is Nothing.
If xml_document.documentElement Is Nothing Then ' The file doesn't exist. Do nothing.
Exit Sub
End If
' Find the Values section.
Set values_node = xml_document.selectSingleNode("Document")
' Read the saved values.
For i = 0 To xml_document.documentElement.ChildNodes.Length
Set values_node = xml_document.documentElement.ChildNodes(i)
txtarchivo.Text = GetNodeValue(values_node, "Record", "???")
Next i
End Sub
El XML es de este tipo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<?xml version="1.0" encoding="UTF-8"?>
<Document xmlns="urn:iso:std:iso:20022:tech:xsd:pain.002.001.03">
<CstmrPmtStsRpt>
<GrpHdr>
<MsgId>123342342342342342</MsgId>
<CreDtTm>2016-05-24T06:00:01</CreDtTm>
<InitgPty>
<Id>
<OrgId>
<BICOrBEI>xxxxxxxx</BICOrBEI>
</OrgId>
</Id>
</InitgPty>
</GrpHdr>................
Valora esta pregunta
0