Board logo

标题: [文件管理] 批处理版照片整理器[2008-10-12] [打印本页]

作者: namejm    时间: 2007-11-5 21:35     标题: 批处理版照片整理器[2008-10-12]



____________________________版主提醒____________________________

  为了避免影响技术讨论、提高看帖的舒适性,请大家不要在此帖下跟
无实质内容的口水帖,特别是纯顶、纯支持、纯感谢、路过之类的帖子,
管理人员将不定期清理此类回帖,请大家多参与讨论少灌水,与人方便,
终将给自己带来方便,谢谢合作。
________________________________________________________________



  最近相机里的照片比较多,一般是连拍了好几天之后,才把相机里的照片一股脑放到硬盘里,并且是隔上一两个星期才整理一次。日子一长,照片就多了起来,都分不清是什么时候拍的了。网上搜索了很久,找到一款名为PhotosTool的软件,可以按拍摄日期来整理照片,正合我意,只可惜,这个不到1M的小软件,居然要另外安装20余M的.NET 2.0,一气之下,用P写了一个类似功能的脚本,发出来大家玩玩。

  曾经有一段时间,单位资料室的电脑中毒很深,保存有数十G工作照片的分区也惨遭毒手——那可是我们单位几年工作的心血啊!资料室的人不敢轻举妄动,请了数据恢复公司的人把系统重装,把数据恢复到了移动硬盘上,结果,照片目录和修改日期全部错乱,对比较依靠照片修改日期来整理照片的我们而言,这无疑是一个沉重的打击。幸好有部分照片做了备份,而绝大部分的照片大致拍摄日期都有文字记录,资料室不得不动用最原始的方式,集中了一些人手,把照片一张一张点开,通过ACDSee查看exif信息里的拍摄日期来重新归类。如此整理了数月,才基本把照片放回正确的文件夹,但是,照片的修改日期仍然没法修正。本人翻遍网络,终于觅到一款能通过读取照片exif信息来对照片进行修改操作的命令行程序。经过本机的数十次测试,通过此命令行程序,完全可以把错乱的日期修改为照片的拍摄日期,于是,就有了照片整理器1.3版及其后续版本,具体功能可以查看脚本说明及更新历史。

  经过将近1年时间的逐步完善,目前,此工具已经具备了按照片exif信息中的拍摄时间或者像素大小整理照片的功能,并可以把照片的修改时间改为照片的拍摄时间,方便后续整理工作,强烈推荐使用。

  功能演示:

  注意:必须与附件中的 jhead.exe 一起使用。
  1. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2. :: 作者: namejm
  3. :: 出处: bbs.bathome.net
  4. :: 编写日期: 2007-10-29~2008-10-12
  5. :: 测试环境: CMD@WinXP SP2
  6. :: 功能:按照exif信息归类照片
  7. :: 详细介绍:
  8. ::   本脚本通过获取jpg或jpeg照片的exif信息归类图片,具备按照分辨率大小和
  9. :: 日期两种方式归类,并自动重命名同名文件,同时统计已经处理的照片数量。另外,
  10. :: 可以选择使用如下功能:
  11. ::   1、批量修正当前目录下及所有子目录中jpg或jpeg照片的修改日期为拍摄日期;
  12. ::   2、能把所有子目录里的图片移动到父目录下并删除父目录下的所有空目录。
  13. :: 注意:
  14. ::   本脚本会读取照片的exif信息,在按日期整理照片时,自动修正照片的修改时间
  15. :: 为照片的拍摄时间,时间精确到秒;没有exif信息的jpg或jpeg图片,修改时间保持
  16. :: 不变,此时,按照像素大小整理照片的功能不可正常使用,按照日期归类照片时依据
  17. :: 的是照片的最后修改日期。
  18. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  19. @echo off
  20. mode con lines=30
  21. set TT=照片整理器1.4
  22. color 1f
  23. :source
  24. title %TT%     当前目录:"%cd%"
  25. cls
  26. echo                             ╭─────────╮
  27. echo           ╭────────┤选择要整理的文件夹├─────────╮
  28. echo           │                ╰─────────╯                  │
  29. echo           │                                                        │
  30. echo           │         本程序能把指定路径下的jpg格式照片按照分辨率    │
  31. echo           │                                                        │
  32. echo           │    大小或者拍摄日期整理到如下格式的文件夹中:          │
  33. echo           │                                                        │
  34. echo           │        1 分辨率大小 (如 800×600)                    │
  35. echo           │                                                        │
  36. echo           │      2 年-月-日(如 2007-01-01)                     │
  37. echo           │                                                        │
  38. echo           │        3 月\日期(如 01\2007-01-01)                   │
  39. echo           │                                                        │
  40. echo           │        4 年\日期(如 2007\2007-01-01)                 │
  41. echo           │                                                        │
  42. echo           │        5 年\月\日期 (如 2007\01\2007-01-01)          │
  43. echo           │                                                        │
  44. echo           │      注意:本脚本在按照日期归类照片时,会自动修正    │
  45. echo           │                                                        │
  46. echo           │    照片的创建时间为照片exif信息中的拍摄时间,精确到    │
  47. echo           │                                                        │
  48. echo           │    秒。没有exif信息的jpg图片,修改时间保持不变。       │
  49. echo           │                                                        │
  50. echo           ╰────────────────────────────╯
  51. echo.
  52. echo            处理当前目录请直接回车                          退出请按 0
  53. echo           ──────────────────────────────
  54. set Source=
  55. set /p Source=              请把要处理的文件夹拖曳到本窗口:
  56. if not defined Source set "Source=%cd%"
  57. set "Source=%Source:"=%"
  58. if "%Source%"=="0" exit
  59. if not exist "%Source%\" goto source
  60. echo "%Source%"|find ":">nul 2>nul||set "Source=%cd%\%Source%"
  61. title %TT%     正在处理目录:"%Source:"=%"
  62. :fixtime
  63. cls
  64. echo                             ╭─────────╮
  65. echo           ╭────────┤修正照片的修改日期├─────────╮
  66. echo           │                ╰─────────╯                  │
  67. echo           │                                                        │
  68. echo           │         照片的拍摄时间包含在exif信息中,反映在原始     │
  69. echo           │                                                        │
  70. echo           │    照片文件中,就是照片的修改时间。                    │
  71. echo           │                                                        │
  72. echo           │      很不幸的是,照片的修改时间有时候并不是和exif    │
  73. echo           │                                                        │
  74. echo           │    信息中的拍摄时间完全吻合,比如:照片被编辑后、数    │
  75. echo           │                                                        │
  76. echo           │    据恢复后等等,从而导致在查看照片的修改时间时,难    │
  77. echo           │                                                        │
  78. echo           │    以判定照片的拍摄时间,在一些需要按照拍摄时间把资    │
  79. echo           │                                                        │
  80. echo           │    料归档的场合,这样的情形无疑是一种灾难。            │
  81. echo           │                                                        │
  82. echo           │      本功能可以把指定目录及其所有子目录下的照片修    │
  83. echo           │                                                        │
  84. echo           │    改时间重新设置为照片的拍摄时间——只要照片的exif    │
  85. echo           │                                                        │
  86. echo           │    信息没有被破坏掉。                                  │
  87. echo           │                                                        │
  88. echo           ╰────────────────────────────╯
  89. echo.
  90. echo            返回上一步请按 1                               退出请按 0
  91. echo           ──────────────────────────────
  92. set FixTime=
  93. set /p FixTime=            是否修正照片的修改时间为拍摄时间(是=Y 否=其他任意键):
  94. if not defined FixTime goto movesub
  95. set "FixTime=%FixTime:"=%"
  96. if "%FixTime%"=="0" exit
  97. if "%FixTime%"=="1" goto source
  98. if /i "%FixTime%"=="y" (
  99.     jhead -ft "%Source%\*.jp*g">nul 2>nul
  100.     for /f "delims=" %%i in ('dir /ad /b /s "%Source%" 2^>nul') do (
  101.         jhead -ft "%%i\*.jp*g">nul 2>nul
  102.         title %TT%     正在处理目录:"%%i"
  103.     )
  104. )
  105. :movesub
  106. cls
  107. echo.&echo.&echo.
  108. echo                             ╭─────────╮
  109. echo           ╭────────┤   预处理子目录   ├─────────╮
  110. echo           │                ╰─────────╯                  │
  111. echo           │                                                        │
  112. echo           │         如果当前目录的子目录中存在照片,而你需要把     │
  113. echo           │                                                        │
  114. echo           │    它们都放到父目录下,并删除父目录及其所有子目录下    │
  115. echo           │                                                        │
  116. echo           │    的空文件夹,那么,这个功能将是非常有用的。          │
  117. echo           │                                                        │
  118. echo           │      注意:此处的空文件夹是指删除父目录及其所有子    │
  119. echo           │                                                        │
  120. echo           │    目录下的Thumbs.db和*.ctg文件后形成的空文件夹,以    │
  121. echo           │                                                        │
  122. echo           │    及原本就存在的空文件夹。                            │
  123. echo           │                                                        │
  124. echo           ╰────────────────────────────╯
  125. echo.
  126. echo            返回上一步请按 1                                退出请按 0
  127. echo           ──────────────────────────────
  128. echo.
  129. set MoveSub=
  130. set /p MoveSub=            是否把照片移动到父目录下并删除空目录(是=Y 否=N):
  131. if not defined MoveSub goto movesub
  132. set "MoveSub=%MoveSub:"=%"
  133. if not defined MoveSub goto movesub
  134. if "%MoveSub%"=="0" exit
  135. if "%MoveSub%"=="1" goto source
  136. if /i "%MoveSub%"=="y" (
  137.     set num=0
  138.     set WhetherMove=M
  139.     for /f "delims=" %%i in ('dir /ad /b /s "%Source%\" 2^>nul') do (
  140.         for /f "delims=" %%j in ('dir /a-d /b /s "%%i\*.jp*g" 2^>nul') do (
  141.             set route=&set postfix=
  142.             setlocal enabledelayedexpansion
  143.             call :re_name "%%j" "%Source%" "%%~nj" "%%~xj"
  144.             move "%%j" "!Destination_1!">nul 2>nul
  145.             endlocal
  146.             set /a num+=1
  147.         )
  148.         title %TT%     正在处理文件:"%%i"
  149.     )
  150.     del /a /f /q /s "%Source%\Thumbs.db">nul 2>nul
  151.     del /a /f /q /s "%Source%\*.ctg">nul 2>nul
  152.     for /f "delims=" %%i in ('dir /ad /b /s "%Source%\"^|sort /r') do (
  153.         rd /q "%%i" 2>nul&title %TT%     处理文件:"%%i"
  154.     )
  155.     title %TT%     正在处理的目录:"%Source%"
  156.     echo.&call echo                 共处理了 %%num%% 张照片,按任意键继续...
  157.     pause>nul
  158. ) else if /i not "%MoveSub%"=="n" goto movesub
  159. :whethermove
  160. cls
  161. echo.
  162. echo                             ╭─────────╮
  163. echo           ╭────────┤   照片处理方式   ├─────────╮
  164. echo           │                ╰─────────╯                  │
  165. echo           │                                                        │
  166. echo           │         如果不想删除要处理文件夹下的照片,请选择复     │
  167. echo           │                                                        │
  168. echo           │    制功能;如果不保留原有的照片,请选择移动文件。      │
  169. echo           │                                                        │
  170. echo           │      注意:移动文件后,将会删除父目录下的所有空文    │
  171. echo           │                                                        │
  172. echo           │    件夹。此处的空文件夹是指删除父目录及其所有子目录    │
  173. echo           │                                                        │
  174. echo           │    下的Thumbs.db和*.ctg文件后形成的空文件夹,以及原    │
  175. echo           │                                                        │
  176. echo           │    本就存在的空文件夹。                                │
  177. echo           │                                                        │
  178. echo           │        另:同名文件将作重命名处理,具体方式为:在文    │
  179. echo           │                                                        │
  180. echo           │    件名后添加 -序号 。比如重命名为 abc-1.jpg          │
  181. echo           │                                                        │
  182. echo           ╰────────────────────────────╯
  183. echo.
  184. echo            返回上一步请按 1                                退出请按 0
  185. echo           ──────────────────────────────
  186. echo.
  187. set WhetherMove=
  188. set /p WhetherMove=                   移动文件还是复制文件(移动=M  复制=C):
  189. if not defined WhetherMove goto whethermove
  190. set "WhetherMove=%WhetherMove:"=%"
  191. if "%WhetherMove%"=="0" exit
  192. if "%WhetherMove%"=="1" goto movesub
  193. set flag=
  194. if /i "%WhetherMove%"=="M" set flag=1
  195. if /i "%WhetherMove%"=="C" set flag=1
  196. if not defined flag goto whethermove
  197. if /i "%MoveSub%"=="y" goto destination
  198. :whethersub
  199. echo.
  200. set WhetherSub=
  201. set /p WhetherSub=                   是否处理子目录(是=Y 否=N):
  202. if not defined WhetherSub goto whethersub
  203. set "WhetherSub=%WhetherSub:"=%"
  204. if /i "%WhetherSub%"=="0" exit
  205. if /i "%WhetherSub%"=="1" goto whethermove
  206. if /i "%WhetherSub%"=="y" (
  207.     set WhetherSub=/s
  208.     goto destination
  209. )
  210. if /i "%WhetherSub%"=="n" (
  211.     set WhetherSub=
  212.     goto destination
  213. )
  214. goto whethersub
  215. :destination
  216. echo.
  217. title %TT%     程序所在目录:"%cd%"
  218. set Destination=
  219. set /p Destination=          请输入保存路径(保存在程序所在目录下请直接回车):
  220. if not defined Destination set "Destination=%cd%"
  221. set "Destination=%Destination:"=%"
  222. if "%Destination%"=="0" exit
  223. if "%Destination%"=="1" goto whethermove
  224. echo "%Destination%"|find ":">nul 2>nul||set "Destination=%cd%\%Destination%"
  225. echo "%Destination%"|find /i "%Source%">nul 2>nul&&(
  226.     cls
  227.     for /l %%i in (1,1,7) do echo.
  228.     echo      为了不重复处理照片,不允许把保存路径设置到源文件所在目录下
  229.     echo.&echo                            请重新设置保存路径
  230.     echo.&echo.
  231.     goto destination
  232. )
  233. md "%Destination%" 2>nul
  234. :wise
  235. cls
  236. echo.&echo.&echo.&echo.&echo.
  237. echo                               ╭────────╮
  238. echo           ╭─────────┤  选择整理方式  ├─────────╮
  239. echo           │                  ╰────────╯                  │
  240. echo           │                                                        │
  241. echo           │         有两种整理方式可供选择:                       │
  242. echo           │                                                        │
  243. echo           │         a  按文件尺寸整理 (如800×600)               │
  244. echo           │                                                        │
  245. echo           │         b  按照拍摄日期整理(如2008-01-01)            │
  246. echo           │                                                        │
  247. echo           ╰────────────────────────────╯
  248. echo.
  249. echo            返回上一步请按 1                                退出请按 0
  250. echo           ──────────────────────────────
  251. echo.
  252. set Wise=
  253. set /p Wise=                                 请选择(a/b):
  254. if not defined Wise goto wise
  255. set "Wise=%Wise:"=%"
  256. if not defined Wise goto wise
  257. if "%Wise%"=="0" exit
  258. if "%Wise%"=="1" goto whethermove
  259. if /i "%Wise%"=="a" goto folders_dimesion
  260. if /i "%Wise%"=="b" goto folders_date
  261. goto wise
  262. :folders_dimesion
  263. cls
  264. for /l %%i in (1,1,10) do echo.
  265. echo                                正在处理中,请稍候...
  266. set num=0
  267. call :dimesion "%Source%"
  268. if defined WhetherSub (
  269.     for /f "delims=" %%i in ('dir /ad /b /s "%Source%" 2^>nul') do call :dimesion "%%i"
  270. )
  271. call :del_blank
  272. pause>nul&goto source
  273. :folders_date
  274. cls
  275. echo.&echo.&echo.
  276. echo                             ╭─────────╮
  277. echo           ╭────────┤  选择目录树格式  ├─────────╮
  278. echo           │                ╰─────────╯                  │
  279. echo           │                                                        │
  280. echo           │         在保存路径下,将建立以照片拍摄日期为名的文     │
  281. echo           │                                                        │
  282. echo           │    件夹,这些文件夹的目录树结构如下:                  │
  283. echo           │                                                        │
  284. echo           │      a 年-月-日(如 2007-01-01)                     │
  285. echo           │                                                        │
  286. echo           │        b 月\日期(如 01\2007-01-01)                   │
  287. echo           │                                                        │
  288. echo           │        c 年\日期(如 2007\2007-01-01)                 │
  289. echo           │                                                        │
  290. echo           │        d 年\月\日期 (如 2007\01\2007-01-01)          │
  291. echo           │                                                        │
  292. echo           ╰────────────────────────────╯
  293. echo.
  294. echo            返回上一步请按 1                                退出请按 0
  295. echo           ──────────────────────────────
  296. echo.
  297. set FoldersTree=
  298. set /p  FoldersTree=                                 请选择(a/b/c/d):
  299. if not defined FoldersTree goto folders_date
  300. set "FoldersTree=%FoldersTree:"=%"
  301. if "%FoldersTree%"=="0" exit
  302. if "%FoldersTree%"=="1" goto whethermove
  303. set choice=
  304. for %%i in (a b c) do if /i "%FoldersTree%"=="%%i" set choice=1
  305. if not defined choice goto folders_date
  306. cls
  307. for /l %%i in (1,1,10) do echo.
  308. echo                                正在处理中,请稍候...
  309. set num=0
  310. for /f "delims=" %%i in ('dir /a-d /b %WhetherSub% "%Source%\*.jp*g" 2^>nul') do (
  311.     set /a num+=1
  312.     jhead -ft "%%i">nul 2>nul
  313.     if defined WhetherSub (
  314.         for /f "delims=" %%j in ("%%i") do (
  315.             set str=%%~tj
  316.             set route=&set postfix=
  317.             setlocal enabledelayedexpansion
  318.             set str=!str:~0,10!
  319.             set Y=!str:~0,4!&set M=!str:~5,2!&set D=!str:~8,2!
  320.             if /i "%FoldersTree%"=="a" set Y=&set M=
  321.             if /i "%FoldersTree%"=="b" set Y=
  322.             if /i "%FoldersTree%"=="c" set M=
  323.             md "%Destination%\!Y!\!M!\!str!" 2>nul
  324.             if /i "%WhetherMove%"=="M" (
  325.                 call :re_name "%Source%\%%i" "%Destination%\!Y!\!M!\!str!" "%%~ni" "%%~xi"
  326.                 move "%%j" "!Destination_1!">nul 2>nul
  327.             ) else (
  328.                 call :re_name "%Source%\%%i" "%Destination%\!Y!\!M!\!str!" "%%~ni" "%%~xi"
  329.                 copy "%%j" "!Destination_1!">nul 2>nul
  330.             )
  331.             title %TT%     正在处理文件:"%%i"
  332.             endlocal
  333.         )
  334.     ) else (
  335.         for /f "delims=" %%j in ("%Source%\%%i") do (
  336.             set str=%%~tj
  337.             set route=&set postfix=
  338.             setlocal enabledelayedexpansion
  339.             set str=!str:~0,10!
  340.             set Y=!str:~0,4!&set M=!str:~5,2!&set D=!str:~8,2!
  341.             if /i "%FoldersTree%"=="a" set Y=&set M=
  342.             if /i "%FoldersTree%"=="b" set Y=
  343.             if /i "%FoldersTree%"=="c" set M=
  344.             md "%Destination%\!Y!\!M!\!str!" 2>nul
  345.             if /i "%WhetherMove%"=="M" (
  346.                 call :re_name "%Source%\%%i" "%Destination%\!Y!\!M!\!str!" "%%~ni" "%%~xi"
  347.                 move "%%j" "!Destination_1!">nul 2>nul
  348.             ) else (
  349.                 call :re_name "%Source%\%%i" "%Destination%\!Y!\!M!\!str!" "%%~ni" "%%~xi"
  350.                 copy "%%j" "!Destination_1!">nul 2>nul
  351.             )
  352.             title %TT%     正在处理文件:"%Source%\%%~nxi"
  353.             endlocal
  354.         )
  355.     )
  356. )
  357. call :del_blank
  358. pause>nul&goto source
  359. :dimesion
  360. :: 按照像素值在目的路径下建立文件夹
  361. for /f "tokens=2,3*" %%i in ('jhead -cs nul "%~1\*.jp*g" 2^>nul^|findstr /i "name Resolution" 2^>nul') do (
  362.     if "%%j"==":" (
  363.         set "Source=%%k"&set "name=%%~nk"&set postfix=%%~xk
  364.         title %TT%     正在处理文件:"%%k"
  365.     ) else (
  366.         setlocal enabledelayedexpansion
  367.         set "dimesion=%%j%%k"
  368.         set "dimesion=!dimesion:x =×!"
  369.         set "Destination=%Destination%\!dimesion!"
  370.         md "!Destination!" 2>nul
  371.         set route=&set postfix=
  372.         if /i "%WhetherMove%"=="M" (
  373.             call :re_name "!Source!" "!Destination!" "!name!" "!postfix!"
  374.             move "!Source!" "!Destination_1!">nul 2>nul
  375.         ) else (
  376.             call :re_name "!Source!" "!Destination!" "!name!" "!postfix!"
  377.             copy "!Source!" "!Destination_1!">nul 2>nul
  378.         )
  379.         endlocal
  380.         set /a num+=1
  381.     )
  382. )
  383. goto :eof
  384. :re_name
  385. if not defined route (
  386.     set "route=%~2"
  387.     set "filename=%~3"
  388.     set postfix=%~4
  389. )
  390. :re_name_loop
  391. if not exist "%route%\%filename%%-num%%postfix%" (
  392.     set "Destination_1=%route%\%filename%%-num%%postfix%"
  393.     set -num=&set _num=0
  394.     goto :eof
  395. ) else (
  396.     set /a _num+=1
  397.     call set "-num=-%%_num%%"
  398.     goto re_name_loop
  399. )
  400. goto :eof
  401. :del_blank
  402. if /i "%WhetherMove%"=="M" (
  403.     del /a /f /q /s "%Source%\Thumbs.db">nul 2>nul
  404.     del /a /f /q /s "%Source%\*.ctg">nul 2>nul
  405.     for /f "delims=" %%i in ('dir /ad /b /s "%Source%\"^|sort /r') do (rd /q "%%i" 2>nul)
  406.     rd /q "%Source%" 2>nul
  407. )
  408. title %TT%     当前目录:"%cd%"
  409. echo.&echo.&echo                        共处理了 %num% 张照片,按任意键继续...
  410. goto :eof
复制代码
更新历史:
  1. 更新历史:
  2. 2008.10.12
  3.   经 fastslz 提醒,增加了对jpeg格式的支持。
  4. 2008.9.3
  5.   添加了按照片分辨率大小归类的功能;为了避免重复整理,不再允许把整理后的
  6. 照片放到源文件所在目录下;精简了部分代码,使得效率有所提升;此为1.4版。
  7. 2008.8.29
  8.   修正了照片修改时间为拍摄时间时的一个错误:在处理其他路径下的照片时,不
  9. 能修改其他路径所有子目录下的照片修改时间,此错误是由于没有强制指定源文件路
  10. 径引起的。
  11. 2008.8.18
  12.   增添了通过读取照片exif信息修正照片的修改时间的功能,并且整理照片时,能
  13. 完全按照拍摄日期来归类照片,不再受照片最后修改时间的影响——前提是照片的
  14. exif信息没有丢失,代价是:使用了一个第三方命令行程序 jhead.exe。此为1.3版。
  15. 2008.4.15
  16.   修正了当程序位于A目录时不能把B目录下子目录中的照片移动到父目录的错误;
  17. 优化了一处处理流程;精简了少量代码;修改了部分提示信息;
  18. 2007.11.10
  19.   添加了按照 月\日期 格式整理照片的选项,调整了部分提示信息,此为1.2版
  20. 2007.11.7
  21.   对重名文件自动重命名,具体方式为在文件名后添加 -序号,例如:重命名
  22. 为 abc-1.jpg。此为1.1版。
  23. 2007.11.2
  24.   修正了不处理子目录时只创建文件夹而不复制/移动文件的错误,感谢somebody
  25. 的测试。
  26. 2007.11.1
  27.   美化了界面,修复了几处bug,增添了操作提示和移动照片后删除空文件夹的功能
  28. 2007.10.29
  29.   1.0 初具雏形
复制代码
jhead.exe下载地址:
http://bcn.bathome.net/s/tool/index.html?key=jhead
作者: somebody    时间: 2007-11-5 21:57

好多代码,正如你所说,看别人代码N辛苦.................
是有点作用,不过我没能用上的机会.........
能用上的朋友可有福气了......
纯支持!
作者: htysm    时间: 2007-11-6 08:01

不错,很喜欢,另外请教能不能写一个按照图片尺寸来分类的P处理,比如我只要1024x768的。WINDOWS的查找中没有这样的功能。
作者: namejm    时间: 2007-11-6 20:38

  纯P是无法查询图片尺寸的,VBS应该可以办到,可惜我还不会。
作者: smilediao    时间: 2007-11-7 22:50


相比之下我的代码真是太简单了,我的知识真是太少了!哎,我还是回家面壁去吧!

作者: Frank    时间: 2008-1-5 15:45

晕,好强...  居然一出就是两个...CHM反编译器..
作者: snowhack    时间: 2008-1-13 01:20     标题: 呵呵 你这东西是抄袭的吧?

  1. @echo off
  2. :: Code by JM 2006-12-17 CMD@XP
  3. :: 出处:
  4. mode con lines=28
  5. title 文件归类整理器-test
  6. ::===================================================================================
  7. :: 目的:
  8. ::
  9. ::     对当前目录及其所有子目录下的文件进行归类。
  10. ::
  11. :: 整理结果:
  12. ::
  13. ::   在当前目录及其子目录下,以该文件夹里的文件类型名为文件夹名,在该文件
  14. :: 所在目录下建立形如 exe文件、rar文件 之类的文件夹,不同类型的文件移动到
  15. :: 对应的文件夹下。
  16. ::   如果以后增添了新文件,再次运行本脚本时,若该位置已经存在对应的文件夹,
  17. :: 将把新添的文件保存在该文件夹下;若不存在对应的文件夹,将新建文件夹以保存
  18. :: 该文件。
  19. ::
  20. :: 已发现的问题:
  21. ::   ① move 命令无法移动 系统 或 隐藏 属性的文件;
  22. ::   ② 不会整理无类型的文件。
  23. ::
  24. :: 下一版将要实现的功能:
  25. ::
  26. ::   ① 对以当前目录为起点,指定层深的子目录进行整理;
  27. ::   ② 整理指定类型以外的文件。
  28. ::
  29. :: 更新历史:
  30. ::
  31. :: 06.12.17
  32. ::   修正了遇到无类型文件会自动退出的错误;更新了获取相对路径的代码,效率有所提升;
  33. ::
  34. :: 06.12.16
  35. ::   增添了如下功能(V1.1):
  36. ::     ① 能指定要处理的文件夹以及保存路径;
  37. ::     ② 能指定要整理的类型;
  38. ::     ③ 跳过已经整理的文件;
  39. ::
  40. :: 06.12.15
  41. ::   在只能整理当前目录下不同类型文件的基础上,写出了能对当前目录及其所有子目录下的
  42. :: 不同类型文件进行操作的代码,此为V1.0;
  43. ::===================================================================================
  44. :note
  45. cls
  46. title 文件归类整理器-说明
  47. echo                               ╭────────╮
  48. echo           ╭─────────┤  功 能 说  明  ├─────────╮
  49. echo           │                  ╰────────╯                  │
  50. echo           │                                                        │
  51. echo           │        本程序能对当前目录及其所有子目录下的文件进行    │
  52. echo           │                                                        │
  53. echo           │    归类,具体效果如下:                                │
  54. echo           │                                                        │
  55. echo           │        在当前目录及其子目录下,以该文件夹里的文件      │
  56. echo           │                                                        │
  57. echo           │    类型名为文件夹名,在该文件所在目录下建立形如        │
  58. echo           │                                                        │
  59. echo           │    exe文件、rar文件 之类的文件夹,不同类型的文件移     │
  60. echo           │                                                        │
  61. echo           │    动到对应的文件夹下,以保持原来的文件夹结构不变。    │
  62. echo           │                                                        │
  63. echo           │        如果以后增添了新文件,再次运行本脚本时,若      │
  64. echo           │                                                        │
  65. echo           │    该位置已经存在对应的文件夹,将把新添的文件保存      │
  66. echo           │                                                        │
  67. echo           │    在该文件夹下;若不存在对应的文件夹,将新建文件      │
  68. echo           │                                                        │
  69. echo           │    夹以保存该文件。                                    │
  70. echo           │                                                        │
  71. echo           ╰────────────────────────────╯
  72. echo.
  73. echo                                                按任意键进入下一步...
  74. pause>nul
  75. :config
  76. cls
  77. title 文件归类整理器-参数设置
  78. echo.
  79. echo.
  80. echo.
  81. echo.
  82. echo         请把要处理的文件夹拉到本窗口(直接回车将处理当前目录):
  83. echo.
  84. set "source_path=%cd%"
  85. set /p source_path=                 
  86. echo.
  87. echo          请输入保存位置绝对路径(直接回车将保存在源文件夹下):
  88. set destination_path=
  89. set /p destination_path=                 
  90. echo.
  91. echo             请输入要处理的文件类型,多个类型以空格分隔
  92. echo.
  93. echo                (如:rar exe;直接回车将处理所有类型):
  94. echo.
  95. set type_included=
  96. set /p type_included=                 
  97. if exist "%source_path:"=%" (
  98.     set "source_path=%source_path:"=%\"
  99. ) else goto config
  100. set "source_dir=%source_path:"=%"
  101. rem ======= 计算源文件夹的层深 =======
  102. set source_layers=0
  103. set "source_dir_tmp=%source_dir%"
  104. :get_source_layers
  105. set "source_dir_tmp=%source_dir_tmp:*\=%"
  106. set /a source_layers+=1
  107. if not "%source_dir_tmp%"=="" goto get_source_layers
  108. if defined destination_path set destination=yes
  109. for /f "delims=" %%i in ('dir /a-d /b /s /oe "%source_path%"') do (
  110.     set "nx_name=%%~nxi"
  111.     call :build_dir "%%~xi" "%%~dpi"
  112.     set file_type=%%~xi
  113.     set "source_path=%%~dpi"
  114. )
  115. goto :eof
  116. rem ======= 按文件类型创建文件夹 =======
  117. :build_dir
  118. set include=
  119. for %%i in (%type_included%) do if /i "%1"==".%%i" set include=yes
  120. if defined type_included if not defined include goto :eof
  121. set types=%1
  122. if %types%=="" goto :eof
  123. set types=%types:~2,-1%
  124. if not defined destination set destination_path=%2
  125. set "destination_path=%destination_path:"=%"
  126. if not "%destination_path:~-1%"=="\" set "destination_path=%destination_path%\"
  127. rem ======= 获取文件在源文件中的相对位置 =======
  128. set source_sub_path=%2
  129. set "source_sub_path=%source_sub_path:"=%"
  130. set num=0
  131. :get_source_sub_path
  132. set "source_sub_path=%source_sub_path:*\=%"
  133. set /a num+=1
  134. if not %num% equ %source_layers% goto get_source_sub_path
  135. rem ======= 获取文件所在路径的目录名 =======
  136. for /f "delims=" %%i in ("%destination_path:~0,-1%") do set "source_name=%%~nxi"
  137. :: 通过对比文件类型名和文件所在路径的目录名来判断哪些文件已经整理过
  138. if "%source_name%"=="%types%文件" goto :eof
  139. :: 判断文件所在位置是否发生了变化
  140. if %2=="%source_path%" (set chang_dir=) else set chang_dir=yes&set file_type=
  141. :: 判断要处理的文件是不是批处理文件自身
  142. if "%destination_path%%nx_name%"=="%~f0" (set file_self=yes) else set file_self=
  143. :: 判断文件类型是否发生了变化
  144. if /i "%1"=="%file_type%" (set same_type=yes) else set same_type=
  145. if not defined destination set source_sub_path=
  146. if not defined chang_dir (
  147.     if not defined file_self if not defined same_type md "%destination_path%%source_sub_path%%types%文件" 2>nul
  148. ) else (
  149.     if not defined file_self if not defined same_type md "%destination_path%%source_sub_path%%types%文件" 2>nul
  150. )
  151. if not defined file_self move /-y %2"%nx_name%" "%destination_path%%source_sub_path%%types%文件"
  152. goto :eof
  153. :: source_path:源文件夹路径
  154. :: source_layers:源文件夹的层深
  155. :: destination_path:目的文件夹路径
  156. :: include:要排除的文件类型
  157. :: destination:标志变量,用来判断是否指定目的文件夹路径
  158. :: nx_name:源文件的文件名和后缀名组合
  159. :: file_type:源文件的类型
  160. :: source_sub_path:源文件相对于源文件夹的路径
  161. :: source_path_tmp:源文件夹路径的临时变量
  162. :: source_name:源文件名
  163. :: source_name_tmp:源文件名临时变量
  164. :: chang_dir:判断文件夹是否发生变化的标志
  165. :: same_type:判断文件类型是否相同的变量
  166. :: file_self:判断是不是批处理文件自身的变量
  167. :: included:要处理的文件类型
  168. :: type_included:决定是否处理当前文件类型的标志
复制代码


你和这个批处理 异曲同工罢了
作者: youxi01    时间: 2008-1-13 08:32

哈哈,namejm就是你抄袭JM的嘛!!!哈哈哈哈
作者: namejm    时间: 2008-1-13 12:49

  在批处理代码的作者信息中,一般而言,JM==namejm^_^。
作者: 封印    时间: 2008-3-22 00:15

看到那么多代码,我都不想学了。。。。郁闷
作者: 每年达    时间: 2008-6-12 12:41

太强了,写了多长时间啊?佩服。。
作者: 杨风    时间: 2008-6-21 15:27

你真强!顶你!   
以后好好学习了
这样的东东还是要学习一下的
作者: Clark2505    时间: 2008-8-5 23:43

我一看到for和高级变量应用就晕,哪里有详细的讲解??
作者: 黑血柳丁    时间: 2008-8-7 17:18

我是新人,还希望板主多指教!我非常喜欢BAT,因为我觉得在哪面有无穷无尽的奥秘!
我现在是一名网络管理员,所以有很多不懂的地方,还希望大家的帮助。先谢谢了!
作者: namejm    时间: 2008-8-18 21:39     标题: 重大突破

2008.8.18
  增添了通过读取照片exif信息修正照片的修改时间的功能,并且整理照片时,能完全按照拍摄日期来归类照片,不再受照片最后修改时间的影响——前提是照片的exif信息没有丢失,代价是:使用了一个第三方命令行程序 jhead.exe 。
作者: 523066680    时间: 2008-8-18 21:45

原帖由 snowhack 于 2008-1-13 01:20 发表
@echo off
:: Code by JM 2006-12-17 [email=CMD@XP]CMD@XP[/email]
...


namejm的原作更新版……谁敢说抄袭,抓出来。种番薯!
作者: SmallK    时间: 2008-8-26 10:58

其实人家说jm抄袭也是情有可原的啊,谁让jm的名字全是字母呢!我的就好多了~哈哈……
作者: namejm    时间: 2008-8-29 10:06     标题: 修正一处错误

2008.8.29
  修正了照片修改时间为拍摄时间时的一个错误:在处理其他路径下的照片时,不
能修改其他路径所有子目录下的照片修改时间,此错误是由于没有强制指定源文件路
径引起的。请重新下载。
作者: namejm    时间: 2008-9-3 17:48     标题: 增添了按照分辨率大小整理照片的功能

  考虑到一些摄影人士的特殊需求,增添了按照分辨率大小整理照片的功能。这次更新细节如下:

2008.9.3
  添加了按照片分辨率大小归类的功能;为了避免重复整理,不再允许把整理后的
照片放到源文件所在目录下;精简了部分代码,使得效率有所提升;此为1.4版。
作者: sambodhi    时间: 2008-9-12 09:17

有个绿色小软叫NameExif也不错!
作者: wolongx    时间: 2008-9-13 00:47

在cnBeta上看到了,就过来了,确实是个很牛B的东东。
作者: vlongrong    时间: 2008-9-15 17:34

一直很喜欢批处理,这样的好贴怎能不顶,已经在用,很方便
作者: yyyxlxq    时间: 2008-9-21 21:21     标题: 怎么回事?

测  试  无  效  ?  !
作者: namejm    时间: 2008-9-21 22:34

  测试无效是什么样的状况?照片没有整理?整理出错?

  请注意使用的条件:
  1、必须是jpg格式的照片,不是jpg格式的图片无法整理,不是数码相机拍摄的照片整理会出错;
  2、如果使用的是1.2之后的版本,必须和jhead.exe一起使用,并且,jhead.exe必须和批处理文件位于同一目录下。
作者: xunaco    时间: 2008-9-27 12:21     标题: 看代码有个小问题

请问这个代码里
set "Source=%Source:"=%"
是什么意思
作者: youaiwuzhui    时间: 2008-10-2 14:25

支持楼主,现在准备把自己电脑里的照片也整理一下子
作者: 受教者    时间: 2008-10-3 22:53

不加密的原创,支持
学习中。。。。
作者: 受教者    时间: 2008-10-3 23:03     标题: 回复 53楼 的帖子

假设
set source= " bbs"
set "Source=%Source:"=%"
运行后得出来就是
source为bbs
也就是set "Source=%Source:"=%把source中的"这个去掉
又如@echo off
set a=bbs.verybat.cn
echo 替换前的值: "%a%"
set var=%a:.=伤脑筋%
echo 替换后的值: "%var%"
pause

解释set var=%a:.=伤脑筋%
    set命令 var变量名 字a是要进行字符替换的变量的值,"."为要替换的值,
"伤脑筋"为替换后的值!
执行后就会把变量%a%里面的"."全部替换为"伤脑筋"
作者: 406317577    时间: 2008-10-4 04:34

for命令太深奥了...其他的懂一点点
作者: yylogo    时间: 2008-10-7 23:31     标题: 难得的良师益友

昨天注册,你给我一瓢冷水,让我肃立。
今天参观,你给我一盏明灯,让我仰望。
明天的明天,希望有人超过你。青出于蓝而胜于蓝,愿带一个小徒弟吗?
作者: namejm    时间: 2008-10-7 23:57

  呵呵,在论坛发过帖的很多会员,基本上都被管理层当头棒喝过——因为我们论坛的管理比较严格,对各种违规行为毫不手软,希望约束随心所欲乱发帖的现象,为论坛日后的搜索提供最大的方便,在这一点上,希望各位会员多多理解,N年以后,大家定能体会到严格管理的好处的。

  青出于蓝而胜于蓝,这是永恒不变的真理,只要用心,超越前人是必然的,更何况本人最近诸事缠身,对批处理的投入已经大为减少,论坛里有望超越本人或已经超越本人的大有人在,“仰望”一词,折杀我也。批处理语法其实非常简单,只要掌握了for语句和变量延迟的用法,基本上可以做很多事情了,只要肯钻研,人人都可以自学成才,不必三磕九拜行拜师大礼,更何况,论坛里有一大批热心会员会及时帮助大家解决各种疑难,自学起来就更容易了。
作者: FORESTALL    时间: 2008-10-29 21:07

本来是到小众去找点软件的,结果兜兜转转来到这里。
首先看到的是老大的这款作品,幸福ing 。
作者: kennybao    时间: 2008-11-13 14:14

楼主很厉害,从CNDOS就知道了,现在这里发扬光大了。
作者: wtb2008    时间: 2008-11-25 21:42

谢谢,非常实用。在无忧看到了
作者: taotao    时间: 2008-12-21 10:11     标题: 太难了

这东西我不知道多久才能看懂
作者: codexman    时间: 2009-2-10 08:27


哈哈,namejm就是你抄袭JM的嘛!!!哈哈哈哈


看得出来.
作者: Batcher    时间: 2009-2-10 12:03     标题: 回复 37楼 的帖子

namajm和JM是同一个人
作者: kingjiege    时间: 2009-4-22 19:26     标题: 不错,呵呵

有创意啊,那就下载收藏了
作者: objsky    时间: 2009-5-7 17:17

刚刚到这里,觉得气氛不错,希望能学到东西,
作者: airpppp    时间: 2009-5-18 12:31

记得以前下过.今天搜遍了硬盘.什么时候不见了.再来支持下大大.
作者: wlsmen    时间: 2009-7-6 23:00

看不太懂哦3.
真是强大。
作者: gigiqb    时间: 2009-7-31 21:14

这也太强了吧,代码太多了
作者: peiran1988    时间: 2009-8-22 17:53     标题: 很强学习下

我正需要这些我这有很多照片都没整理不哦呢!
作者: maxdandy    时间: 2009-8-25 13:37     标题: 一点建议

使用了一下您的批处理版的照片整理器,觉得非常小巧高效,想请您再修改一下关于重名文件的处理,如果是EXIF信息是同一个时刻的重名文件,那么就只保留一个副本而不做加后缀保留更多副本的操作。因为我的照片很乱,有很多重复的备份,都加后缀重命名处理的话,很浪费而且重复照片太多。不知道能不能做这样的修改,真是太谢谢了!
作者: maxdandy    时间: 2009-8-25 14:24     标题: 补充一下

我的意思就是类似Photostool的那个重名文件的处理方式会好一些(有选择的余地)。
作者: namejm    时间: 2009-8-25 16:21

Re maxdandy:

  很高兴我写的这个小脚本能帮上你的忙。

  实际上,你这种情形已经涉及到重复文件或重名文件如何处理的问题,很有进一步深究的价值。

  对于重复文件,打算通过检测md5值的方式提取出来,仅保留其中的一个而删除其余的文件;对不重复但是有可能重名的文件,提供覆盖或重命名的选项。这两步都放在照片的预处理过程中,不知道是否恰当,希望各位能提一些建议。
作者: canyuexiaolang    时间: 2009-8-26 08:21

5个字:真的好强悍~~~NB人物
作者: maxdandy    时间: 2009-8-26 09:16

原帖由 namejm 于 2009-8-25 16:21 发表
Re maxdandy:

  很高兴我写的这个小脚本能帮上你的忙。

  实际上,你这种情形已经涉及到重复文件或重名文件如何处理的问题,很有进一步深究的价值。

  对于重复文件,打算通过检测md5值的方式提取出 ...


通过检测MD5确实是一种很彻底和精准的方案,我原来只想到比较EXIF信息,不得不佩服楼主思维的慎密。期待升级版本的发布。:)
作者: vinlam    时间: 2010-4-23 14:08

楼主辛苦了,学习。支持。
作者: Skybat    时间: 2010-7-1 17:48

先收藏 慢慢看!这是必须要经过的过程
作者: y2010t    时间: 2010-8-11 22:14

支持啊!
支持啊!
作者: hawke_911    时间: 2010-10-23 07:17

谢谢楼主分享这么好的东东!!
作者: rockets    时间: 2010-12-1 17:54

只要你用Win OS就可以把你想要的、繁琐的、累人的步骤简化  这就是bat的迷人之处
对于作者的想法 赞一个 !
作者: fane    时间: 2010-12-12 08:55

高人啊,这东西很实用的啊
作者: veek    时间: 2010-12-26 13:26

真是很强大的功能,感谢作者、
作者: imice    时间: 2011-3-12 09:45

我的神啊,楼主你太牛X了。
作者: liaobin    时间: 2011-3-31 21:17

LZ太强大了,收藏了,哈哈
作者: liusen    时间: 2011-4-10 21:26

15# namejm


好复杂啊......佩服
作者: gzdaren    时间: 2011-5-13 08:19

回帖是一种美德啊
作者: cggm    时间: 2011-5-19 13:04

我是新人,还希望板主多指教!我非常喜欢BAT,因为我觉得在哪面有无穷无尽的奥秘!
我现在是一名网络管理员,所以有很多不懂的地方,还希望大家的帮助。先谢谢了!
作者: Rasm    时间: 2011-6-25 18:20

10# 封印


那别学了,回家去把
作者: xslxslxsl    时间: 2011-10-26 22:38

代码好长啊,真是值得我去好好学习的了
作者: yzlsc    时间: 2012-3-10 13:18

LZ太牛了,望尘莫及。
作者: cjiabing    时间: 2012-3-13 22:23

回复 67# yzlsc


    呵呵,学学中规中矩的代码写法,学学作者的思路和用功,其他的你一样会。
作者: ydfan8888    时间: 2012-5-5 11:30

强大的功能
作者: hells    时间: 2012-8-31 01:47

这么多代码一看就不想学了
作者: lf052006    时间: 2012-11-29 22:33

确实不错,不过对我来说还有很多书要看啊
作者: starifly    时间: 2013-1-30 16:00

请问版主,麻烦一个问题请教:要实现二级目录,即“2012”-“2012-10-01”这样的树结构,需要如何修改代码。另外,选项D貌似没用,在选择树状结构的时候。
作者: wenlishasha    时间: 2013-2-26 17:10

O(∩_∩)O谢谢!!!
作者: 林小七    时间: 2013-3-18 18:22

厉害呀----我还差的远,伤心了
作者: an410398183    时间: 2013-5-13 18:10

楼主是我学习的目标,虽然现在连for都不会用.
作者: 1036671525    时间: 2013-7-16 15:56

看看高手编的吧,望而生畏啊~~
作者: yefeng007520    时间: 2013-10-24 13:53

看帖学习,回帖支持。。。。。。。。。
作者: wulikaixin    时间: 2013-12-1 23:35

回复 1# namejm


老大,辛苦了。附件中的   jhead 2.82.rar怎么不能下载了
作者: tt-xb    时间: 2014-1-12 10:44

这个好用吗?先复制下来看看
作者: 慕夜蓝化    时间: 2014-3-4 17:27

又能浏览了。。。。。。。。
作者: wyx567    时间: 2014-7-27 16:50

哪里有详细的讲解??
作者: llto521    时间: 2014-10-17 09:50

还在学习基础篇,mark下,仔细研究一下
作者: shelluserwlb    时间: 2014-11-20 08:11

对于代码很多的程序,强烈要求加注释。 对每一部的具体作用作一下说明,这样无论对于自己或者对于看你代码的人都是一种方便。
作者: zhaiw99    时间: 2015-1-19 17:53

专程跑来感谢版主大大,我单位的照片,9W多张啊,刚开始不知道有这个软件,人工整了一个月还没弄完,后来搜到PHOTO TOOL, 不好用,还会自己删文件,自从用了这个,一天事件全搞定,严重感谢!!!!!!!!!!!!!!!!!!!!
作者: 懒得勤快    时间: 2015-2-13 10:39

好东西值得学习!
作者: rsrm8087    时间: 2015-4-3 10:49

这个是不是太多了 ,看起有点困难
作者: shujutong    时间: 2015-6-18 15:01

真是厉害啊 佩服
作者: caw    时间: 2015-8-19 17:04

厉害啊,看来得多多学习才得
作者: g4idrijs    时间: 2015-11-12 17:21

大赞一个,加油。
作者: testzh    时间: 2016-2-15 16:39

回复 1# namejm


    谢谢
作者: citygun    时间: 2016-8-17 16:13

jhead 2.82.rar 的附件挂掉了,无法下载。
作者: go2cxgg    时间: 2016-10-3 01:32

很牛逼,很实用,汇报一个情况
我运行的时候,出现了一个bug,许多照片文件没能放到时间对应的目录里面去
试图修改,怕越改越乱。。。
作者: 344025466    时间: 2018-7-6 23:36

你真强!顶你!   
以后好好学习了
这样的东东还是要学习一下的
作者: hfxiang    时间: 2022-6-21 14:28

今天用楼主推荐的“jhead.exe -ft” 整理wx图片,真的十分管用。感谢。
之后再研究一下楼主的脚本,将在有裨益......
作者: pudu    时间: 2022-7-31 14:30

新手,学习积累中。
作者: xx/xx    时间: 2022-10-6 19:26

ddddddddddddddddddddddddddd




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2