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

321 - cargar archivo xml en un control Treeview

<Volver> - Anterior - Siguiente

Ejemplo enviado por Sergio Erbetta para cargar un archivo xml en un control treeview usando la referencia a Microsoft xml

Vista del formulario de ejemplo

vista del formulario con el Treeview visualizando los datos del xml

Para el formulario de ejemplo , agregar la referencia Microsoft Xml

vista de la ventana de referencias de visual basic para incluir la dll Microsoft xml version 2

Controles

Agregar también un CommonDialog
un control Treeview
un botón.

Al presionar el CommandButton, le envía como parámetro a la sub Cargar xml, el path del fichero y el control TreeView. El xml lo carga con el método Load del objeto DOMDocument

Código fuente en el formulario

Option Explicit ' Botón para selecionar el archivo xml '------------------------------------------------------ Private Sub Command1_Click() With CommonDialog1 .DialogTitle = " Seleccionar un archivo xml " .ShowOpen If Not .FileName = "" Then ' Le anvia el la ruta del archivo xml y el control TreeView '--------------------------------------------------------------- Call CargarTreeview(.FileName, TreeView, True) Me.Caption = " Viendo datos de: " & .FileName End If End With End Sub ' REcibe com parámetro el pathdel archivo xml y el control TreeView '************************************************************************ Public Sub CargarTreeview(ArchivoXml As String, _ TreeView As TreeView, _ MostrarAtributo As Boolean) Dim IXMLDOMNode As IXMLDOMNode Dim Node As Node Dim StrTitulo As String Dim DOMDocument As DOMDocument Set DOMDocument = New DOMDocument ' Carga el archivo xml DOMDocument.Load ArchivoXml StrTitulo = Right(ArchivoXml, Len(ArchivoXml) - InStrRev(ArchivoXml, "\")) ' Elimina los datos del treeView TreeView.Nodes.Clear ' Nodo Raíz Set Node = TreeView.Nodes.Add(, , , StrTitulo) 'Expande el nodo principal Node.Expanded = True ' REcorre los nodos del Xml For Each IXMLDOMNode In DOMDocument.childNodes ' Los agrega al TReeView Call Agregar(IXMLDOMNode, Node, TreeView, MostrarAtributo) Next ' Elimina las referencias If Not IXMLDOMNode Is Nothing Then Set IXMLDOMNode = Nothing End If If Not Node Is Nothing Then Set Node = Nothing End If If Not DOMDocument Is Nothing Then Set DOMDocument = Nothing End If End Sub Private Sub Agregar(oNode As MSXML.IXMLDOMNode, _ oPNode As Node, _ TreeView As TreeView, _ MostrarAtributo As Boolean) Dim IXMLDOMNode As IXMLDOMNode, Atributo As IXMLDOMAttribute, _ Node As Node, Nodo As Node Select Case oNode.nodeType ' texto del nodo Case NODE_ELEMENT Set Node = TreeView.Nodes.Add(oPNode, tvwChild, , oNode.baseName) Node.ForeColor = vbBlue: Node.Expanded = True ' Comentario Case NODE_COMMENT Set Node = TreeView.Nodes.Add(oPNode, tvwChild, , "* " & oNode.Text & " *") Node.ForeColor = vbGreen: Node.Expanded = True ' Texto del elemento Case NODE_TEXT Set Node = TreeView.Nodes.Add(oPNode, tvwChild, , _ oNode.Text) Node.ForeColor = vbBlack: Node.Expanded = True Case Else If Not oPNode Is Nothing Then Set Node = oPNode End If End Select If Not oNode.Attributes Is Nothing Then For Each Atributo In oNode.Attributes Select Case Atributo.nodeType Case NODE_ATTRIBUTE If MostrarAtributo Then Set Nodo = TreeView.Nodes.Add(Node, tvwChild, , _ "[" & Atributo.baseName & "=" & Atributo.Value & "]") Nodo.ForeColor = &H808080 Else Node.Text = Node.Text & _ " [" & Atributo.baseName & "=" & Atributo.Value & "]" End If Case NODE_PROCESSING_INSTRUCTION Set Nodo = TreeView.Nodes.Add(Node, tvwChild, , _ "{{" & Atributo.baseName & "=" & Atributo.Value & "}}") Nodo.ForeColor = &H80FF End Select Next End If If oNode.childNodes.length > 0 Then For Each IXMLDOMNode In oNode.childNodes Call Agregar(IXMLDOMNode, Node, TreeView, MostrarAtributo) Next End If End Sub Private Sub Form_Load() Command1.Caption = " Seleccionar Xml " End Sub Private Sub Form_Resize() On Error Resume Next TreeView.Move 0, 0, Me.ScaleWidth, (Me.ScaleHeight - (Command1.Height + 100)) Command1.Move 50, Me.ScaleHeight - (Command1.Height + 50) End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb