先放一个目录下用dir/b >文件列表.txt 输出到文件列表 然后编辑
用copy命令
copy 1.txt+2.txt +3.txt+4.txt+5.txt合并数据.txt 复制目录中的所有文件
(setq directory "e:/tmp/")
(mapcar '(lambda (x) (vl-file-copy (strcat directory x) (strcat directory "总数据.txt") T))
(vl-directory-files directory "*.dat" 1) ;_获取目录中扩展名为dat的所有文件
)
你的DAT文件已经在目录中,所以不存在创建目录的说法。如果想用VLISP创建目录,用vl-mkdir
(setq directory "e:/tmp/")
(and (not (vl-file-directory-p directory)) (vl-mkdir directory)) ;_目录不存在时创建目录
fools 发表于 2017-11-5 15:46
复制目录中的所有文件
谢谢老师 我再研究一下 谢谢你了 杜阳 发表于 2017-11-5 21:44
谢谢老师 我再研究一下 谢谢你了
别叫老师,交流而已。闻道有先后,术业有专攻。
这是利用DOS命令实现的方式,不过我建议还是用Vlisp更好操作
;;dos 方式
(setq path "e:\\tmp\\")
(vl-cmdf "sh" (strcat "copy/y" (strcat path "*.dat") " " (strcat path "总数据.txt")))
不错的资料,谢谢分享啊。 回帖是一种美德!感谢楼主的无私分享 谢谢 fools 发表于 2017-11-6 21:32
别叫老师,交流而已。闻道有先后,术业有专攻。
这是利用DOS命令实现的方式,不过我建议还是用Vlisp更好 ...
哈哈实验成功 呵呵 谢谢老师 能者为师
页:
1
[2]