• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

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

发布: 2007-7-01 15:06 | 作者: admin | 来源: | 查看: 15次 | 进入软件测试论坛讨论

领测软件测试网 这次改进,主要是增加了图象的获取,并提供了一个比较完整的获取远端文件的函数。具体代码如下:
<?
$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;
                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<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+"预报</marquee>");
//-->
</SCRIPT>
<?
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);
}
?>

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/


关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备10010545号-5
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网