Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

100 - Ejemplo de como leer Xml en Visual Basic

<Volver> - Anterior - Siguiente

Ejemplo subido por Sergio (Baskito) de como poder leer y cargar un archivo Xml en un control RichTextBox.

Para probar esta rutina , se puede descargar este archivo xml de ejemplo

Descargar

Luego sigue estos pasos:

Crear un nuevo proyecto.
Desde el menú Referencias de Visual basic necesitamos incorporar el parser de Xml, yo en este caso lo probé con la versión 2 , es decir Microsoft Xml Versión 2.0
Ventana de Referencias Activex

Colocar un control RichTextbox en el formulario , que será donde se cargará la información del archivo xml
Colocar un CommandButton para que al pulsarlo comience la lectura y el parseo de los datos

Es decir, llama a la rutina pasándole el path

Call Cargar_XML(App.Path & "\Archivo-ejemplo.xml")

En el formulario, el resultado del parseo del xml se verá de la siguiente forma:

vista del richtextbox para parsear el xml

Código fuente en el formulario

Option Explicit Private m_objDOMPeople As DOMDocument Dim temp As String 'Función api para desabilitar el repintado del control Private Declare Function LockWindowUpdate Lib "user32" ( _ ByVal hwndLock As Long) As Long Private Sub Command1_Click() 'Cargamos el Xml en el control RichTextBox Call Cargar_XML(App.Path & "\Archivo-ejemplo.xml") End Sub '*************************************************************************** '* Cargar_XML : Subrutina que carga el XML en el RichTextBox _ (recibe el path del archivo) '*************************************************************************** Private Sub Cargar_XML(Path_XML As String) On Error GoTo Err_Sub Dim objPeopleRoot As IXMLDOMElement Dim objPersonElement As IXMLDOMElement Dim ObjElement As IXMLDOMNode Dim x As IXMLDOMNodeList If Len(Dir(Path_XML)) = 0 Then MsgBox "El archivo " & Path_XML & _ " No está en el directorio ." & vbNewLine & _ " Compruebe la ruta", vbCritical Exit Sub End If 'Seteamos la variable Set m_objDOMPeople = New DOMDocument m_objDOMPeople.resolveExternals = True 'Para que valide el documento xml m_objDOMPeople.validateOnParse = True 'Carga el documento m_objDOMPeople.async = False Call m_objDOMPeople.Load(Path_XML) 'Comprobamos si se carga If m_objDOMPeople.parseError.reason <> "" Then ' si hay un error muestra el fallo MsgBox m_objDOMPeople.parseError.reason Exit Sub End If Set objPeopleRoot = m_objDOMPeople.documentElement 'nos devuelve el nombre del nodo Debug.Print objPeopleRoot.nodeName 'con esto vemos el tipo de nodo Debug.Print objPeopleRoot.nodeType 'nos devuelve el valor del nodo si es aplicable Debug.Print objPeopleRoot.nodeValue 'Propiedad booleana que nos indica si un nodo tiene "hijos" Debug.Print objPeopleRoot.hasChildNodes Dim index As Integer Dim lista As IXMLDOMNodeList RichTextBox1.Text = "" 'LockWindowUpdate Me.hWnd Me.Enabled = False 'Le pasamos el Nodo a MuestraNodos MuestraNodos m_objDOMPeople.childNodes 'LockWindowUpdate 0& Me.Enabled = True Exit Sub Err_Sub: MsgBox Err.Description 'LockWindowUpdate 0& End Sub 'Rutina que carga los nodos Public Sub MuestraNodos(ByRef Nodos As MSXML.IXMLDOMNodeList) On Error GoTo Err_Sub Dim TitulilloA As String Dim TitulilloB As String Dim oNodo As MSXML.IXMLDOMNode For Each oNodo In Nodos If oNodo.nodeType = 1 Then TitulilloA = UCase(oNodo.parentNode.nodeName) If TitulilloA <> TitulilloB Then TitulilloB = TitulilloA temp = temp & vbCrLf & _ UCase(oNodo.parentNode.nodeName) & vbCrLf & vbCrLf End If End If If oNodo.nodeType = 4 Or oNodo.nodeType = 3 Then temp = temp & oNodo.parentNode.nodeName & _ "=" & oNodo.nodeValue & vbCrLf End If 'Si ese nodo tiene hijos (campos) se lo autopasa a la funcion If oNodo.hasChildNodes Then MuestraNodos oNodo.childNodes End If 'DoEvents Next oNodo RichTextBox1.Text = temp Exit Sub Err_Sub: MsgBox Err.Description, vbCritical 'LockWindowUpdate 0& End Sub Private Sub Form_Load() Command1.Caption = "Parsear Xml" RichTextBox1.Text = " en el App.Path, debe esta el archivo-ejemplo" End Sub Private Sub Form_Resize() On Local Error Resume Next Command1.Top = ScaleHeight - (Command1.Height + 50) Command1.Left = ScaleWidth - (Command1.Width + 50) RichTextBox1.Move 0, 0, ScaleWidth, ScaleHeight - (Command1.Height + 50) End Sub

Ejemplo de la ayuda de visual basic

Simple código fuente de la KB de Microsoft que utiliza la referencia a Microsoft Xml version para poder leer un fichero .xml y cargarlo en el treeview

Formulario de prueba

( El zip contiene un xml de ejemplo llamado archivo.xml )

Descargar proyecto

Recursos vb 6.0 - - Enlaces relacionados

Buscar en Recursos vb