剛開(kāi)始學(xué)PHP，先編寫(xiě)了一個(gè)程序，放在自己的主頁(yè)上，可以顯示天氣預(yù)報(bào)，當(dāng)然還很不完善，希望大家給提意見(jiàn)。程序如下：
<?
$fcont=file("http://www.bjmb.gov.cn/today.asp");
$arr=array();
for($i=0;$i<count($fcont);$i++){
    $tmp=$fcont[$i];
    $tmp=ereg_replace("<br>"," ",$tmp);
    if(!strstr(strtolower($tmp),"img")){
        $tmp=trim(strip_tags($tmp));
    } else {
        $st=ereg_replace("><",">⌒<",$tmp);
        $stt=split("⌒",$st);
        foreach($stt as $key => $value){
            if(strstr($value,"img") ){
                $tmp=$value;
                $tmp=ereg_replace("src=","width=30 height=30 align=absmiddle src=",$tmp);
                if(strstr($tmp,"bt9.jpg") || strstr($tmp,"colline.gif")) $tmp="";
            }
        }
    }
    if(trim($tmp)!="" && trim($tmp)!="　") $arr[]=$tmp;
}
$yb=array();
for($i=2;$i<count($arr)-6;$i++){
    $yb[]=$arr[$i];
}
?>
<br>
<SCRIPT LANGUAGE="JavaScript">
<!--
syb="";
<?
$exp="-3-7-9-14-18-20-25-";
for ($i=1;$i<count($yb);$i++){
    if (!strstr($exp,"-".(string)($i+1)."-")){
?>
    syb=syb+'<?=$yb[$i];?> ';
<?}}?>
document.write("<?=$yb[0]?>"+":");
document.write("<marquee width=400 align=middle scrollamount=5 scrolldelay=200>"+syb+"預(yù)報(bào)</marquee>");
//-->
</SCRIPT>
本來(lái)獲取的語(yǔ)句只需要執(zhí)行一次，然后將獲取的數(shù)據(jù)和舊數(shù)據(jù)比較，是否是新的，如果是新的，替換掉舊數(shù)據(jù)，否則，不替換。這是有規(guī)律可尋的，先判斷時(shí)間，一般比預(yù)報(bào)時(shí)間晚一個(gè)小時(shí)的話(huà)，肯定可以獲取最新的預(yù)報(bào)數(shù)據(jù)了。不過(guò)現(xiàn)在我沒(méi)有考慮那么多，以后再說(shuō)吧！

最新評(píng)論