文件数据合并问题

updoc

dos 写个批处理，
先放一个目录下  用dir/b >文件列表.txt 输出到文件列表 然后编辑
用copy命令
copy 1.txt+2.txt +3.txt+4.txt+5.txt  合并数据.txt

fools

复制目录中的所有文件

1. (setq directory "e:/tmp/")
   
2. (mapcar        '(lambda (x) (vl-file-copy (strcat directory x) (strcat directory "总数据.txt") T))
   
3.         (vl-directory-files directory "*.dat" 1) ;_获取目录中扩展名为dat的所有文件
   
4. )
   

(setq directory "e:/tmp/")<br /> (mapcar        '(lambda (x) (vl-file-copy (strcat directory x) (strcat directory "总数据.txt") T))<br />         (vl-directory-files directory "*.dat" 1) ;_获取目录中扩展名为dat的所有文件<br /> )<br />

你的DAT文件已经在目录中，所以不存在创建目录的说法。如果想用VLISP创建目录，用vl-mkdir

1. (setq directory "e:/tmp/")
   
2. (and (not (vl-file-directory-p directory)) (vl-mkdir directory)) ;_目录不存在时创建目录
   

(setq directory "e:/tmp/") <br /> (and (not (vl-file-directory-p directory)) (vl-mkdir directory)) ;_目录不存在时创建目录<br />

杜阳

fools 发表于 2017-11-5 15:46
复制目录中的所有文件

谢谢老师   我再研究一下    谢谢你了

fools

杜阳 发表于 2017-11-5 21:44
谢谢老师   我再研究一下    谢谢你了

别叫老师，交流而已。闻道有先后，术业有专攻。
这是利用DOS命令实现的方式，不过我建议还是用Vlisp更好操作
;;dos 方式
(setq path "e:\\tmp\\")
(vl-cmdf "sh" (strcat "copy/y" (strcat path "*.dat") " " (strcat path "总数据.txt")))

vladimirputin

不错的资料，谢谢分享啊。

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

杜阳

fools 发表于 2017-11-6 21:32
别叫老师，交流而已。闻道有先后，术业有专攻。
这是利用DOS命令实现的方式，不过我建议还是用Vlisp更好 ...

哈哈  实验成功   呵呵   谢谢老师   能者为师