找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 28909|回复: 6

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

[复制链接]
发表于 2015-4-14 16:41:00 | 显示全部楼层 |阅读模式
本帖最后由 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图片文件,其它文件不处理。

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2015-4-14 20:04:49 | 显示全部楼层
本帖最后由 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技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

 楼主| 发表于 2015-4-14 21:46:39 | 显示全部楼层
有点小问题哦,我测试了一个文件夹,有38张照片,有3个关键词,其中2个是特殊关键词,运行后的结果为:建立了2个子文件夹,这2个子文件夹里移进去了12张照片,还有12张照片被移到了D盘根目录,只有2张照片不动。按道理应该是14张照片不动哦,不能把照片移到D盘根目录去哦。希望帮改一下,谢谢大神!
发表于 2015-4-14 22:22:37 | 显示全部楼层
回复 4# zgbbin

  已在2楼更正
发表于 2015-4-14 23:07:44 | 显示全部楼层
本帖最后由 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技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

 楼主| 发表于 2015-4-15 12:13:09 | 显示全部楼层
感谢2位朋友的帮助
发表于 2015-4-16 16:33:01 | 显示全部楼层
楼主,你好会折腾老师呀!哈
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 08:47 , Processed in 0.023799 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表