改进后的《自动显示天气预报》小程序(Linux和Windows环境都可以)

时间：2006/7/19 6:30:34

作者：佚名

人气：60

这次改进，主要是增加了图象的获取，并提供了一个比较完整的获取远端文件的函数。具体代码如下：

$fcont=file("http://www.bjmb.gov.cn/today.asp");

$arr=array();

for($i=0;$i

$tmp=$fcont[$i];

$tmp=ereg_replace("
"," ",$tmp);

if(!strstr(strtolower($tmp),"img")){

$tmp=trim(strip_tags($tmp));

} else {

$st=ereg_replace(">⌒

$stt=split("⌒",$st);

foreach($stt as $key => $value){

if(strstr($value,"img") ){

$tmp=$value;

if(strstr($tmp,"bt9.jpg") || strstr($tmp,"colline.gif")){

$tmp="";

}else{

$tmp=ereg_replace("\"","",$tmp);

$st=split("src=",$tmp);

$st1=split(" ",$st[1]);getpic("http://www.bjmb.gov.cn/$st1[0]","image");

if(count($st)>2){

$st2=split(" ",$st[2]);getpic("http://www.bjmb.gov.cn/$st1[0]","image");

}

$tmp=ereg_replace("src=","width=30 height=30 align=absmiddle src=",$tmp);

}

}

}

}

if(trim($tmp)!="" && trim($tmp)!="　") $arr[]=$tmp;

}

$yb=array();

for($i=2;$i

$yb[]=$arr[$i];

}

?>

function getpic($url,$dir){

$tmp=split("/",$url);

$fname=$tmp[count($tmp)-1];

if(strstr($dir,"\\")){

if(substr($dir,-2)=="\\") $file=$dir.$fname;else $file=$dir."\\".$fname;

}else{

if(substr($dir,"/")){

if(substr($dir,-1)=="/") $file=$dir.$fname;else $file=$dir."/".$fname;

}

else{

return ;

}

}

if(!(file_exists("$dir") && is_dir("$dir"))) mkdir($dir,0777);

if(file_exists($file)) return ;

$fpo=fopen($file,"wb");

if(!$fpo) return ;

$num=0;

do{

$num++;

$fpi=fopen($url,"r");

}while(!$fpi && $num<3);

if(!fpi)return ;

while(!feof($fpi)){

$cont=fread($fpi,128);

fwrite($fpo,$cont,128);

}

fclose($fpi);

fclose($fpo);

}

?>