Jarnheimer köper i Spanien

--- title: "Hämta nyhter med RSS." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/131419-hämta-nyhter-med-rss" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "asp" published: "2005-07-14T16:56:33.000Z" updated: "2005-07-14T19:27:58.000Z" replies: 4 views: 807 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/131419-hämta-nyhter-med-rss" --- # Hämta nyhter med RSS. ## #1 — asp, 2005-07-14T16:56Z Hej. Jag skulle vilja hämta nyheterna från denna sida: Endast rubrikerna skall synas, de skall separeras med ett **\|**. De skall givetvis vara länkar. Exempel: ``` - Jarnheimer köper i Spanien [url]http://di.se/Avdelningar/Artikel.aspx?O=RSS&ArticleId=2005%5c07%5c14%5c150255[/url] Tele2 fortsätter att köpa bolag på kontinenten. Stenbecksbolaget betalar 2,4 miljarder kronor för den spanska operatören Comunitel. Bolaget har fokus på företagsmarknaden, men Tele2:s VD Lars-Johan Jarnheimer vill med köpet bli de spanska konsumenternas förstahandsval för bredband. ``` Borde alltså bli: ``` Jarnheimer köper i Spanien | ``` Hoppas det finns någon vänlig själ därute! ;-) Permalänk: https://www.webforum.nu/p/131419 ## #2 — lilja, 2005-07-14T18:49Z Hade redan en väldigt lik funktion :) En hel del kod kommer från en annan dansk sida som jag visst inte sparat adressen till. Aja, här kommer hela sidan: ``` <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' O==========================================================O ' Skapar en rss-läsare för att hämta RSS-nyheter ' O==========================================================O '----- Adressen på det RSS-dokumentet som ska laddas extURL = "http://ditrader.di.se/News/rss.aspx" '----- RSS-dokumentet laddas Set xmlDoc = CreateObject("Msxml.DOMDocument") xmlDoc.async = false xmlDoc.setProperty "ServerHTTPRequest", true xmlDoc.load(extURL) '----- Kollar att RSS-dokumentet laddas korrekt If (xmlDoc.parseError.errorCode <> 0) Then '----- Skriver ut eventuella fel Response.Write "XML error: " & xmlDoc.parseError.reason Else '----- Fortsätt då allt är okej '----- Öppnar elementet Set channelNodes = xmlDoc.selectNodes("//channel/*") '----- Hämtar information om kanalen For Each entry In channelNodes '----- De tre obligatoriska elementen i channel läggs i variablar 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 '----- Öppnar elementet 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 '----- Elementen i channel splittras i arrayer strItemTitle = Split(strItemTitle,"#%#") strItemLink = Split(strItemLink,"#%#") strItemDescription = Split(strItemDescription,"#%#") intNews = UBound(strItemTitle) End If '----- Vi avslutar arbetet med RSS läsaren Set channelNodes = Nothing Set itemNodes = Nothing %> RSS-Läsare

Antal nyheter: <%=intNews%>

<% For i = 1 To intNews Response.Write("" & "" & strItemTitle(i) & " | " & vbCrLf) Next %>

``` Permalänk: https://www.webforum.nu/p/1645982 ## #3 — Jesper T, 2005-07-14T18:50Z Visst eller en klass ``` Class rss_feed Private url Public Property Let rss_url(letUrl) url = letUrl End Property public sub showfeed Dim xml, chNodes, strChTitle, strChLink, strChDesc, itNodes, item, strItemTitle, strItemLink, strItemDesc, arrItemTitle, arrItemLink, arrItemDesc, a set xml = createObject("Msxml.DOMDocument") xml.async = false xml.setProperty "ServerHTTPRequest", true xml.load(url) If (xml.parseError.errorCode <> 0) then Response.Write "XML error: " & xml.parseError.reason Else set chNodes = xml.selectNodes("//channel/*") for each item in chNodes Select Case item.tagName Case "title" : strChTitle = item.text Case "link" : strChLink = item.text Case "description" : strChDesc = item.text End Select next response.write "

Nyheter ifrån " & strChTitle & "

" response.write "

" & strChDesc & "

" response.write "

Gå direkt till " & strChTitle & "

" set itNodes = xml.selectNodes("//item/*") For each item in itNodes Select Case item.tagName Case "title" : strItemTitle = strItemTitle & item.text & "~" Case "link","guid" : strItemLink = strItemLink & item.text & "~" Case "description" : strItemDesc = strItemDesc & item.text & "~" End Select next arrItemTitle = split(strItemTitle,"~") arrItemLink = split(strItemLink,"~") arrItemDesc = split(strItemDesc,"~") response.write "

" response.write "" & arrItemTitle(a) & "" if strItemDesc <> "" then response.write "
" & arrItemDesc(a) response.write "

" set chNodes = nothing : set itNodes = nothing End If End Sub End Class Dim i set i = new rss_feed i.rss_url = "http://ditrader.di.se/News/rss.aspx" i.showfeed() Set i = Nothing ``` Permalänk: https://www.webforum.nu/p/1645984 ## #4 — lilja, 2005-07-14T18:57Z öhm, hemskt vad koderna var lika på flera stälen...Fast det är nog bara slumpen :P Permalänk: https://www.webforum.nu/p/1645989 ## #5 — Jesper T, 2005-07-14T19:27Z Det är möjligt men den funkar. Många använder RSS :) Permalänk: https://www.webforum.nu/p/1646003 --- Tråden på webben: https://www.webforum.nu/amne/asp/131419-hämta-nyhter-med-rss