Top
Phpuniverset logo
 

INDHOLD

Forside

Script libary

Job annoncer

Tips og Tricks

Konkurrence

Downloads

Dokumenter

PHP bog shop

Forum

Online udviklere


ARTIKLER

CSS

Diverse

E-handel / annoncer

Grafik

Html

Internet

Javascript

Linux

PHP/MySQL

Programmer

Flash

Søgemaskiner

Windows

C / C++


INFO

Information

Annoncering

Kontakt

Forside Forum Xml standard xml parser søges

standard xml parser søges


 

standard xml parser søges

torben  

Jeg har et RSS feed som jeg skal bruge men manlger et script som kan laver det om så jeg
får en liste.



Dato : 12.11.2004, 00:29

Visninger : 5772

Points : 20

 

Jeg har et script i ASP:

<%

' Adressen på det RSS-feed der skal loades
extURL = "http://www.dinside.dk/rss/news.xml"

' RSS-feedet loades
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)

' Check at RSS-feedet er loadet korrekt
If (xmlDoc.parseError.errorCode <> 0) then
    ' Udskriv eventuelle fejl (for nem fejlretning)
    Response.Write "XML error: " & xmlDoc.parseError.reason
' Fortsæt hvis alt er ok
Else

    ' Åbn elementet <channel>
    set channelNodes = xmlDoc.selectNodes("//channel/*")

    for each entry in channelNodes
        ' De tre obligatoriske elementer i channel lægges i variable
        if entry.tagName = "title" then
            strChannelTitle = entry.text
        elseif entry.tagName = "description" then
            strChannelDescription = entry.text
        elseif entry.tagName = "link" then
            strChannelLink = entry.text
        end if
    next

    ' De tre obligatoriske elementer i channel udskrives
    response.write "<h1>" & strChannelTitle & "</h1>"
    response.write "<p>" & strChannelDescription & "</p>"
    response.write "<p><a href='" & strChannelLink & "'>Besøg " & strChannelTitle &
"</a></p>"
    response.write "<hr />"

    ' Åbn elementerne <item>
    set itemNodes = xmlDoc.selectNodes("//item/*")

    For each item in itemNodes
        ' Elementerne i channel lægges i variable med #%# som adskillelse
        if item.tagName = "title" then
            strItemTitle = strItemTitle & item.text & "#%#"
        elseif item.tagName = "link" then
            strItemLink = strItemLink & item.text & "#%#"
        elseif item.tagName = "description" then
            strItemDescription = strItemDescription & item.text & "#%#"
        end if
    next

    ' Elementerne i channel splittes i arrays
    arrItemTitle = split(strItemTitle,"#%#")
    arrItemLink = split(strItemLink,"#%#")
    arrItemDescription = split(strItemDescription,"#%#")

    ' Elementerne i channel udskrives
    response.write "<ul>"
        for a = 0 to UBound(arrItemTitle) - 1
            response.write "<li>"
            response.write "<a href='" & arrItemLink(a) & "'>" & arrItemTitle(a) & "</a>"
                ' Description udskrives hvis den eksisterer
                if strItemDescription <> "" then
                    response.write "<br />" & arrItemDescription(a)
                end if
            response.write "</li>"
        next
    response.write "</ul>"

    ' Vi rydder op
    set channelNodes = nothing
    set itemNodes = nothing

End If

%>


Dato : 24.11.2004, 17:28

Svar af : kim storm martin  

 

Jeg har et script i ASP:

<%

' Adressen på det RSS-feed der skal loades
extURL = "http://www.dinside.dk/rss/news.xml"

' RSS-feedet loades
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)

' Check at RSS-feedet er loadet korrekt
If (xmlDoc.parseError.errorCode <> 0) then
    ' Udskriv eventuelle fejl (for nem fejlretning)
    Response.Write "XML error: " & xmlDoc.parseError.reason
' Fortsæt hvis alt er ok
Else

    ' Åbn elementet <channel>
    set channelNodes = xmlDoc.selectNodes("//channel/*")

    for each entry in channelNodes
        ' De tre obligatoriske elementer i channel lægges i variable
        if entry.tagName = "title" then
            strChannelTitle = entry.text
        elseif entry.tagName = "description" then
            strChannelDescription = entry.text
        elseif entry.tagName = "link" then
            strChannelLink = entry.text
        end if
    next

    ' De tre obligatoriske elementer i channel udskrives
    response.write "<h1>" & strChannelTitle & "</h1>"
    response.write "<p>" & strChannelDescription & "</p>"
    response.write "<p><a href='" & strChannelLink & "'>Besøg " & strChannelTitle &
"</a></p>"
    response.write "<hr />"

    ' Åbn elementerne <item>
    set itemNodes = xmlDoc.selectNodes("//item/*")

    For each item in itemNodes
        ' Elementerne i channel lægges i variable med #%# som adskillelse
        if item.tagName = "title" then
            strItemTitle = strItemTitle & item.text & "#%#"
        elseif item.tagName = "link" then
            strItemLink = strItemLink & item.text & "#%#"
        elseif item.tagName = "description" then
            strItemDescription = strItemDescription & item.text & "#%#"
        end if
    next

    ' Elementerne i channel splittes i arrays
    arrItemTitle = split(strItemTitle,"#%#")
    arrItemLink = split(strItemLink,"#%#")
    arrItemDescription = split(strItemDescription,"#%#")

    ' Elementerne i channel udskrives
    response.write "<ul>"
        for a = 0 to UBound(arrItemTitle) - 1
            response.write "<li>"
            response.write "<a href='" & arrItemLink(a) & "'>" & arrItemTitle(a) & "</a>"
                ' Description udskrives hvis den eksisterer
                if strItemDescription <> "" then
                    response.write "<br />" & arrItemDescription(a)
                end if
            response.write "</li>"
        next
    response.write "</ul>"

    ' Vi rydder op
    set channelNodes = nothing
    set itemNodes = nothing

End If

%>


Dato : 24.11.2004, 17:28

Svar af : kim storm martin  

 

Har du ikke et i PHP?



Dato : 24.11.2004, 18:38

Kommentar af : Thor B.N.  

 

nej devsære!

Dato : 17.12.2004, 18:26

Kommentar af : kim storm martin  




Login for at skrive et indlæg :



   Brugernavn

Password
 

+ Opret en ny Bruger, Klik her

+ Glemt brugernavn/password

 

Send Artikel/anmeldelse til: phpuni@phpuniverset.dk

Tilbage til oversigt

© Copyright 2000 Propelcom Phpuniverset's politik om personlige oplysninger, artikler & Koder Phpuniverset er optimeret til Mozilla 1024 * 768 Phpuniverset version: 3.0 beta
Webhost : Ignesco.dk

Bund