Question

使用批处理拷贝指定文件名并复制到指定文件夹

【例子】：文件夹名1：0000011_20150224*****,文件夹中的文件：0000011_00000108_0000109.jpg，0000011_00000***_0000***.jpg，……
文件夹名2：0000012_20150224*****,文件夹中的文件：0000012_00000108_0000109.jpg，0000012_00000***_0000***.jpg，……
文件夹名3：0000011_20150225*****,文件夹中的文件：0000011_00000108_0000109.jpg，0000011_00000***_0000***.jpg ，……
文件夹名4：0000012_20150225*****,文件夹中的文件：0000012_00000108_0000109.jpg，0000012_00000***_0000***.jpg，……
【问题】：包含字符串“00000108_0000109”.jpg的文件拷贝到对应的文件夹，文件夹以日期命名。
【例子处理后的结果】新文件夹名1：20150224，包含的文件：0000011_00000108_0000109.jpg，0000012_00000108_0000109.jpg
新文件夹名2：20150225，包含的文件：0000011_00000108_0000109.jpg，0000012_00000108_0000109.jpg
文件夹的命名修正下：00-000_0000011_20150224*****。希望能再修正下

Answer 1

@echo off&setlocal EnableDelayedExpansion
for /f "tokens=1,* delims=_" %%a in ('dir/ad/b') do (
    set d=%%~b
    if defined d md !d:~,8!
    if exist "%%~a_%%~b" copy "%%~a_%%~b\*00000108_0000109.jpg" !d:~,8!\
)
pause

放在待处理文件夹同一目录下

追问

非常感谢，没有问题。
能否再追加一个功能，可以设定日期期限的，由于文件夹和文件数量太多，全部处理一遍时间太长了。

追答

@echo off&setlocal EnableDelayedExpansion
for /f "tokens=1,* delims=_" %%a in ('dir/ad/b') do (
    set d=%%~b
    if defined d call:Process !d:~,8! "%%~a_%%~b"
)
pause
exit
goto :eof
:Process
::设置日期范围，逗号前为早日期，逗号后为晚日期
set DT=20150211,20150312
if %1 geq %DT:~,8% (
    if %1 leq %DT:~9% (
        md %1
        if exist %2 copy "%~2\*00000108_0000109.jpg" %1\
    )
)

追问

之前的文件夹名写错了
错误的：0000011_20150224*****
正确的：00-000_0000011_20150224*****（有2个下划线）
希望能再改一下，谢谢

追答

tokens=1,*改成tokens=1,2,*
set d=%%~b改成set d=%%~c
"%%~a_%%~b"改成"%%~a_%%~b_%%~c"

追问

非常感谢，使用没有问题了，已经用上了。
在用的过程中，还有不方便的地方，希望能再帮忙下
如果我想同时COPY两个文件，怎么修改
比如拷贝*00000108_0000109.jpg和*00000109_0000120.jpg

追答

if exist %2 copy "%~2\*00000108_0000109.jpg" %1\

改成

if exist %2 (
    copy "%~2\*00000108_0000109.jpg" %1\
    copy "%~2\*00000109_0000120.jpg" %1\
)

追问

if exist %2 (

copy "%~2\*00000108_0000109.jpg" %1\

copy "%~2\*00000109_0000120.jpg" %1\

)
这个语句好像有问题，一运行就自动结束了，帮忙再确认下
之前的语句测试了是没问题的。

追答

没问题啊！特别提醒一下，复制代码后，记得去除每行命令最后的空格。
大部分命令都是因为这个导致失败的。知道上的代码被复制粘贴后会被自动添加末尾空格和一个空行。

追问

能再帮我一下吗

追答

什么？

追问

关于批处理，想请你帮忙下，我的提问中有新的，帮忙看一下吧

追答

抱歉，你的个人资料中是看不到你的提问的。请把问题链接告诉我。