XML selectNodes à l'aide de l'ASP Classique

XML problème qui m'a déconcerté, mais il est probablement très simple...

Le XML est comme:

    <header>
<createdOn>16 Sep 2009</createdOn>
<createdBy>Jez</createdBy>
</header>
<agents>
<agent>
<agentDetails>
<agentName>text</agentName>
<agentTelephone>text</agentTelephone>
</agentDetails>
<properties>
<property>
<propertyid>number</propertyid>
<address>
<number>1</number>
<street>High St</street>
<postcode></postcode>
<country>UK</country>
</address>
<price>
<category>text</category>
<price>number</price>
<reference>text</reference>
</price>
<description>
<propertyType>House</propertyType>
<bedrooms>2</bedrooms>
<bathrooms>1</bathrooms>
<sleeps>
<briefDescription>text</briefDescription>
<addDescription>long-text</addDescription>
<floorSize>
<size>80</size>
<type>sq. mt</type>
</floorSize>
<bullets>
<bullet>No Of Bedrooms : 2</bullet>
<bullet>Condition : Habitable</bullet>
<bullet>Land Size (M2): 2,000</bullet>
</bullets>
</description>
<images>
<image>
<thumbnail>URL</thumbnail>
<image>URL</image>
<alttext></alttext>
</image>
<image>
<thumbnail>URL</thumbnail>
<image>URL</image>
<alttext></alttext>
</image>
</images>
<links>
<link>
<type>text</type>
<url>url</url>
</link>
<link>
<type>text</type>
<url>url</url>
</link>
</links>
</property>
</properties>
</agent>
</agents>

Et le code je voudrais utiliser est:

    Set NodeList = objXML.documentElement.selectNodes("agents/agent/properties/property")
For Each Node In NodeList
'I want to be able to extract distinct fields here...
response.write Node.selectSingleNode("address/street") & "<br/>"
response.write Node.selectSingleNode("description/briefDescription") & "<br/>"
Next

Mais, je ne sais pas comment.

Aussi, cela pourrait être un problème avec, par exemple, la <images> et <links> balises.

Suggestions s'il vous plaît?

  • Vous pourriez envisager d'utiliser XSLT pour ce genre de tâche. La prise de XML et de recracher le HTML est ce qui est bon. Prend un peu de l'obtention de votre tête ronde, mais le code est beaucoup plus propre et plus rapide que son équivalent en code VBScript.
  • Je suis d'accord Anthony - j'ai utilisé XSLT avec succès dans le passé, mais dans ce cas, je n'essaie pas d'affichage de l'information, je veux le schéma XML. Je suis en train de créer une fonction pour mapper un fichier XML dans SQL champs.
InformationsquelleAutor JezB | 2009-09-16
  1. 2

    Tout d'abord, l'exemple de XML que vous avez posté n'est pas valide. Il manque un élément racine (ou a plusieurs éléments racine, selon votre point de vue). Aussi, le <sleeps> élément n'est jamais fermée. Je pense que ce sont peut-être des fautes de frappe dans votre exemple?

    Je ne suis pas sûr de ce que tu veux dire par "je veux être en mesure d'extraire des domaines distincts, ici." Pouvez-vous donner un exemple de la sortie que vous recherchez?

    Sans plus d'informations, je vous propose d'essayer une variante de ceci:

    Dim NodeList, Node, SubNode
'' # Note: Replace [root] with your actual root level element
Set NodeList = objXML.documentElement.selectNodes("/[root]/agents/agent/properties/property")
For Each Node In NodeList
'' # Do something useful... ?? Distinct fields??
Set Node = Node.selectSingleNode("address/street/text()")
If Not Node Is Nothing Then
Response.Write Server.HTMLEncode(Node.nodeValue) & "<br />"
End If
Next

    Cela vous aide?

    • C'est fantastique de Chris! C'est la façon de référencer les nœuds que j'étais très mal - votre exemple de code a aidé. Merci!!!! (BTW - oui, c'est de la faute de frappe dans l'exemple. Le document n'ont qu'une racine, mais il a été simplifié pour cela.)
    • +1. Pas juste parce qu'elle est correcte, mais parce qu'il utilise le Serveur.HTMLEncode, si j'avais un centime pour chaque fois que j'ai vu que manquant de code.
    InformationsquelleAutor Chris Nielsen
  2. 3

    Le code que j'utilise est:

    Set NodeList = objXML.documentElement.selectNodes("agents/agent/properties/property")
For Each Node In NodeList
Set AddrNode = Node.selectSingleNode("address/street/text()")
if not AddrNode Is Nothing then response.write AddrNode.nodeValue & "<br/>"
set AddrNode = nothing
Set AddrNode = Node.selectSingleNode("address/region/text()")
if not AddrNode Is Nothing then response.write AddrNode.nodeValue & "<br/>"
set AddrNode = nothing
For Each ImgNode In Node.selectNodes("images/image")
Set ThNode = ImgNode.selectSingleNode("thumbnail/text()")
if not ThNode Is Nothing then response.write ThNode.nodeValue & "<br/>"
set ThNode = nothing
Set ThNode = ImgNode.selectSingleNode("image/text()")
if not ThNode Is Nothing then response.write ThNode.nodeValue & "<br/>"
set ThNode = nothing
Set ThNode = ImgNode.selectSingleNode("alttext/text()")
if not ThNode Is Nothing then response.write ThNode.nodeValue & "<br/>"
set ThNode = nothing
next
Next

    J'espère que quelqu'un d'autre trouve sa utile!

    • Je l'ai fait. Merci. Actuellement à l'aide de l'ASP Classique de consommer des données à partir d'Amazon Web Services. Plus précisément, la recherche de produits.
    InformationsquelleAutor JezB