[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
zhengzhenhui

Rank: 2

帖子
93 
积分
147 
技术
1  
捐助
0  
注册时间
2024-4-11 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2024-7-26 15:42 | 只看该作者

[文件操作] 【分享】批处理按年份和十二生肖归类文件

十二生肖
  1. @echo off

  2. cd /d "%~dp0"

  3. set "dp=%~dp0"

  4. set "dp=%dp:\=\\%"

  5. set n=1

  6. 

  7. for /f "delims=" %%i in ('dir /b /s /a-d ^|find /v "%~f0" ^|findstr /rvibc:\\"%dp%[1-2][0-9][0-9][0-9]\\\\"') do (

  8.     for /f "tokens=1-2 delims=/" %%a in ("%%~ti") do (

  9.         setlocal

  10.         if "%%b" leq "01" (

  11.             call :1 "%%a年\1-子鼠" "%%i"

  12.         ) 

  13.         if "%%b" leq "02" (

  14.             call :1 "%%a年\2-丑牛" "%%i"

  15.         ) 

  16.         if "%%b" leq "03" (

  17.             call :1 "%%a年\3-寅虎" "%%i"

  18.         ) 

  19.         if "%%b" leq "04" (

  20.             call :1 "%%a年\4-卯兔" "%%i"

  21.         ) 

  22.         if "%%b" leq "05" (

  23.             call :1 "%%a年\5-辰龙" "%%i"

  24.         ) 

  25.         if "%%b" leq "06" (

  26.             call :1 "%%a年\6-巳蛇" "%%i"

  27.         ) 

  28.         if "%%b" leq "07" (

  29.             call :1 "%%a年\7-午马" "%%i"

  30.         ) 

  31.         if "%%b" leq "08" (

  32.             call :1 "%%a年\8-未羊" "%%i"

  33.         ) 

  34.         if "%%b" leq "09" (

  35.             call :1 "%%a年\9-申猴" "%%i"

  36.         ) 

  37.         if "%%b" leq "10" (

  38.             call :1 "%%a年\10-酉鸡" "%%i"

  39.         ) 

  40.         if "%%b" leq "11" (

  41.             call :1 "%%a年\11-戌狗" "%%i"

  42.         ) 

  43.         if "%%b" leq "12" (

  44.             call :1 "%%a年\12-亥猪" "%%i"

  45.         )

  46.         endlocal

  47.     )

  48. )

  49. 

  50. for /f "delims=" %%i in ('dir /b /s /ad ^|sort /r') do (

  51.     rd "%%i" 2>nul

  52. )

  53. 

  54. :1

  55. md "%~1" 2>nul

  56. if not exist "%~1\%~n2%m%%~x2" (

  57.     move "%~2" "%~1\%~n2%m%%~x2"

  58.     exit /b

  59. )

  60. set /a n+=1

  61. set m=_%n%

  62. goto :1

  63. 

  64. exit
复制代码
十二星座
  1. @echo off

  2. cd /d "%~dp0"

  3. set "dp=%~dp0"

  4. set "dp=%dp:\=\\%"

  5. set n=1

  6. 

  7. for /f "delims=" %%i in ('dir /b /s /a-d ^|find /v "%~f0" ^|findstr /rvibc:\\"%dp%[1-2][0-9][0-9][0-9]\\\\"') do (

  8.     for /f "tokens=1-2 delims=/" %%a in ("%%~ti") do (

  9.         setlocal

  10.         if "%%b" leq "01" (

  11.             call :1 "%%a 年\1-白羊座" "%%i"

  12.         ) 

  13.         if "%%b" leq "02" (

  14.             call :1 "%%a 年\2-金牛座" "%%i"

  15.         ) 

  16.         if "%%b" leq "03" (

  17.             call :1 "%%a 年\3-双子座" "%%i"

  18.         ) 

  19.         if "%%b" leq "04" (

  20.             call :1 "%%a 年\4-巨蟹座" "%%i"

  21.         ) 

  22.         if "%%b" leq "05" (

  23.             call :1 "%%a 年\5-狮子座" "%%i"

  24.         ) 

  25.         if "%%b" leq "06" (

  26.             call :1 "%%a 年\6-处女座" "%%i"

  27.         ) 

  28.         if "%%b" leq "07" (

  29.             call :1 "%%a 年\7-天秤座" "%%i"

  30.         ) 

  31.         if "%%b" leq "08" (

  32.             call :1 "%%a 年\8-天蝎座" "%%i"

  33.         ) 

  34.         if "%%b" leq "09" (

  35.             call :1 "%%a 年\9-射手座" "%%i"

  36.         ) 

  37.         if "%%b" leq "10" (

  38.             call :1 "%%a 年\10-摩羯座" "%%i"

  39.         ) 

  40.         if "%%b" leq "11" (

  41.             call :1 "%%a 年\11-水瓶座" "%%i"

  42.         ) 

  43.         if "%%b" leq "12" (

  44.             call :1 "%%a 年\12-双鱼座" "%%i"

  45.         )

  46.         endlocal

  47.     )

  48. )

  49. 

  50. for /f "delims=" %%i in ('dir /b /s /ad ^|sort /r') do (

  51.     rd "%%i" 2>nul

  52. )

  53. 

  54. :1

  55. md "%~1" 2>nul

  56. if not exist "%~1\%~n2%m%%~x2" (

  57.     move "%~2" "%~1\%~n2%m%%~x2"

  58.     exit /b

  59. )

  60. set /a n+=1

  61. set m=_%n%

  62. goto :1

  63. 

  64. exit
复制代码
社会主义核心价值观【有个字论坛不让写请自己改写】
  1. @echo off

  2. cd /d "%~dp0"

  3. set "dp=%~dp0"

  4. set "dp=%dp:\=\\%"

  5. set n=1

  6. 

  7. for /f "delims=" %%i in ('dir /b /s /a-d ^|find /v "%~f0" ^|findstr /rvibc:\\"%dp%[1-2][0-9][0-9][0-9]\\\\"') do (

  8.     for /f "tokens=1-2 delims=/" %%a in ("%%~ti") do (

  9.         setlocal

  10.         if "%%b" leq "01" (

  11.             call :1 "%%a年\1-富强" "%%i"

  12.         ) 

  13.         if "%%b" leq "02" (

  14.             call :1 "%%a年\2-**" "%%i"

  15.         ) 

  16.         if "%%b" leq "03" (

  17.             call :1 "%%a年\3-文明" "%%i"

  18.         ) 

  19.         if "%%b" leq "04" (

  20.             call :1 "%%a年\4-和谐" "%%i"

  21.         ) 

  22.         if "%%b" leq "05" (

  23.             call :1 "%%a年\5-自由" "%%i"

  24.         ) 

  25.         if "%%b" leq "06" (

  26.             call :1 "%%a年\6-平等" "%%i"

  27.         ) 

  28.         if "%%b" leq "07" (

  29.             call :1 "%%a年\7-公正" "%%i"

  30.         ) 

  31.         if "%%b" leq "08" (

  32.             call :1 "%%a年\8-法治" "%%i"

  33.         ) 

  34.         if "%%b" leq "09" (

  35.             call :1 "%%a年\9-爱国" "%%i"

  36.         ) 

  37.         if "%%b" leq "10" (

  38.             call :1 "%%a年\10-敬业" "%%i"

  39.         ) 

  40.         if "%%b" leq "11" (

  41.             call :1 "%%a年\11-诚信" "%%i"

  42.         ) 

  43.         if "%%b" leq "12" (

  44.             call :1 "%%a年\12-友善" "%%i"

  45.         )

  46.         endlocal

  47.     )

  48. )

  49. 

  50. for /f "delims=" %%i in ('dir /b /s /ad ^|sort /r') do (

  51.     rd "%%i" 2>nul

  52. )

  53. 

  54. :1

  55. md "%~1" 2>nul

  56. if not exist "%~1\%~n2%m%%~x2" (

  57.     move "%~2" "%~1\%~n2%m%%~x2"

  58.     exit /b

  59. )

  60. set /a n+=1

  61. set m=_%n%

  62. goto :1

  63. 

  64. exit
复制代码
1

评分人数

收藏 分享

zhengzhenhui

Rank: 2

帖子
93 
积分
147 
技术
1  
捐助
0  
注册时间
2024-4-11 
2楼
发表于 2024-7-26 15:47 | 只看该作者
按年份和月份
  1. @echo off

  2. cd /d "%~dp0"

  3. set "dp=%~dp0"

  4. set "dp=%dp:\=\\%"

  5. set n=1

  6. 

  7. for /f "delims=" %%i in ('dir /b /s /a-d ^|find /v "%~f0" ^|findstr /rvibc:\\"%dp%[1-2][0-9][0-9][0-9]\\\\"') do (

  8.     for /f "tokens=1-2 delims=/" %%a in ("%%~ti") do (

  9.         setlocal

  10.         set "month=%%b"

  11.         call :1 "%%a\%%b 月" "%%i"

  12.         endlocal

  13.     )

  14. )

  15. 

  16. for /f "delims=" %%i in ('dir /b /s /ad ^|sort /r') do (

  17.     rd "%%i" 2>nul

  18. )

  19. pause

  20. exit

  21. 

  22. :1

  23. md "%~1" 2>nul

  24. if not exist "%~1\%~n2%m%%~x2" (

  25.     move "%~2" "%~1\%~n2%m%%~x2"

  26.     exit /b

  27. )

  28. set /a n+=1

  29. set m=_%n%

  30. goto :1
复制代码
按年份+上半年和下半年
  1. @echo off

  2. cd /d "%~dp0"

  3. set "dp=%~dp0"

  4. set "dp=%dp:\=\\%"

  5. set n=1

  6. for /f "delims=" %%i in ('dir /b /s /a-d ^|find /v "%~f0" ^|findstr /rvibc:\\"%dp%[1-2][0-9][0-9][0-9]\\\\"') do (

  7. 	for /f "tokens=1-2 delims=/" %%a in ("%%~ti") do (

  8. 		setlocal

  9. 		if "%%b" leq "06" (

  10. 			call :1 "%%a\上半年" "%%i"

  11. 		) else (

  12. 			call :1 "%%a\下半年" "%%i"

  13. 		)

  14. 		endlocal

  15. 	)

  16. )

  17. for /f "delims=" %%i in ('dir /b /s /ad ^|sort /r') do (

  18. 	rd "%%i" 2>nul

  19. )

  20. pause

  21. exit

  22. 

  23. 	:1

  24. 	md "%~1" 2>nul

  25. 	if not exist "%~1\%~n2%m%%~x2" (

  26. 		move "%~2" "%~1\%~n2%m%%~x2"

  27. 		exit /b

  28. 	)

  29. 	set /a n+=1

  30. 	set m=_%n%

  31. 	goto :1
复制代码
按 年份+上下学期
  1. @echo off

  2. cd /d "%~dp0"

  3. set "dp=%~dp0"

  4. set "dp=%dp:\=\\%"

  5. set n=1

  6. for /f "delims=" %%i in ('dir /b /s /a-d ^|find /v "%~f0" ^|findstr /rvibc:\\"%dp%[1-2][0-9][0-9][0-9]\\\\"') do (

  7. 	for /f "tokens=1-2 delims=/" %%a in ("%%~ti") do (

  8. 		setlocal

  9. 		if "%%b" leq "06" (

  10. 			call :1 "%%a\上学期" "%%i"

  11. 		) else (

  12. 			call :1 "%%a\下学期" "%%i"

  13. 		)

  14. 		endlocal

  15. 	)

  16. )

  17. for /f "delims=" %%i in ('dir /b /s /ad ^|sort /r') do (

  18. 	rd "%%i" 2>nul

  19. )

  20. pause

  21. exit

  22. 

  23. 	:1

  24. 	md "%~1" 2>nul

  25. 	if not exist "%~1\%~n2%m%%~x2" (

  26. 		move "%~2" "%~1\%~n2%m%%~x2"

  27. 		exit /b

  28. 	)

  29. 	set /a n+=1

  30. 	set m=_%n%

  31. 	goto :1
复制代码

TOP

77七

Rank: 6Rank: 6

帖子
1592 
积分
2617 
技术
321  
捐助
50  
注册时间
2022-9-18 
3楼
发表于 2024-7-26 20:10 | 只看该作者
多个if可以这样写，提高效率。（我刚来论坛接触bat时，还是站长教我的）
  1. if "%%b" equ "01" (

  2. 	call :1 "%%a 年\1-白羊座" "%%i"

  3. ) else if "%%b" equ "02" (

  4. 	call :1 "%%a 年\2-金牛座" "%%i"

  5. )
复制代码



给一个模板，可以在6-8行自行定义。
  1. @echo off

  2. cd /d "%~dp0"

  3. set "dp=%~dp0"

  4. set "dp=%dp:\=\\%"

  5. set n=1

  6. for %%a in ("01=白羊座" "02=金牛座" "03=双子座" "04=巨蟹座" "05=狮子座" "06=处女座" "07=天秤座" "08=天蝎座" "09=射手座" "10=摩羯座" "11=水瓶座" "12=双鱼座") do (

  7. 	set _%%~a

  8. )

  9. for /f "delims=" %%i in ('dir /b /s /a-d ^|find /v "%~f0" ^|findstr /rvibc:\\"%dp%[1-2][0-9][0-9][0-9]\\\\"') do (

  10. 	for /f "tokens=1-2 delims=/" %%a in ("%%~ti") do (

  11. 		setlocal

  12. 		for /f "tokens=2 delims==" %%x in ('set _ ^|findstr "%%b"') do (

  13. 			call :1 "%%a\%%x" "%%i"

  14. 		)

  15. 		endlocal

  16. 	)

  17. )

  18. for /f "delims=" %%i in ('dir /b /s /ad ^|sort /r') do (

  19. 	rd "%%i" 2>nul

  20. )

  21. pause

  22. exit

  23. 

  24. 	:1

  25. 	md "%~1" 2>nul

  26. 	if not exist "%~1\%~n2%m%%~x2" (

  27. 		move "%~2" "%~1\%~n2%m%%~x2"

  28. 		exit /b

  29. 	)

  30. 	set /a n+=1

  31. 	set m=_%n%

  32. 	goto :1
复制代码
bat小白，请多指教！谢谢！

TOP

zhengzhenhui

Rank: 2

帖子
93 
积分
147 
技术
1  
捐助
0  
注册时间
2024-4-11 
4楼
发表于 2024-7-26 22:36 | 只看该作者
回复 3# 77七


    学到了，里面的子程序那个妙，多个if的应用，整体极限亚索啊，相比我写的屎山代码，不管长度，我的能运行起来就阿弥陀佛

TOP

zhengzhenhui

Rank: 2

帖子
93 
积分
147 
技术
1  
捐助
0  
注册时间
2024-4-11 
5楼
发表于 2024-7-26 22:44 | 只看该作者
回复 3# 77七


    我之前有测试过这种if写一起的，但是我给写到了第9行开始，但是一直运行不成功闪一下就没了，我放弃了，，，就从第9行底下续上了。。。。我用%%a去变量  又试着用%%b去定义，看你里面写到前面是先用一组变量定义文件夹含义，再去获取文件修改时间+里面的变量相呼应，对比之下应该是我逻辑搞错了

TOP

返回列表