Hittade detta script, dock utan kommentarer. Mina PHP kunskaper är kanske inte dom bästa så jag skulle behöva lite hjälp att kommentera och utveckla förljande script:
<?
function getDnNyheter()
{
$file = fopen("http://www.dn.se/DNet/jsp/polopoly.jsp?d=10", "r");
if (!$file)
{
echo "<p>Kan inte upprätta förbindelse med <a href="http://www.dn.se.\n" target="_blank">www.dn.se.\n</a>";
exit;
}
$i = 0;
$ret ="";
$bottom = false;
while (!feof($file))
{
$line = fgets($file, 1024);
//if (eregi("<td class=\"(.*)\" nowrap rowspan=\"3\" valign=\"middle\"><font color=\"#B7002E\">Nyheter&nbsp;</font></td>",$line, $out))
if (eregi("<font color=\".*\">(.*)&nbsp;</font></td>", $line, $out)) {
if ($bottom) {
break;
}
$ret .= "<p><b>$out[1]</b>\n";
if ($out[1] == "Sport") {
$bottom = true;
}
}
if (eregi("<td><a href=\"(.*)\" class=\"svart\" title=\"(.*)\">(.*)</a></td>", $line, $out)) {
$ret .= "<a href=\"http://www.dn.se$out[1]\" target=\"dn\">$out[3]</a>$out[2]\n";
}
}
fclose($file);
return $ret;
}
?>
<html>
<body>
<h1>Nyheter från DN</h1>
<hr>
<?= getDnNyheter(); ?>
<hr>
<small>Länkarna leder till <a href="http://www.dn.se" target="_blank">www.dn.se</a> - <a href="http://www.svanstrom.nu"><a href="http://www.svanstrom.nu" target="_blank">www.svanstrom.nu</a></a> - <a href="mailto
er@svanstrom.nu">per@svanstrom.nu< ;/a></small>
</body>
</html>
Hur gör jag om jag i stället ex vill hämta infon från följande site:
http://www.svd.se/directorybrowser/directorybrowser2.asp?strDir=statiskt\kultur\bocke r\&strBannerFile=svdkultur.asp&strHead=ur_ bocker.gif&strAltText=Bokrecensioner
så att upplägget blir det samma. Dvs länknamet blir en överskrift och översta raderna blir citerade under länken? Funkar inte att bara byta ut länken, eller jag får inte det att funka.
<?
function getDnNyheter()
{
$file = fopen("http://www.dn.se/DNet/jsp/polopoly.jsp?d=10", "r");
if (!$file)
{
echo "<p>Kan inte upprätta förbindelse med <a href="http://www.dn.se.\n" target="_blank">www.dn.se.\n</a>";
exit;
}
$i = 0;
$ret ="";
$bottom = false;
while (!feof($file))
{
$line = fgets($file, 1024);
//if (eregi("<td class=\"(.*)\" nowrap rowspan=\"3\" valign=\"middle\"><font color=\"#B7002E\">Nyheter&nbsp;</font></td>",$line, $out))
if (eregi("<font color=\".*\">(.*)&nbsp;</font></td>", $line, $out)) {
if ($bottom) {
break;
}
$ret .= "<p><b>$out[1]</b>\n";
if ($out[1] == "Sport") {
$bottom = true;
}
}
if (eregi("<td><a href=\"(.*)\" class=\"svart\" title=\"(.*)\">(.*)</a></td>", $line, $out)) {
$ret .= "<a href=\"http://www.dn.se$out[1]\" target=\"dn\">$out[3]</a>$out[2]\n";
}
}
fclose($file);
return $ret;
}
?>
<html>
<body>
<h1>Nyheter från DN</h1>
<hr>
<?= getDnNyheter(); ?>
<hr>
<small>Länkarna leder till <a href="http://www.dn.se" target="_blank">www.dn.se</a> - <a href="http://www.svanstrom.nu"><a href="http://www.svanstrom.nu" target="_blank">www.svanstrom.nu</a></a> - <a href="mailto
er@svanstrom.nu">per@svanstrom.nu< ;/a></small></body>
</html>
Hur gör jag om jag i stället ex vill hämta infon från följande site:
http://www.svd.se/directorybrowser/directorybrowser2.asp?strDir=statiskt\kultur\bocke r\&strBannerFile=svdkultur.asp&strHead=ur_ bocker.gif&strAltText=Bokrecensioner
så att upplägget blir det samma. Dvs länknamet blir en överskrift och översta raderna blir citerade under länken? Funkar inte att bara byta ut länken, eller jag får inte det att funka.
