已掉线,重新登录

首页 > 绿虎论坛 > 历史版块 > 编程 > PHP > 源码

标题: [源码]采集笑话

作者: @Ta

时间: 2014-06-27

点击: 2369



 <?php
@set_time_limit(0);
$p=@file_get_contents("p.txt");
if($p==0 or $p==''){$p=1;}
$pa=file_get_contents("http://m.kxin.cc/new.asp?page=$p");
preg_match_all('/view\.asp\?id=(\d+)\">(.*)<\/a>/',$pa,$re);
//print_r($re);
for($i=0;$i<20;$i++){
$id=$re[1][$i];
$name=$re[2][$i];
$u="http://m.kxin.cc/view.asp?id={$id}";
$f=file_get_contents($u);
$tt=explode('<br/><br/>',$f);
$tt=explode('送',$tt[1]);
//print_r($tt);
$nr=str_replace(array("<br/>"),array(""),$tt[0]);
$nr=strip_tags($nr);
$t=$nr;
//echo $nr;
$nr="#{$name}#"."[{$nr}]"."@"."\n";
$ff=fopen("joke.txt","a+");
$fi=file_get_contents("joke.txt");
if(!strstr($fi,$t) and $t and !strstr($t,'免费下载图片')){
fwrite($ff,$nr);}
fclose($ff);

}
$pi=$p+1;
file_put_contents("p.txt",$pi); 
我采集了7m,也许有错误。。自己修改吧!

[隐藏样式|查看源码]


『回复列表(5|隐藏机器人聊天)』

1. joke.txt
(/@Ta/2014-06-27 21:32//)

2. 我下载的txt版本,有一些笑话就有一半,一个笑话说了一半,嘎然而止,估计你的正则没有匹配换行
(/@Ta/2014-06-27 21:37//)

3. @郑锋,也许吧。
不过,大哥匹配内容我没用正则。。。
用的是explpde
(/@Ta/2014-06-27 21:42//)

4. 那怎么回事
(/@Ta/2014-06-27 21:50//)

5. @郑锋,不清楚。。。
(/@Ta/2014-06-27 21:51//)

回复需要登录

9月17日 18:40 星期三

本站由hu60wap6驱动

备案号: 京ICP备18041936号-1