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

[文件操作] [已解决]如何根据关键词新建文件夹并把对应的图片放进去

[复制链接]
发表于 2018-4-12 10:53:19 | 显示全部楼层 |阅读模式
本帖最后由 fashionben 于 2018-4-13 09:06 编辑

目录下有以下内容
1.包含关键词的.txt文档一个。文档里每行一个关键词
2.各种格式图片.  jpg, jpeg, png. 图片名称中包含关键词

请问
1.如何根据txt文档中的关键词新建文件夹
2.把符合关键词的图片放进对应的文件中
多谢多谢!

举例
比如.txt文档中有关键词 A, B, C...
生成 文件夹A, 文件夹B,文件夹C,
然后图片名称含A的图片就提取到文件夹A
图片名称含B的图片就提取到文件夹B
图片名称含C的图片就提取到文件夹C

评分

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

查看全部评分

发表于 2018-4-12 16:32:27 | 显示全部楼层
本帖最后由 yhcfsr 于 2018-4-12 18:18 编辑
  1. @echo off
  2. for /f "delims=" %%a in ('type list.txt') do (
  3.         if not exist "%%a" md "%%a"
  4.         for /f "delims=" %%b in ('dir /a-d/s/b^|findstr /i "%%a"') do if not "%%~dpb"=="%%~fa" move /y "%%b" "%%a"
  5. )
复制代码

评分

参与人数 1技术 +1 收起 理由
fashionben + 1 乐于助人

查看全部评分

 楼主| 发表于 2018-4-12 17:21:06 | 显示全部楼层
回复 2# yhcfsr

感谢!!
我跑了一下。可以根据文本文档中的关键词建立了文件夹
但是图片没有提取到对应的文件夹
发表于 2018-4-12 18:20:01 | 显示全部楼层
本帖最后由 yhcfsr 于 2018-4-12 18:25 编辑

回复 3# fashionben


    2楼已修正。
    这是根据列表建立文件夹,每建一个文件夹就扫描全部文件,将符合要求文件移入新文件夹。
    还有一种方法是,扫描全部文件,将文件与列表进行比对,若文件与列表关键字匹配成功,建立文件夹,再将该文件移入。这种方法只会扫描一次文件,速度应该比上面的方法要快。

评分

参与人数 1技术 +1 收起 理由
fashionben + 1 乐于助人!技术牛

查看全部评分

发表于 2018-4-12 18:36:07 | 显示全部楼层
回复 4# yhcfsr


    用通配符不是更好
发表于 2018-4-12 20:43:52 | 显示全部楼层
很好的代码,做个记号
 楼主| 发表于 2018-4-13 09:04:23 | 显示全部楼层
非常棒!非常棒!
 楼主| 发表于 2018-4-13 09:14:57 | 显示全部楼层
回复  fashionben


    2楼已修正。
    这是根据列表建立文件夹,每建一个文件夹就扫描全部文件,将 ...
yhcfsr 发表于 2018-4-12 18:20


第二种方法思路不错!避免了多建文件夹又要删除的步骤!大神能否贴出代码?
发表于 2018-4-13 11:55:10 | 显示全部楼层
回复 8# fashionben
  1. @echo off
  2. for /f "delims=" %%a in ('dir /a-d/s/b') do (
  3.         set "var=%%a"
  4.         for /f %%b in (list.txt) do (
  5.                 setlocal enabledelayedexpansion
  6.                 if not "!var:%%b=!"=="!var!" (
  7.                         if not exist "%%b" md "%%b"
  8.                         move /y "%%a" "%%b"
  9.                 )
  10.                 endlocal
  11.         )
  12. )
复制代码

评分

参与人数 1技术 +1 收起 理由
fashionben + 1 牛人!

查看全部评分

 楼主| 发表于 2018-4-13 13:28:00 | 显示全部楼层
回复  fashionben
yhcfsr 发表于 2018-4-13 11:55



厉害!多谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-18 06:22 , Processed in 0.010927 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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