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

[文件操作] [已解决]批处理如何检测关键词并建立文件夹,将图片放入到该文件夹内呢

本帖最后由 zgbbin 于 2015-4-15 12:13 编辑

"D:\待处理\" 目录下有多个文件夹,每个文件夹里都有jpg图片
"D:\特殊名称.txt"和"D:\所有名称.txt"里有多个关键词(一行一个)
"所有名称.txt"里包含"特殊名称.txt"里的关键词,
文件夹名称里可能包含“特殊名称.txt”里的关键词,但一定包含“所有名称.txt"里的关键词。

先检测每个文件夹名称里是否包含“特殊名称.txt”里的关键词,
如果不包含“特殊名称.txt”里的关键词则对该文件夹无操作;

如果包含“特殊名称.txt”里的关键词则对该文件夹执行如下操作
1.在该文件夹下建立以包含“特殊名称.txt”里的关键词为名称的子文件夹;
2.检测该文件夹包含"D:\所有名称.txt"里几个关键词,记为N个(N≥1),
  然后将该文件夹下的图片数量为成N等份,每个子文件夹里移进去1/N张;

例如:
文件夹A,不包含“特殊名称.txt”里的关键词,则不用管它;
文件夹B包含“特殊名称.txt”里的2个关键词“春天”、“秋天”,
则建立这2个子文件夹,继续检测到文件夹B包含“所有名称.txt"
里的3个关键词“春天”、“秋天”、“过年”,然后检测到图片有31张,
将图片分成3份,2个子文件夹“春天”、“秋天”各放入10张,剩下的11张不动。

注:只处理文件夹内的jpg/JPG图片文件,其它文件不处理。
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

本帖最后由 pcl_test 于 2015-4-14 22:36 编辑
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set "folder=D:\待处理"
  4. for /f "delims=" %%a in ('dir /ad /b "!folder!\"') do (
  5. set "fname=%%a"
  6. set /a n=m=s=0
  7. for /f "delims=" %%b in ('type "D:\特殊名称.txt"') do (
  8. if "!fname:%%b=!" neq "!fname!" (set /a n+=1 & md "!folder!\%%a\!n!%%b" 2>nul)
  9. )
  10. for /f "delims=" %%c in ('type "D:\所有名称.txt"') do (
  11. if "!fname:%%c=!" neq "!fname!" set /a m+=1
  12. )
  13. cd /d "!folder!\%%a"
  14. if !n! neq 0 (
  15. for %%d in (*.jpg) do set /a s+=1
  16. set /a r=s/m,z=0
  17. for %%i in (*.jpg) do (
  18. for /f "delims=" %%j in ('dir /ad /b "!m!*" 2^>nul') do set files=%%j
  19. if exist "!files!" (move "%%i" "!files!\" 2>nul)
  20. set /a z+=1
  21. if !z! == !r! (set z=0 &ren "!files!" "!files:~1!" 2>nul & set /a m-=1)
  22. )
  23. )
  24. )
  25. echo 完成!2秒后自动关闭
  26. ping 0 -n 3 >nul
  27. exit
复制代码
1

评分人数

TOP

有点小问题哦,我测试了一个文件夹,有38张照片,有3个关键词,其中2个是特殊关键词,运行后的结果为:建立了2个子文件夹,这2个子文件夹里移进去了12张照片,还有12张照片被移到了D盘根目录,只有2张照片不动。按道理应该是14张照片不动哦,不能把照片移到D盘根目录去哦。希望帮改一下,谢谢大神!

TOP

回复 4# zgbbin

  已在2楼更正

TOP

本帖最后由 cobat 于 2015-4-16 20:23 编辑
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /d %%a in ("d:\待处理\*") do (
  4.     set "$=%%~na"
  5.     pushd "%%a"
  6.     set/a "i=j=0"
  7.     for /f "usebackq delims=" %%b in ("d:\特殊名称.txt") do (
  8.         if "!$:%%b=!" NEQ "!$!" (
  9.             if !j! EQU 0 (
  10.                 for %%d in (*.jpg) do set/a "i+=1"
  11.                 for /f "usebackq delims=" %%c in ("d:\所有名称.txt") do (
  12.                     if "!$:%%c=!" NEQ "!$!" set/a "j+=1"
  13.                 )
  14.                 set/a "k=i/j"
  15.             )
  16.             md "%%b"
  17.             set "n=0"
  18.             for %%e in (*.jpg) do (
  19.                 set/a "n+=1"
  20.                 if !n! LEQ !k! move "%%e" "%%b"
  21.             )
  22.         )
  23.     )
  24. )
  25. pause
复制代码
1

评分人数

TOP

感谢2位朋友的帮助

TOP

楼主,你好会折腾老师呀!哈

TOP

返回列表