程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> PHP編程 >> PHP綜合 >> 同時提取多條新聞中的文本一例

同時提取多條新聞中的文本一例

編輯:PHP綜合
本文為一個提取一批新聞網頁中的文本的小程序,它可以將各篇新聞的內容存為以該新聞標題為文件名的文本文件。如有更好的處理方法,請和我聯系:
[email protected]
   這裡以人民網中的“今日要聞”下的新聞為例.
<?php
($url) ? "" : $url = "http://www.unn.com.cn/GB/channel2/3/11/index.html";        // 今日要聞
if(isset($url)&&$url!="")        {
   $str = implode("",file($url));
   $str_ary = explode("<ul>",$str);
   $str_ary = explode("<li>",trim($str_ary[1]));
   for ($i=0; $i<8; $i++)        {
      if (strlen(trim($str_ary[$i]))<3){
      continue;
      }
      echo "新聞".$i.":".$str_ary[$i];
      $str1=strstr("$str_ary[$i]",'<a href="/');
      $str2=strstr("$str_ary[$i]",'" target');
      $len1=strlen("$str1");
      $len2=strlen("$str2");
      $len=$len1-$len2;
      $url=substr("$str1",10,$len-10);
      if (strlen(trim($url))!=0) {
         $url = "http://www.unn.com.cn/".$url;
         define(CONTENTS_DIR,"./contents/");
         if(isset($url)&&$url!="")        {
            $str = implode("",file($url));
            $str1=explode('<div align="right">',$str);            //去掉文件沒用的上半部分
            $str2 = explode('<h4 align="center">  </h4>',$str1[1]);
            //取出文件的下半部分,並去掉沒用的下半部分,這時得到的都是有用的
            $str3=explode('</font><font size="+2"><b><font size="3">',$str2[0]);   //從整個有用部分取出文件標題和正文
            $str4=explode('</div>',$str2[0]);   //取出日期和時間
            $str5=explode('</font></b></font><font size="2">',$str3[1]);     //從標題和正文部分取出標題
            $title=str_replace("<br>","",$str5[0]);
            $str3=explode('<p><font size="2">',$str2[0]);          //從整個有用部分取出文件正文
            $str3[1]=str_replace('<br><br>    ',"\n"."  ",$str3[1]);
            $str3[1]=str_replace(' ',"",$str3[1]);
            $str3=strip_tags($str3[1]);
            $pf=trim($title).".txt";
            $ppf=fopen(CONTENTS_DIR."$pf",'w');
            fputs($ppf,$title);
            fputs($ppf,"$str4[0]");
            fputs($ppf,$str3);
        }
     }
  }
}
?> 
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved