文件数据合并问题

杜阳

各位大师好，请教一个问题  现在就是将多个txt文件里的数据合并在一个新txt里面   怎么可以搞出来呢
例如   1.txt    2.txt     3.txt      4.txt     5.txt等等  里面的数据都归到一个新的文件     总数据.txt  中去啊  
查了   vl-file-copy函数，dos_mergefiles函数    dos_mergefile函数   都没有实现  请各位大师出手相助

杜阳

fools 发表于 2017-11-4 21:17
这句是文件所在目录，单列出来就是为了让你自己改
(setq directory "e:/tmp/")

我搞错了  实现了    谢谢老师   那么如果我有更多的文件     
(mapcar        '(lambda (x) (vl-file-copy (strcat directory (itoa x) ".txt") (strcat directory "总数据.txt") T))
        '(1 2 3 4 5)
)

这个 '(1 2 3 4 5)怎么办呢   可以用一个表数据  有多少文件   自己生成表   然后合并呢

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

1. ;;(vl-file-copy  source-file destination-file [append])
   
2. ;;append:如果指定该参数且其值不为 nil，source-file 将附加到 destination-file （即复制到目标文件的尾部）。
   
3. 
   
4. (setq directory "e:/tmp/")
   
5. (mapcar        '(lambda (x) (vl-file-copy (strcat directory (itoa x) ".txt") (strcat directory "总数据.txt") T))
   
6.         '(1 2 3 4 5)
   
7. )
   
8. 
   

;;(vl-file-copy  source-file destination-file [append])<br /> ;;append:如果指定该参数且其值不为 nil，source-file 将附加到 destination-file （即复制到目标文件的尾部）。<br /> <br /> (setq directory "e:/tmp/")<br /> (mapcar        '(lambda (x) (vl-file-copy (strcat directory (itoa x) ".txt") (strcat directory "总数据.txt") T))<br />         '(1 2 3 4 5)<br /> )<br /> <br />

yxp

copy 1.txt + 2.txt sum.txt

xxxyyyzzz

yxp 发表于 2017-11-4 18:48
copy 1.txt + 2.txt sum.txt

现在很多人不会dos命令了

杜阳

yxp 发表于 2017-11-4 18:48
copy 1.txt + 2.txt sum.txt

用lisp怎么使用啊  

杜阳

fools 发表于 2017-11-4 16:35

没有反应   是哪里还？？？？

fools

这句是文件所在目录，单列出来就是为了让你自己改
(setq directory "e:/tmp/")

杜阳

fools 发表于 2017-11-4 21:17
这句是文件所在目录，单列出来就是为了让你自己改
(setq directory "e:/tmp/")

这一句我知道  我按照这一句  建立一个文件夹  没有反应

杜阳

fools 发表于 2017-11-4 21:17
这句是文件所在目录，单列出来就是为了让你自己改
(setq directory "e:/tmp/")

  (setq f1 (vl-directory-files " " "*.dat" 1))这样一句是不是就可以得到路径中的所有文件了  老师