Estrarre il contenuto di un file XML con XMLDOM

di Daniele Bochicchio, in XML,

Sfruttando l'XMLDOM è possibile attraversare tutta la struttura di un file XML, mostrandone quindi il nome dei nodi (ed i relativi valori) semplicemente sfruttando la ricorsione.
In questo esempio viene effettuato un ciclo su tuti i nodi presenti in un qualsiasi file XML, mostrandone a video tutti i valori.
Molto comodo in quase di debug di un file XML, oppure per mostrarne a video in maniera rapida il contenuto:

<table border="1"><%

 Set objXMLDoc = Server.CreateObject("Microsoft.XMLDOM")
objXMLDoc.load(Server.MapPath("rss.xml"))

Set objChildNodes = objXMLDoc.documentElement.childNodes
Dim livello
livello = -1

' primo nodo
call AttraversaXML(objChildNodes)

set objChildNodes = Nothing

Set objXML = Nothing

Sub AttraversaXML(objChildNodes)

 For Each strNode In objChildNodes
  livello = livello + 1
  if livello = 0 then Response.write("<tr>")
  
   ' nome del nodo
  Response.write("<td><b>" & strNode.nodeName & "</b>")
  ' valore del nodo
  if Len(strNode.nodeValue)>0 then Response.write(": " & strNode.nodeValue)
   Response.write("</td>")
  
  ' se ci sono altri nodi, cicla su tutti
  if strNode.ChildNodes.length>0 then
   call AttraversaXML(strNode.childNodes)
  end if
  Response.write("</tr>" & VbCrLf)
 Next

End Sub
%></table>

Per approfondimenti su XML si veda:
http://xml.aspitalia.com/

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi