Devo leggere un file XML.
Fino a che sono al primo livello della struttura, nessun problema.
I problemi sorgono quando si scende di levello.
Non riesco a leggere i dati.
File XML da leggere :
<?xml version='1.0' encoding='UTF-8'?>
<root>
<kyero>
<feed_version>2_1</feed_version>
</kyero>
<property>
<id><![CDATA[134]]></id>
<ref><![CDATA[134]]></ref>
<type>
<en><![CDATA[Comercial]]></en>
</type>
<date><![CDATA[2013/04/18 10:28:27]]></date>
<update_date><![CDATA[2013/04/18 10:28:27]]></update_date>
<price_freq><![CDATA[Venda]]></price_freq>
<price><![CDATA[650000]]></price>
<country><![CDATA[ Brasil ]]></country>
<province><![CDATA[ São Paulo ]]></province>
<town><![CDATA[ São Roque ]]></town>
<location_detail><![CDATA[ Fortaleza ]]></location_detail>
<totalrooms><![CDATA[0]]></totalrooms>
<baths><![CDATA[1]]></baths>
<surface_area>
<built><![CDATA[0]]></built>
<plot><![CDATA[1100]]></plot>
</surface_area>
<desc>
<en><![CDATA[ DESCIZIONE .]]></en>
</desc>
<images>
<image id='1189'>
<url><![CDATA[http://www.7imoveis.net/estrutura/im...ca9c010a07.jpg]]></url>
<title>
<en><![CDATA[]]></en>
</title>
</image>
<image id='1190'>
<url><![CDATA[http://www.7imoveis.net/estrutura/im...ae70beb0c3.jpg]]></url>
<title>
<en><![CDATA[]]></en>
</title>
</image>
<image id='1191'>
<url><![CDATA[http://www.7imoveis.net/estrutura/im...6bb4b15014.jpg]]></url>
<title>
<en><![CDATA[]]></en>
</title>
</image>
</property>
----------------------------------------------------------------------------
dovrebbe essere corretto... ho tagliato alcune parti...
quello che non riesco a leggere sono i campi image id, url, title
Il codice che ho usato e' il seguente:
----------------------------------------------------------------------------
<html>
<head>
<title>test 7 imoveis </title>
</head>
<body>
<%
Dim objXmlDom
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.async = False
objXmlDom.load Server.MapPath("7IMOVEIS_feed.xml")
Dim desc, id,ref,tipo, dt_1,dt_2, tipo_v , country , province,town
DIM citta,prezzo, t_rooms,baths,built,plot,surface_area
DIM img_id , img_url, img_title , images
Set id = objXmlDom.getElementsByTagName("property/id")
Set desc = objXmlDom.getElementsByTagName("property/desc")
Set ref = objXmlDom.getElementsByTagName("property/ref")
Set tipo = objXmlDom.getElementsByTagName("property/type")
Set dt_1 = objXmlDom.getElementsByTagName("property/date")
Set dt_2 = objXmlDom.getElementsByTagName("property/update_date")
Set tipo_v = objXmlDom.getElementsByTagName("property/price_freq")
Set country = objXmlDom.getElementsByTagName("property/country")
Set province = objXmlDom.getElementsByTagName("property/province")
Set town = objXmlDom.getElementsByTagName("property/town")
Set citta = objXmlDom.getElementsByTagName("property/location_detail")
Set prezzo = objXmlDom.getElementsByTagName("property/price")
Set t_rooms = objXmlDom.getElementsByTagName("property/totalrooms")
Set baths = objXmlDom.getElementsByTagName("property/baths")
Set built = objXmlDom.getElementsByTagName("property/surface_area/built")
Set plot = objXmlDom.getElementsByTagName("property/surface_area/plot")
Set surface_area = objXmlDom.getElementsByTagName("property/surface_area")
'Set img_id = objXmlDom.getElementsByTagName("property/images/image id")
'Set img_url = objXmlDom.getElementsByTagName("property/images/url")
Set img_title = objXmlDom.getElementsByTagName("property/images/title")
Set images = objXmlDom.getElementsByTagName("property/images")
Dim i
i = 0
For i = 0 To desc.length - 1
Response.Write " ID = " & id(i).Text & "
"
Response.Write " Ref = " & ref(i).Text & "
"
Response.Write " Desc= " & desc(i).Text & "
"
Response.Write " type= " & tipo(i).Text & "
"
Response.Write " Data= " & dt_1(i).Text & "
"
Response.Write " data agg.= " & dt_2(i).Text & "
"
Response.Write " Tipo contr.= " & tipo_v(i).Text & "
"
Response.Write " Nazione .= " & country(i).Text & "
"
Response.Write " Stato = " & province(i).Text & "
"
Response.Write " Provincia = " & town(i).Text & "
"
Response.Write " Città = " & citta(i).Text & "
"
Response.Write " prezzo = " & prezzo(i).Text & "
"
Response.Write " Stanze = " & t_rooms(i).Text & "
"
Response.Write " Bagni = " & baths(i).Text & "
"
Response.Write " built = " & built(i).Text & "
"
Response.Write " plot = " & plot(i).Text & "
"
Response.Write " Superfice = " & surface_area(i).Text & "
"
' Response.Write " ID immagine = " & img_id(i).Text & "
"
' Response.Write " url immagine = " & img_url(i).Text & "
"
' Response.Write " titolo immagine = " & img_title(i).Text & "
"
Response.Write " immagine = " & images(i).Text & "
"
response.write "<hr>"
Next
Set desc = Nothing
Set id = Nothing
Set objXmlDom = Nothing
%>
</body>
</html>
---------------------
Grazie in anticipo
Rispondi quotando
