喜悦国际村 
» 游客:  注册 | 登录 | 搜索 | 统计 | 帮助

RSS 订阅当前论坛  

喜悦证交所已经关闭

上一主题 下一主题
     
标题: [问题] 如何把多个文本文件合并成一个文本文件  
 
kenken96
新手上路
Rank: 1



UID 131499
精华 0
积分 17
帖子 11
金钱 17 喜悦币
威望 0
人脉 0
阅读权限 10
注册 2008-7-5
状态 离线
如何把多个文本文件合并成一个文本文件

请教如何把一个目录下的多个文本文件(文件数目不定)合并成一个文本文件?
2008-7-8 09:13 PM#1
查看资料  发短消息  顶部
 
coolsail
中级会员
Rank: 3Rank: 3


UID 74776
精华 0
积分 366
帖子 475
金钱 366 喜悦币
威望 0
人脉 0
阅读权限 30
注册 2006-6-9
状态 离线
[推荐阅读] union联合两条查询为一个结果集的问题
读取出这个目录下的所有文件,用fopen($newfile,'a+');写入新文件.



因为难,才好玩.
[img]http://www.phpchina.com/bbs/customavatars/11225.gif[/img]
2008-7-8 10:08 PM#2
查看资料  发短消息  QQ . .   顶部
 
kenken96
新手上路
Rank: 1



UID 131499
精华 0
积分 17
帖子 11
金钱 17 喜悦币
威望 0
人脉 0
阅读权限 10
注册 2008-7-5
状态 离线
[推荐阅读] 奶瓶-妳別一付盛氣凌人的樣子
回复 #2 coolsail 的帖子

就是如何读取出这个目录下的所有文件(文件数目不定)?
2008-7-8 10:17 PM#3
查看资料  发短消息  顶部
 
kenken96
新手上路
Rank: 1



UID 131499
精华 0
积分 17
帖子 11
金钱 17 喜悦币
威望 0
人脉 0
阅读权限 10
注册 2008-7-5
状态 离线
[推荐阅读] 失业+失恋
我自己写了一个,把目录data下的所有文本文件(*.txt)合并成yg.txt,不能用,有谁帮我改改?
<?
touch("d:yg.txt");
unlink("d:yg.txt");
$dir = "d:data";
if (is_dir($dir)) {
    if ($dh = opendir($dir)) {
              while (($file = readdir($dh))!== false)  {
         $file =file_get_contents($file);
        $fd = fopen($file,"r");   
        $symbol = fgets($fd, 1024);   
$fpp = fopen("d:fox\yg.txt","a");                                                     
fputs($fpp,$symbol);
}
closedir($dh);
}
}
fclose($fd);
fclose($fpp);
?>

[ 本帖最后由 kenken96 于 2008-7-9 08:04 AM 编辑 ]
2008-7-9 07:46 AM#4
查看资料  发短消息  顶部
 
sanders_yao
版主
Rank: 7Rank: 7Rank: 7
or2 =333


UID 30286
精华 0
积分 11774
帖子 4958
金钱 11771 喜悦币
威望 0
人脉 3
阅读权限 100
注册 2004-7-23
来自 北京 菜户营
状态 离线
[推荐阅读] 求一个第三方网页获取内容的问题~
function foo($dir, $target){
        $dir        = str_replace('\\', '/', $dir);
        $fp                = false;
        if(!is_dir($dir)){
                return false;
        }
        $dir        = preg_replace('~([^/])$~', '\\1/', $dir);
        $files        = glob("{$dir}*");
        foreach($files as $file){
                if(is_file($file) && $content = @file_get_contents($file)){
                        if(false === $fp && false === $fp = @fopen(str_replace('\\', '/', $target), 'a')){
                                return false;
                        }
                        fwrite($fp, $content);
                }
        }
        if(is_resource($fp)){
                fclose($fp);
        }
        return true;
}




最近写的一些代码都会在以下地址发布,有兴趣的来批:
http://www.phpx.com/happy/thread-131368-1-1.html
2008-7-9 08:37 AM#5
查看资料  Blog  发短消息  顶部
 
xieaotian (老老仙)
版主
Rank: 7Rank: 7Rank: 7


UID 82205
精华 1
积分 1295
帖子 1546
金钱 1295 喜悦币
威望 0
人脉 0
阅读权限 100
注册 2006-10-26
来自 老老神仙部落
状态 离线
[推荐阅读] 一个辣手的问题


<?PHP
/* Open a known directory, and proceed to read its contents
 * @author : 老老仙
 * @email : [email]xieaotian@163.com[/email]
 * @parameter $path and $new
 *
 */
function files_read($path="D:\data",$new="D:\test.txt"){
    
$ar = array(); 
    
$dir dir($path); 
    while(
$f $dir->read()) { 
    
$ar['name'][] = $f
    
$ar['type'][] = is_dir($f) ? "dir" "file"
    } 
    
$dir->close();
    for(
$i=2;$i<count($ar['name']);$i++){
        
$file = &$ar['name'][$i];
        
$file $path."\".$file;
        $handle = fopen($file,"
r");
        $contents = fread($handle, filesize ($file));
        $newfile = fopen($new,"
a");
        $f = fwrite($newfile,$contents);
    }
}
?>




http://www.okpython.com
让中国的python发展的更快。
2008-7-9 08:56 AM#6
查看资料  访问主页  Blog  发短消息  QQ . .   顶部
 
xieaotian (老老仙)
版主
Rank: 7Rank: 7Rank: 7


UID 82205
精华 1
积分 1295
帖子 1546
金钱 1295 喜悦币
威望 0
人脉 0
阅读权限 100
注册 2006-10-26
来自 老老神仙部落
状态 离线
[推荐阅读] 用什么办法能直接查到最占用CPU的PHP网页


QUOTE:
原帖由 sanders_yao 于 2008-7-9 08:37 AM 发表
function foo($dir, $target){
        $dir        = str_replace('\\', '/', $dir);
        $fp                = false;
        if(!is_dir($dir)){
                return false;
        }
        $dir        = preg_replace('~()$~', '\\1/', $dir);
        $files        = glob("{$d ...
写的真好.




http://www.okpython.com
让中国的python发展的更快。
2008-7-9 08:59 AM#7
查看资料  访问主页  Blog  发短消息  QQ . .   顶部
 
kenken96
新手上路
Rank: 1



UID 131499
精华 0
积分 17
帖子 11
金钱 17 喜悦币
威望 0
人脉 0
阅读权限 10
注册 2008-7-5
状态 离线
[推荐阅读] 调用DZ6.1.0数据显示乱码 帮下。。
各位版主都很历害,也很热心,用你们提供的代码搞定了.
2008-7-9 09:47 AM#8
查看资料  发短消息  顶部
 
奶瓶 (NP博士)
版主
Rank: 7Rank: 7Rank: 7
老仙


UID 52707
精华 4
积分 27817
帖子 6517
金钱 27767 喜悦币
威望 50
人脉 0
阅读权限 100
注册 2004-11-22
来自 北大中文系
状态 离线
[推荐阅读] flash嵌入php页面没声音
copy +




图片包子,注册送100包子!
域名抢注
2008-7-9 09:56 AM#9
查看资料  访问主页  Blog  发短消息  QQ . .   ICQ 状态  Yahoo!  顶部
     


  可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题 | 开通个人空间  


 




Powered by Discuz! 6.1.0  © 2001-2010 Comsenz Inc.
Processed in 0.030344 second(s), 6 queries

(冀ICP备05009913号) 管理员:sadly 邮箱/MSN: sadly@phpx.com QQ:824008(长隐) 清除 Cookies - - Archiver - WAP