Lettura XML

[Utente]

Ciao ragazzi ho un problema con la lettura di un file XML

<articolo>
   <codice>123</codice>
   <produttore>produttore</produttore>
   <codiceproduttore>codiceproduttore</codiceproduttore>
   <categoria>categoria</categoria>
   <descrizione>articolo</descrizione>
   <arrivo>
    <data>
     <giorno>07</giorno>
     <mese>08</mese>
     <anno>2008</anno>
    </data>
    <quantita>20</quantita>
   </arrivo>
   <prezzo>17,77</prezzo>
</articolo>

il codice che utilizzo è il seguente

Set Nodo = objXML.getElementsByTagName("articolo")

For Each objNodi In Nodo

For Each objNodo In objNodi.childNodes

Select Case objNodo.nodeName

Case "codice"
codice = objNodo.firstChild.nodevalue
Case "produttore"
produttore = objNodo.firstChild.nodevalue
Case "codiceproduttore"
codiceproduttore = objNodo.firstChild.nodevalue
Case "categoria"
categoria = objNodo.firstChild.nodevalue
Case "descrizione"
descrizione = objNodo.firstChild.nodevalue
Case "prezzo"
prezzo = objNodo.firstChild.nodevalue
End Select

se volessi leggere il valore quantità come devo fare?

Se aggiunfo allo script di cui sopra:

Case "quantita"
quantita = objNodo.firstChild.nodevalue

non funziona...

Grazie

[Utente]

Ho risolto in maniera diciamo poco ortodossa...con un replace ho fatto piazza pulita di:

   <arrivo>
    <data>
    </data>
   </arrivo>

Un modo più pulito non c'è?


Grazie