循环复制指定目录下文件名中含指定字符串的文件到其他目录下以该字符串命名的文件夹里

wdh123

c:\our\aa4-李霞001.txt
c:\our\aa4-李霞.txt
c:\our\aa4-陈丽001.txt

求教大神，我想把 李霞 和 陈丽 的文件分别复制到d:\李霞   和 d:\陈丽 目录下（包含陈丽字符的文件名都复制进去），且文件名相同就覆盖上次复制进去的。能做到吗，c:\our\下的txt需要复制过去d:\李霞   和 d:\陈丽 目录下，且保留一份备份在d:\backup下，移动过去，最后c:\our\目录下是空的。在不关闭cmd下，循环复制运行着。谢谢

wdh123

问题详述

我想做一个测试的logfile备份。
logfile 的格式如：abc-MCUpass123.txt  abc-MCUfail123.txt

A:测试的结果出现在c:\logfile
B:想保存在2个地方。一个是D:\backup  , 一个是\\server\logfile
C:有2个动作，一是先复制一个到d:\backup，一个是移动到\\server\logfile，使c:\logfile是空的.（移动时希望文件不能丢失）
D:能否做到把指定的字符串文件复制到D:\backup\MCUpass 和D:\backup\MCUfail，而fail的文件不移动到\\server\logfile，只要pass的移动到\\server\logfile。
E：能否做到循环复制，就是打开一次后，会自动复制文件，手动关闭CMD才会停止复制。


诚心求教、谢谢大师，我的水平有限.    :）

bailong360

1. (while t
   
2.   (dolist (key '("李霞" "陈丽"))
   
3.     (dolist (filename (directory-files "c:\\our" nil key))
   
4.       (let (fullname (concat "c:\\out" filename))
   
5.         (copy-file fullname (concat "d:\" key) t)
   
6.         (delete-file fullname)))
   
7.     (sleep-for 5)))

复制代码

elisp练手
====2017.7.28 20:49=====

1. (while t
   
2.   (dolist (key '("MCUpass" "MCUfail"))
   
3.     (dolist (filename (directory-files "c:\\logfile" nil key))
   
4.       (let (fullname (concat "c:\\logfile" filename))
   
5.         (copy-file fullname (concat "d:\" key) t)
   
6.         (when (equal key "MCUpass")
   
7.           (copy-file fullname (concat "\\\\server\\logfile")))
   
8.         (delete-file fullname)))
   
9.     (sleep-for 5)))

复制代码

LZ我只是来练手的......

wdh123

回复 3# bailong360


    不好意思，没能实现。

你能帮我看看这个吗。

问题详述见2楼