Hvordan læse tekstfil fra et andet site?

Hej Per!
Tjek lige dette svar fra Medions :
http://www.eksperten.dk/spm/630531

/Killer

Hej Killer -

Jeg kan ikke gennemskue alle disse kodestumper. Kan du se præcis, hvad jeg bør ændre i min egen kode?

Min løsning skal kunne køres fra hjemmesiden, og ideen er at "snylte" på et fremmed RSS-feed. (Jeg har fået lov til det.) Jeg vil selv lave et script til behandling af den indlæste XML-fil. - Hilsen Per

Hmmm ..
Jeg er ikke sikker på, at du kan gøre det sådan, som du forsøger....
Men dette virker fint :

Den 3. nederste linie kalder funktionen med siden, der skal læses som parameter.
Det er blot her du skal ændre noget :o)

<%
Private Function GetHTMLBin(strURL)
    Dim objXMLHTTP, strReturn
    Set objXMLHTTP = server.CreateObject("Microsoft.XMLHTTP")
   
    objXMLHTTP.Open "GET", strURL, False
    objXMLHTTP.Send
   
    GetHTMLBin = objXMLHTTP.responseBody
    Set objXMLHTTP = Nothing
End Function

Private Function BinToText(varBinData, intDataSizeInBytes) ' as String

    Dim objRs
    Const adFldLong = &H00000080
    Const adVarChar = 200
   
    Set objRS = CreateObject("ADODB.Recordset")
   
    objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
    objRS.Open
   
    objRS.AddNew
    objRS.Fields("txt").AppendChunk varBinData
    BinToText = objRS("txt").Value
   
    objRS.Close
   
    Set objRS = Nothing
End Function

html = BinToText(GetHTMLBin ("http://www.killerclown.dk/test.txt"), 35000)
response.Write(html)
%>

/Killer

Hej Killer !

Tusind tak. Jeg havde svært ved at se, at det skulle være nødvendigt at indlæse i Bin-format og derefter lave om til Text. Men sådan er det jo nok. Dit testeksempel virker i hvert fald, og jeg tror ikke jeg får svært ved at bruge koden.

Min brug af et eksternt RSS-feed kunne måske fortjene en senere kommentar. Så vær forberedt på denne.

Venligst læg et svar. - Hilsen Per

Værsgod :o)
Det kan være Medions fortjener dem mere, men får han dem bare af mig.
/Killer

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

Very nice, Per
/Killer