Board logo

标题: 【已解决】按图片尺寸分类图片(30元) [打印本页]

作者: 李浩123    时间: 2022-3-13 22:53     标题: 【已解决】按图片尺寸分类图片(30元)

本帖最后由 李浩123 于 2022-3-14 08:44 编辑

例如文件夹1--
                   图片1.jpg(尺寸800*800)
                   图片2.jpg(尺寸800*800)
                   图片3.jpg(尺寸750*1000)
                   图片4.jpg(尺寸800*1200)

按图片尺寸分类图片
效果
文件夹1--
             800*800(文件夹)---
                               图片1.jpg(尺寸800*800)
                               图片2.jpg(尺寸800*800)
              750*1000(文件夹)---
                               图片3.jpg(尺寸750*1000)
              800*1200(文件夹)---
                               图片4jpg(尺寸800*1200)

谢谢老师
作者: zaqmlp    时间: 2022-3-13 23:04

  1. <# :
  2. cls&echo off&cd /d "%~dp0"
  3. powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
  4. pause
  5. exit
  6. #>
  7. Add-Type -AssemblyName 'System.Drawing';
  8. $files=@(dir -literal "."|?{(@(".jpg",".jpeg") -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])});
  9. for($i=0;$i -lt $files.length;$i++){
  10.     try{
  11.         $img=[System.Drawing.Image]::FromFile($files[$i].FullName);
  12.         $newfolder="{0}x{1}" -f $img.Width,$img.Height;
  13.         if(-not (test-path -literal $newfolder)){[void][IO.Directory]::CreateDirectory($newfolder);}
  14.         $img.Dispose();
  15.         $newfile=$newfolder+'\'+$files[$i].Name;
  16.         write-host ($files[$i].Name+' --> '+$newfolder);
  17.         move-item -literal $files[$i].FullName $newfile -force -ErrorAction SilentlyContinue;
  18.     }catch{}
  19. }
复制代码

作者: 李浩123    时间: 2022-3-14 00:36

回复 2# zaqmlp


    谢谢,问题解决了 已付款请查收,单号:2022031422001432711411648247




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2