Pregunta: | 45560 - LEER FICHERO XML |
Autor: | Francisco Garcia Corchado |
Hola, necesito ayudar. Tengo poco conocimiento en XML y necesitaria ver como puedo leer un fichero xml en Visual Basic 6.0. Tengo agregado el Microsoft XML, versiĆ³n 2.0 El fichero que tengo en xml es el siguiente: <cliente><cliente valor_1= "mi producto" valor_2="1231231-a" </clientes> Necesitaria como poder sacar la informacion de ese xml.. Sacar "Mi producto" y "1231231-a", en este caso... Espero vuestras respuestas.. gracias. Un saludo |
Respuesta: | toni rodado |
Dim oParser As MSXML2.DOMDocument Set oParser = New MSXML2.DOMDocument If oParser.Load("FicheroXml") Then MuestraNodos oParser.childNodes end if Private Sub MuestraNodos(ByVal Nodos As MSXML2.IXMLDOMNodeList) 'LECTURA DEL XML . On Error GoTo LocalError Dim i As Integer Dim j As Integer Dim nCantHabHotel As Integer Dim oNodo As MSXML2.IXMLDOMNode For Each oNodo In Nodos With oNodo.childNodes If oNodo.nodeTypeString = "text" Then valor=oNodo.nodeValue end if End With Next oNodo |