[文件操作] 批处理如何实现裁剪图片？

crownking1983

求助1000多张图片，宽度高度尺寸都不一样，想批量去掉每个图片最上面100像素和最下面200像素，如何实现批处理——

实例——
我有1000 多张图片 有1200*800的 有 1600*900的 还有 1366*768的 等等等等……
现在我要批处理去掉每个图片最上面100像素和最下面200像素，1200*800的变成1200*500的，1600*900的的变成1600*600的，1366*768的变成1366*468的 等等等等……

求像我这种宽度高度尺寸都不一样的原图片怎么批处理去掉每个图片最上面100像素和最下面200像素。

crownking1983

回复 2# tmplinshi


    非常感谢您 您这个太完美了！！而且言简意赅 解决了我的所有问题！感激大神！

crownking1983

回复 3# pcl_test


    就是说，我想让我处理后生成的文件与原图片相比质量无损。  （PS：我刚才用您的这个批处理命令处理了一个3M的超大原图 处理后的图片仅有900K大 很明显图片保存质量有很大的损耗）

crownking1983

回复 3# pcl_test


    高！实在是高！！我真是佩服的五体投地啊！！
但是大神 有个问题我想问下 这个BAT命令里 哪几行命令是设置处理后的图片文件的保存质量的？

pcl_test

<!-- :
@echo off
md ".\处理结果\" 2>nul
dir /b *.jpg|mshta "%~f0"
ping -n 2 0 >nul&exit /b
-->

<script language=vbs>
Dim Img,IP,file
Set fso = CreateObject("Scripting.FileSystemObject")
Set StdIn = fso.GetStandardStream(0)
Do While StdIn.AtEndOfStream<>true
    Set Img = CreateObject("WIA.ImageFile") 
    Set IP = CreateObject("WIA.ImageProcess")
    file = StdIn.ReadLine
    Img.LoadFile file
    If Img.Height>305 Then
        IP.Filters.Add IP.FilterInfos("Crop").FilterID  
        IP.Filters(1).Properties("Top") = 100
        IP.Filters(1).Properties("Bottom") = 200
        Set Img = IP.Apply(Img)  
        Img.SaveFile ".\处理结果\"&file
    End If
Loop
Msgbox "完成！"
</script>
<script>close()</script>
复制代码

tmplinshi

mogrify -crop +0+100 -crop +0-200 *.jpg
复制代码

mogrify.exe 是 ImageMagick 的工具之一，自己去搜索下载 ImageMagick。

或者这里下载: mogrify (ImageMagick 6.9.1--7 Q16 x86 2015-07-04).7z