求教批处理如何把图片按照宽高比例分类？

盛世繁华 · 发表于 2022-12-11 00:28:48

现在有一些各种格式的图片，需要按照横向、竖向、正方形不同的宽高比例，创建并分到当前目录下的不同的文件夹。也就是宽高比＞1进横向文件夹，小于1进竖向文件夹，等于1的进方形文件夹。

bat能不能用来处理这个图片问题，当然能用powershell也行，感谢各位！！

77七 · 发表于 2022-12-11 01:58:06

本帖最后由 77七于 2022-12-11 02:07 编辑

@echo off
cd /d "%~dp0"
md "横向文件夹"
md "方形文件夹"
md "纵向文件夹"
for %%i in (*.jpg *.png *.bmp) do (
setlocal enabledelayedexpansion
for /f "tokens=2 delims=^=" %%a in ('ffprobe -show_frames "%%i" 2^>^&1 ^| find "width="') do ( set "w=%%a" )
for /f "tokens=2 delims=^=" %%a in ('ffprobe -show_frames "%%i" 2^>^&1 ^| find "height="') do ( set "h=%%a" )
if "!w!" gtr "!h!" move /y "%%i" "横向文件夹\."
if "!w!" equ "!h!" move /y "%%i" "方形文件夹\."
if "!w!" lss "!h!" move /y "%%i" "纵向文件夹\."
endlocal
)
pause

复制代码

需要用到ffprobe 添加到系统变量
保存为ansi格式，和图片放在一起

不会写，效率有点低...

盛世繁华 · 发表于 2022-12-11 02:06:38

回复 2# 77七 谢谢谢谢，赞！！！我也写了个笨的，放楼下吧哈哈哈

@echo off
setlocal enabledelayedexpansion
>tmp.vbs echo On Error Resume Next
>>tmp.vbs echo Set jFile = CreateObject("WIA.ImageFile"):jFile.LoadFile WScript.Arguments(0):WScript.Echo "W="^&jFile.Width:WScript.Echo "H="^&jFile.Height
cd /d %~dp0
set X=横图
set Y=纵图
set Z=方图

md "%X%" "%Y%" "%Z%" 2>nul
for /f "delims=""" %%i in ('dir /a-d /b /s ^|findstr /e "jpg jpeg png bmp gif webp apng"') do (
for /f "tokens=1,2" %%j in ('dir /tc "%%i" ^| findstr "%%~nxi"') do (
      for /f "delims=" %%a in ('cscript.exe //nologo tmp.vbs "%%i"') do set "%%a"
         if !W! GTR !H! move "%%i" "%X%"
         if !W! LSS !H! move "%%i" "%Y%"
         if !W! EQU !H! move "%%i" "%Z%"
   )
)
del tmp.vbs

盛世繁华 · 发表于 2022-12-11 02:09:31

回复 2# 77七 没想到你速度这么快，我找了好久好几个模板算是怼一块儿

77七 · 发表于 2022-12-11 02:16:38

回复 4# 盛世繁华
我是小白，不会写...写了10多分钟

盛世繁华 · 发表于 2022-12-11 03:11:45

回复 5# 77七 我弄了一下午

hfxiang · 发表于 2022-12-11 13:40:27

回复 1# 盛世繁华

如果只处理jpg及jpeg文件，也可用jhead（ http://bcn.bathome.net/tool/jhead.exe ）

@echo off
rem 保存为ANSI格式
cd /d "%~dp0"
md "横向文件夹" "方形文件夹" "纵向文件夹">nul
for /f "tokens=*" %%a in ('dir/s/b "*.jp*g"') do (
for /f "tokens=1-3 delims=:x " %%b in ('jhead -cs nul "%%~a"') do (
if "%%~b" EQU "Resolution" (
if %%c gtr %%d move /y "%%~a" "%~dp0横向文件夹"
if %%c equ %%d move /y "%%~a" "%~dp0方形文件夹"
if %%c lss %%d move /y "%%~a" "%~dp0纵向文件夹"
)
)
)

复制代码

盛世繁华 · 发表于 2022-12-12 11:35:37

:lol 回复 7# hfxiang

盛世繁华 · 发表于 2023-2-16 11:44:19

:victory: 回复 7# hfxiang

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

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

[文件操作] 求教批处理如何把图片按照宽高比例分类？