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

[文件操作] 好久不回来,分享个自己写的批处理相片整理工具

好久不回来,分享个自己写的相片整理工具
这个是今天整理文件偶然发现的,就和大家分享下..
没有使用第三方exe.....存p,win7  win8  win10通用...
纪念下我曾经的bat吧.  by:林小柒

论坛AV的画质,,,,,我也是醉了...
  1. @echo off&&setlocal enableextensions
  2. title PhotosMoves By:Seven&&color 0D
  3. MODE CON COLS=64 LINES=15
  4. set  mycolor="9ABCDEF"
  5. set "sevens=call :seven"&&set "end=@echo."
  6. set myName=%~n0
  7. if "%myName%" neq "se7en" (
  8. @echo. &&@echo.&&@echo               文件部分~损~坏,请将文件名修改为se7en后方可正常运行。
  9. @echo.         &&%sevens% D "                      By@林小柒   QQ:"&&%sevens% 9 "9"&&%sevens% A "8"&&%sevens% B "5"&&%sevens% C "3"&&%sevens% D "9"&&%sevens% E "0"&&%sevens% F "9"&&%sevens% A "2"&&%sevens% C "7"
  10. rename %0 se7en.bat
  11. pause>nul
  12. %0&exit
  13. )
  14. :f
  15. goto main
  16. :k
  17. set /p select="请选择要处理的类型:"
  18. if "%select%" == "1" goto f1
  19. if "%select%" == "2" goto f2
  20. if "%select%" == "3" goto f3
  21. if "%select%" == "4" goto f4
  22. if "%select%" == "5" goto f5
  23. if "%select%" == "6" exit
  24. goto f
  25. :f1
  26. for /r %%a in ("*.jpg") do set "t=%%~ta"&&call :movesByDd "%%a" %%t%%
  27. goto :dels
  28. :f2
  29. for %%a in ("*.jpg") do set "t=%%~ta"&&call :movesByDd "%%a" %%t%%
  30. goto :dels
  31. :f3
  32. for /r %%a in ("*.jpg") do set "t=%%~ta"&&call :movesByMm "%%a" %%t%%
  33. goto :dels
  34. :f4
  35. for %%a in ("*.jpg") do set "t=%%~ta"&&call :movesByMm "%%a" %%t%%
  36. goto :dels
  37. :f5
  38. @echo 把这个文件放到你要处理相片的目录下运行>D:\help.txt
  39. @echo 会按照照相的日期生成文件夹并且按照日期对相片进行移动或者分类>>D:\help.txt
  40. start notepad.exe "D:\help.txt"
  41. goto k
  42. :dels
  43. for /f "delims=" %%s in ('dir /s /ad /b') do rd /q "%%s" 2>nul 1>nul
  44. del /f /q "C:\help.txt" 2>nul 1>nul
  45. goto f
  46. :movesByDd
  47. set dates=%2&&call set dates=%%dates:/=-%%
  48. md %dates% 2>nul 1>nul
  49. move %1 %dates%
  50. set /a p=p+1
  51. goto :eof
  52. :movesByMm
  53. set dates=%2&&call set dates=%%dates:/=-%%&&call set dates=%%dates:~0,7%%
  54. md %dates% 2>nul 1>nul
  55. move %1 %dates%
  56. set /a p=p+1
  57. goto :eof
  58. :main
  59. cls
  60. %sevens% E "┌─────────────────────────────┐"&&%end%
  61. %sevens% E "│"&&%sevens% C "                  相片分类工具"&&%sevens% E "                            │"&&%end%
  62. %sevens% E "│"&&%sevens% A "              1.分类目录下所有相片(按天)"&&%sevens% E "                  │"&&%end%
  63. %sevens% E "│"&&%sevens% A "              2.分类当前目录下相片(按天)"&&%sevens% E "                  │"&&%end%
  64. %sevens% E "│"&&%sevens% A "              3.分类目录下所有相片(按月)"&&%sevens% E "                  │"&&%end%
  65. %sevens% E "│"&&%sevens% A "              4.分类当前目录下相片(按月)"&&%sevens% E "                  │"&&%end%
  66. %sevens% E "│"&&%sevens% A "              5.超级详细的帮助文档"&&%sevens% E "                        │"&&%end%
  67. %sevens% E "│"&&%sevens% A "              6.退出"&&%sevens% E "                                      │"&&%end%
  68. %sevens% E "│"&&%sevens% F "                         @Seven 2014-8-24"&&%sevens% E "                 │"&&%end%
  69. %sevens% E "│"&&%sevens% F "                               QQ:"&&%sevens% 9 "9"&&%sevens% A "8"&&%sevens% B "5"&&%sevens% C "3"&&%sevens% D "9"&&%sevens% E "0"&&%sevens% F "9"&&%sevens% A "2"&&%sevens% C "7"&&%sevens% E "              │"&&%end%
  70. %sevens% E "└─────────────────────────────┘"&&%end%
  71. if defined p echo ok.成功的分类了 %p% 张相片&&set /a p=0
  72. set files=nul
  73. set select=nul
  74. if not defined "%files%" set /p files="请拽入要处理的目录 6退出:"
  75. if "%files%" equ "6" exit
  76. if not exist "%files%" @call %sevens% A 文件路径不存在,任意键继续&&pause>nul&&goto main
  77. for %%a in ("%files%") do set "b=%%~aa"
  78. if defined b (if %b:~0,1% neq d (@echo 拽入的不是目录,任意键继续&&pause>nul&&goto main ))
  79. cd /d "%files%"
  80. goto k
  81. :seven
  82. pushd "%temp%"&set/p= <nul>"%~2"&findstr /a:%~1 .* "%~2" nul&del "%~2"&popd
复制代码
活着就是为了改变世界

回来看看~~~~~~
活着就是为了改变世界

TOP

大神有没有一键整理全盘图片jpep格式的然后默认输出指定文件夹

TOP

楼主现在从事哪方面了?

TOP

回复 4# 523066680

数据挖掘分析方面  主要使用java scala python....
1

评分人数

活着就是为了改变世界

TOP

这个好
最好能批处理一份低分辨率照片的文件夹,这样选照片会方便一些

TOP

返回列表