Ciao a tutti.
Premetto che ho cercato sul forum ed in rete, ma non ho trovato nessuna soluzione
Dato questo file xml,
<?xml version="1.0" ?>
- <root>
- <dati>
<nome>Pippo</nome>
</dati>
- <dati>
<nome>Pluto</nome>
</dati>
- <dati>
<nome>Paperino</nome>
</dati>
</root>
ed il seguente codice VB
Option Explicit
Dim obj As DOMDocument
Dim nome As IXMLDOMNodeList
Dim elemento As IXMLDOMElement
Dim nodo As IXMLDOMNode
Private Sub Form_Load()
' CARICO IL FILE XML
Set obj = New DOMDocument
obj.async = False
obj.Load "test.xml"
' RECUPERO IL NODO CHE MI INTERESSA
Set elemento = obj.documentElement
Set nome = elemento.selectNodes("dati/nome")
' ESTRAGGO TUTTI I NODI E LI STAMPO A VIDEO
For Each nodo In nome
lblXml.Caption = lblXml.Caption & nodo.Text & vbCrLf
Next
' UN PO DI PULIZIA...
Set nodo = Nothing
Set nome = Nothing
Set elemento = Nothing
Set obj = Nothing
End Sub
(preso dal seguente : http://www.lukeonweb.net/322.asp)
non funziona... qualcuno mi dà una soluzione?
grazie!!!
Rispondi quotando
