批处理怎样实现更改重命名并分类复制？

zhengdalu

如题，把*文件夹里的照片中的日期删除，比如：20090812？？？.jpg，20101012？？？.jpg；；；分别把其中的日期删除，并把原日期为2009开头的文件复制（移动）至*盘，2009文件夹中。2010的文件复制（移动）至2010文件夹中。

xudaweb

假定照片在C:\Picture文件夹内：
1. 分类移动到C:\Picture\2009和C:\Picture\2010文件夹中。
2. 重新命名C:\Picture文件夹内照片的名字（去除年月日）。

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. if not exist C:\Picture\2009 md C:\Picture\2009
   
4. if not exist C:\Picture\2010 md C:\Picture\2010
   
5. 
   
6. for %%i in (*.jpg) do (
   
7.         for %%j in (%%~ni) do (
   
8.                 set name=%%j
   
9.                 set top4=!name:~,4!
   
10.                 if !top4! equ 2009 copy %%~nj.jpg C:\Picture\2009\.
    
11.                 if !top4! equ 2010 copy %%~nj.jpg C:\Picture\2010\.
    
12.         )
    
13. )
    
14. 
    
15. for %%a in (*.jpg) do (
    
16.         for %%b in (%%~na) do (
    
17.                 set name1=%%b
    
18.                 set nname=!name1:~8!
    
19.                 ren %%b.jpg !nname!.jpg
    
20.         )
    
21. )
    
22. pause&exit

复制代码

hfg1977

回复 2# xudaweb

1. @echo off
   
2. md .\test\2009\ 2>nul
   
3. md .\test\2010\ 2>nul
   
4. 
   
5. move .\test\2009*.jpg .\test\2009\ 2>nul
   
6. move .\test\2010*.jpg .\test\2010\ 2>nul
   
7. echo.--------
   
8. for /f "tokens=* delims=" %%i in ('dir /a-d/s/b .\test\*.jpg') do (
   
9. set name=%%~nxi
   
10. call set "name=%%name:~-7%%"
    
11. call ren %%i %%name%%
    
12. )
    

复制代码

1. @echo off
   
2. md .\test\2009\ 2>nul
   
3. md .\test\2010\ 2>nul
   
4. for /f "tokens=* delims=" %%i in ('dir /a-d/s/b .\test\*.jpg') do (
   
5. set name=%%~nxi
   
6. call set "top4=%%name:~,4%%"
   
7. call set "name=%%name:~-7%%"
   
8. for /f %%a in ('call echo %%top4%%') do (
   
9.         if "%%a"=="2009" (
   
10.                 call move %%i .\test\2009\%%name%%
    
11.         ) else (
    
12.                 if "%%a"=="2010" (
    
13.                         call move %%i .\test\2010\%%name%%
    
14.                 ) else (
    
15.                         call ren %%i %%name%%
    
16.                 )
    
17.         )
    
18. )
    
19. )

复制代码

zhengdalu

回复 3# hfg1977


    咋有两段话？一楼的我试一下

zhengdalu

回复 2# xudaweb


    不成功的，文件没反应。

xudaweb

回复 5# zhengdalu

为什么不成功？我在XP SP3和Win7下测试都可以（第一张照片命名还有点问题）

你把这批处理copy在C:\Picture里执行下看看！！

xudaweb

回复 3# hfg1977

在Win7环境下测试你的代码，除了新建两个文件夹，没有rename和Move的动作...

xudaweb

把此Batch放到照片文件夹内执行，可以把2009与2010开头的照片copy到对应的文件夹中。

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. md .\2009 2>nul
   
4. md .\2010 2>nul
   
5. 
   
6. for %%i in (*.jpg) do (
   
7.         for %%j in (%%~ni) do (
   
8.                 set name=%%j
   
9.                 set top4=!name:~,4!
   
10.                 if !top4! equ 2009 copy %%~nj.jpg .\2009\.
    
11.                 if !top4! equ 2010 copy %%~nj.jpg .\2010\.
    
12.         )
    
13. )
    
14. pause&exit
    

复制代码

精简了下，一个for循环就可以了。

1. @echo off&setlocal enabledelayedexpansion
   
2. md .\2009 2>nul
   
3. md .\2010 2>nul
   
4. 
   
5. for %%i in (*.jpg) do (
   
6.       set name=%%~ni
   
7.       set top4=!name:~,4!
   
8.       if !top4! equ 2009 copy %%i .\2009\.
   
9.       if !top4! equ 2010 copy %%i .\2010\.
   
10. )
    
11. pause&exit

复制代码

hankerer

把批处理文件放到照片目录下。

1. @echo off
   
2. SETLOCAL enabledelayedexpansion
   
3. 
   
4. md d:\2009 2>nul
   
5. md d:\2010 2>nul
   
6. 
   
7. for %%i in (*.jpg) do (
   
8.         set name1=%%i
   
9.         set name2=!name1:~8!
   
10.         set name3=!name1:~,4!
    
11.         if "!name3!" == "2009" copy %%i d:\2009\!name2!
    
12.         if "!name3!" == "2010" copy %%i d:\2010\!name2!
    
13. )
    
14. 
    
15. pause

复制代码