Hej igen - ville lige fortælle hvordan det er lykkedes mig at læse et RSS-feed, og viderebringe det på min egen hjemmeside. Jeg læser B.T.'s RSS-feed "seneste nyt" vha. den foreslåede kode, idet de sidste linjer ændres til dette:
<%
txtvar = BinToText(GetHTMLBin ("
http://www.bt.dk/rss/senestenyt.xml"), 35000)
txtvar = EditTekst(txtvar)
%>
Jeg bruger et Javascript til den videre redigering, men det kunne formentlig gøres vha. VBscript også:
<script type="text/javascript" language="Javascript" runat="Server">
function EditItem(Inputtekst)
{
var headline=Inputtekst.split(/<(\/?)title>/i)[1];
var tekst=Inputtekst.split(/<(\/?)description>/i)[1];
var link=Inputtekst.split(/<(\/?)link>/i)[1];
return('<b>'+headline+'</b><br>'+tekst+'..<br><a href="'+link+'">Læs videre i B.T.</a><p>');
}
function EditTekst(txtvar)
{
var S=txtvar.replace(/\s+/igm," "); /* fjerner whitespace f.eks. linjeskift */
S=S.replace(/.*?<item>/i,""); /* fjerner til og med første forekomst af <item> */
var items=S.split(/<\/item>( ?)<item>/); /* opdeler i items */
items[items.length-1]=items[items.length-1].replace(/<\/item>.*$/i,"");
S="";
for (i=0; i<items.length; i++) {S+=EditItem(items[i])};
return(S);
}
</script>
I min html-kode indføjer jeg denne linje:
<% =txtvar %>
Hilsen Per