Avatar billede falslev Nybegynder
05. oktober 2011 - 20:39 Der er 4 kommentarer og
1 løsning

Lag i XML

Jeg har et xml skema der ser sådan her ud:

<?xml version="1.0" encoding="utf-8"?>
<AuctionInfos xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.ww.se/sdfs/">
  <auction>
    <Channel>Fixed</Channel>
    <LiveAuctionID>454</LiveAuctionID>
    <Visits>20</Visits>
    </ImgList>
    <PromotionFlags>HomePage Highlight ShowCase</PromotionFlags>
    <StartDate>2011-10-04T10:24:00+02:00</StartDate>
    <EndDate>2011-10-07T10:24:00+02:00</EndDate>
    </auction>
  <Closed>false</Closed>
  <Bids />
</AuctionInfos>

Har en kode der ser sådan her ud:

    strURL    = "https://sfsdf.seses.se"

    Set objXMLhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
    objXMLhttp.Open "GET", strURL
    objXMLhttp.Send
    strReturn    = objXMLhttp.responseText
    Set objXMLhttp    = Nothing
    Set objXMLdoc    = Server.CreateObject( "MSXML2.DOMDocument.4.0" )
    objXMLdoc.async    = false
    objXMLdoc.loadXML(strReturn)

    if objXMLdoc.hasChildNodes then
        set rootElement = objXMLdoc.documentElement
        for each childNode in rootElement.childNodes
            if ( childNode.baseName = "auction" ) then
                auction = childNode.text
            end if
        next
    else
        Response.Write "error"
    end if



Hvordan kommer jeg ned og for fat i det data der ligger under auction. Er f.eks. kun interesseret i værdien StartDate ?
Avatar billede arne_v Ekspert
05. oktober 2011 - 21:04 #1
Proev og kig lidt paa XPath !
Avatar billede arne_v Ekspert
05. oktober 2011 - 21:05 #2
EKsempel:

Set xmldoc = CreateObject("Msxml.DOMDocument")
xmldoc.Async = false
xmldoc.LoadXML("<ArticleTypes><ArticleType ID=""1""><ID>1</ID><Name>Navn1</Name></ArticleType><ArticleType ID=""2""><ID>2</ID><Name>Navn2</Name></ArticleType><ArticleType ID=""3""><ID>3</ID><Name>Navn3</Name></ArticleType></ArticleTypes>")
Set articles = xmldoc.SelectNodes("//ArticleTypes/ArticleType")
For Each entry In articles
    id = Trim(entry.SelectSingleNode("ID").Text)
    name = Trim(entry.SelectSingleNode("Name").Text)
    Response.write "#" & id & name & "<br>"
Next
Set Articles = Nothing
Set xmlDoc = Nothing
Avatar billede falslev Nybegynder
05. oktober 2011 - 22:49 #3
Du har ikke et eks. hvor man bruger en url?
Avatar billede falslev Nybegynder
05. oktober 2011 - 23:16 #4
Fandt ud af det. Point til dig Arne (igen igen igen)
Avatar billede arne_v Ekspert
05. oktober 2011 - 23:37 #5
saa smider jeg et svar
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester