[分享]批处理将文件名首列相同的文件归入以任一文件名作为文件夹名的文件夹内

77七 · 发表于 2024-7-20 14:42:52

本帖最后由 77七于 2024-7-20 14:46 编辑

三亚_2024_06_20-130616.jpg
三亚_2024_06_20-135001.jpg
三亚_2024_06_21-135003.jpg
青岛_2024_07_10-131023.jpg
青岛_2024_07_11-132825.jpg
昆明_2024_07_19-132805.jpg

复制代码

以上6张图片
我想创建文件夹 "三亚_2024_06_20-130616\"(任一即可，即 "三亚_2024_06_20-135001\"、"三亚_2024_06_21-135003\" 也可以)，并把三亚_*.jpg归入此文件夹
以此类推
特例
昆明只有一张，不创建文件夹，不归入。

效果如下：
归入前：

归入后：

77七 · 发表于 2024-7-20 14:44:46

@echo off
cd /d "%~dp0"
for /f "tokens=1* delims=_" %%a in ('dir /b /a-d "*_*.jpg"') do (
if not defined _"%%a" (
set _"%%a"=%%a_%%~nb
) else if exist "%%a_*.jpg" (
call md "%%_"%%a"%%"
call move "%%a_*.jpg" "%%_"%%a"%%"
)
)
pause

复制代码

zhengzhenhui · 发表于 2024-7-21 01:41:16

本帖最后由 zhengzhenhui 于 2024-7-21 01:50 编辑

有分隔符的情况下，如果文件夹名只取三亚青岛改如何写
昆明只有一张或者等于一张就不移入

77七 · 发表于 2024-7-21 02:09:03

回复 3# zhengzhenhui

@echo off
cd /d "%~dp0"
for /f "tokens=1* delims=_" %%a in ('dir /b /a-d "*_*.jpg"') do (
if not defined _"%%a" (
set _"%%a"=1
) else if exist "%%a_*.jpg" (
md "%%a"
move "%%a_*.jpg" "%%a"
)
)
pause

复制代码

zhengzhenhui · 发表于 2024-7-21 02:43:07

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d "*-*"') do (
set "filename=%%i"
for /f "tokens=1* delims=-" %%a in ("!filename!") do (
set "folderName=%%a"
if not exist "!folderName!" (
md "!folderName!"
)
move "%%i" "!folderName!"
)
)
endlocal
pause

复制代码

这个是只保留特殊符号左边的名称作文件夹并移入

		自动登录	找回密码
密码			注册

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

[文件操作] [分享]批处理将文件名首列相同的文件归入以任一文件名作为文件夹名的文件夹内