同時擷取多條新聞中的文字一例_PHP教程

本文为一个提取一批新闻网页中的文本的小程序，它可以将各篇新闻的内容存为以该新闻标题为文件名的文本文件。如有更好的处理方法，请和我联系：
lwx3069@sina.com
   这里以人民网中的“今日要闻”下的新闻为例.
($url) ? "" : $url = "http://www.unn.com.cn/GB/channel2/3/11/index.html"; // 今日要闻
if(isset($url)&&$url!="") {
$str = implode("",file($url));
$str_ary = explode("

",$str);
   $str_ary = explode("
• ",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]",' $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('
  ',$str);            //去掉文件没用的上半部分
              $str2 = explode('

   

  ',$str1[1]);
              //取出文件的下半部分，并去掉没用的下半部分，这时得到的都是有用的
              $str3=explode('',$str2[0]);   //从整个有用部分取出文件标题和正文
              $str4=explode('
  ',$str2[0]);   //取出日期及時間
              $str5=explode('',$str3[ 1]);     //從標題和正文部分取出標題
              $title=str_replace("
  ","",$str5[0]);
              $str3=explode('

  ',$str2[0]);          //從整個用途部份取出文件內文
             ",$str3[1]);
              $str3[1]=str_replace(' ',"",$str3[1]);             $pf=trim($title).".txt」;
                fputs($ppf,$title);
  fputs($ppf,"$str4[0]");
              fputs($ppf,$str3);
      🎜>?> 
  
  
  
  http://www.bkjia.com/PHPjc/316225.html
  
  www.bkjia.com
  

  true
  http: //www.bkjia.com/PHPjc/316225.htmlTechArticle本文為一個提取一批新聞網頁中的文本的小程序，它可以將各篇新聞的內容存為以該新聞標題為檔案名稱的文字檔案。如有較好的處理方法，...