#518 - Estrarre il contenuto di un file XML con XMLDOM

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/


Approfondimenti

Commenti

Esprimi il tuo giudizio su questo script:

Per procedere devi essere autenticato.

crisafi scrive:
#518 - Estrarre il contenuto di un file XML con XMLDOM

In questo momento lo script mi sarebbe molto utile. Ma quando lo vado a provare mi dà questo erroreErrore di run-time di Microsoft VBScript (...
lunedì 14 febbraio 2005 | 2 risposte

Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.




IN EVIDENZA
MISC