05/11/2008, 09:55
|
| | | Fecha de Ingreso: noviembre-2008
Mensajes: 2
Antigüedad: 15 años, 6 meses Puntos: 0 | |
| Respuesta: Xml Y Visual Basic 6.0
Y aqui les dejo otro Codigo para acceder directamente a un nodo sin necesidad de recorrerlos todos
--------------------------------------------------------------
________________________Codigo Fuente
--------------------------------------------------------------
Private Function getSemana() As String
Dim oParser As MSXML.DOMDocument
Set oParser = New MSXML.DOMDocument
If oParser.Load("D:\recursos.xml") Then
Dim Nodos As MSXML.IXMLDOMNodeList
Dim oNodo As MSXML.IXMLDOMNode
Set Nodos = oParser.childNodes
Set oNodo = Nodos.Item(0).selectSingleNode("/Raiz/Semanas/Objeto[@semana='Proxima']")
'MsgBox ("Valor" + oNodo.attributes["Valor1"])
getSemana = oNodo.Attributes.Item(1).nodeValue
End If
End Function
--------------------------------------------------------------------------
___________________Esta es la estructura del XML
--------------------------------------------------------------------------
<?xml version="1.0" encoding="utf-8"?>
<Raiz>
<Semanas>
<Objeto semana="Proxima" Valor="4"/>
</Semanas>
</Raiz>
El resultado de esta funcion es '10' |