Recupero di un valore xml

[tamyka]

<pippo>
<A>
<NUMERO>1</NUMERO>
</A>

<NUMERO>2</NUMERO>

<C>
<NUMERO>3</NUMERO>
</C>
<pippo>

Ho questo file xml e ho bisogno in Vb di recuperare il valore(3 nell'esempio) di "pippo\c\numero"

Mi sapete aiutare?


Tamyka

[Level]

Utilizzando il DOM ?

Ciao.

[Level]

Nel dubbio, se usi il DOM:

Nelle References del progetto setta Microsoft XML, v 3.0


Dim FileDom As msxml2.FreeThreadedDOMDocument
Dim MioValore as string
Dim pippo as string ' pippo è la stringa nella quale ho messo il file XML: come intestazione del file metti la stringa
' <?xml version="1.0" encoding="UTF-16"?> ( Ricorda UTF-16 e non UTF-8 come ti dà di default ad esempio l'XML-Spy)
'Ricordati anche di chiudere il tag finale pippo come non hai fatto nel tuo caso.

Set FileDom = New msxml2.FreeThreadedDOMDocument


If Not FileDom.loadXML(pippo) Then
Debug.Print "Errore Caricamento documento XML"
End If

MioValore=Filedom.getElementsByTagName("C").item(0 ).text 'all'interno di MioValore ho il valore 3

Set FileDom = Nothing

Ciao.