I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Partisan75
Partisan75
il 2 maggio 2013 alle 20:06
82 messaggi dal 04 ottobre 2007
Ciao a tutti, ho letto diversi esempi su come leggere file xml ma nessuno faceva al mio caso e non sono riuscito a farlo funzionare.

Sto cercando di mettere sotto ogni prezzo versione cinese il controvalore in YUAN.
Vorrei leggerlo da uno dei tanti xml che offrono diversi siti tipo questo: http://www.cambiovaluta.eu/Currency_Rate_it.xml

Con il codice subito sotto riesco a leggere qualche campo dell’xml nella mia cartella del server ma se provo a collegarlo al file xml di un altro server con MSXML2.ServerXMLHTTP non va!

<html>
<body>

<%
Dim MyXML
Set MyXML = Server.CreateObject("Microsoft.XMLDOM")
MyXML.Async = False
MyXML.Load Server.MapPath("Currency_Rate_it.xml")

Dim code
Set code = MyXML.getElementsByTagName("data/currency")

Dim i
i = 0
For i = 0 To code.length - 1
Response.Write code(i).getAttribute("code") & "<br>"
Next

Set nome = Nothing
Set telefono = Nothing
Set MyXML = Nothing
%>

</body>
</html>

Vorrei poter prendere dopo la lettura solo il "rate" dello Yuan da poter poi utilizzarlo nel mio sito per il calcolo del controvalore.
Grzie mille in anticipo a chi mi darà una mano ;-)
F
RispondiQuoting
tommaso2904
tommaso2904
il 3 maggio 2013 alle 11:41
102 messaggi dal 26 maggio 2009
Io uso questo!!!

Prova a vedere se ti può andar bene

    <%
    Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
    objXML.async = false
    objXML.setProperty "ServerHTTPRequest" , True
    objXML.validateOnParse =false
    objXML.preserveWhiteSpace = false
    caricoFile = objXML.Load("http://www.tgcom24.mediaset.it/rss/homepage.xml")
    
    If Not caricoFile Then
      Response.write "<p><strong>Errore</strong><br>: " & objXML.parseError.errorCode & "<br>"
      Response.Write "Linea: " & objXML.parseError.line & "/"
      Response.WRite "Colonna: " & objXML.parseError.linepos & "</p>"
    Else
      Set Nodo = objXML.getElementsByTagName("item")
      Dim NItem
      For Each objNodi In Nodo
        If NItem < 3 Then
          For Each objNodo In objNodi.childNodes
            Select Case objNodo.nodeName
              Case "title"
                titolo = objNodo.firstChild.nodevalue
              Case "link"
                link = objNodo.firstChild.nodevalue
              Case "enclosure"
                strEnclosure = "<img style=""float:right;"" src=""" & objNodo.getAttribute("url") & """ border=""0"" width=""100px"" />"
            End Select
          Next
          Response.write (strEnclosure)
          Response.write ("<a href=""" & link & """ target=""_blank"">" & titolo & "</a>")
          Response.Write ("<hr color=""#F68B29"" />")
        End If
        NItem = NItem + 1
      Next
      set Nodo = Nothing
    End if
    %>


Ciao
Tommaso
RispondiQuoting
Partisan75
Partisan75
il 9 maggio 2013 alle 07:38
82 messaggi dal 04 ottobre 2007
Ciao Tommaso grazie per la disponibilità ma troppo macchino per adattarlo alle mie esigenze.
Grazie davvero ;-)
F
RispondiQuoting
Partisan75
Partisan75
il 30 maggio 2013 alle 16:40
82 messaggi dal 04 ottobre 2007
salve, non sono riuscito ancora a risolvere.
Ma pensavo: e se volessi inserire quei dati in un db access?
così sarebbe poi estremamente piu facile prendermi quello che mi interessa e calcolare il prezzo!

Mi aiutate per favore dicendomi come dovrei procedere?

con Set XMLDom = Server.CreateObject( Msxml2.DOMDocument.3.0 )?
Thanks
F
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.