[文件操作] [已解决]求批处理一批大小均不相同的图片，所有图片上下左右各切掉10%

crownking1983

我这里有四千多张图片，尺寸大小有1920*1080的 有1600*900的 还有1200*900的 甚至还有1692*728这样异形的。

求批处理这一批大小均不相同的图片，所有图片上下左右各切掉10%

我在百度上问过这个问题，有一个好心的高手给我了一个方案。他使用批处理加mogrify.exe批处理命令是 "mogrify -crop +0+0 -crop -0-0 *.jpg" 将0写成上下左右要分别残切的像素数值就可以了

但是他这个批处理命令是批量去掉文件夹内所有图片的指定像素 左X像素上X像素右X像素下X像素 可以实现统一尺寸图片的批处理 但是我的这几千张图不是统一尺寸的 所以到这里跪求高人给一个能所有图片自动按每张图比例的上下左右各切掉10%的批处理方案

跪求了 大神们！

went

回复 18# flashercs


    用过其他格式，发现生成文件太大，翻了几倍

flashercs

回复 6# went

用GDI处理图片要建议:
    1.新图片的dpi最好保持与原图片一致,比如原图是350dpi,新图也要是350dpi,而Graphics画出默认是96dpi
2.新图片jpeg的压缩率要保持与原图片一致或接近.而jpeg默认保存的压缩率是50%

crownking1983

回复 15# went


    太谢谢你了 大神 大神啊！！！

went

回复 13# crownking1983


    给你改成支持2.0的了,记得用ansi保存

flashercs

保存为 "图片剪裁.bat",能处理当前目录和所有子目录中的图片,直接覆盖原图. 先测试.

' &cls&@cscript -nologo -e:vbscript "%~f0" "%~dp0" & pause & exit /b
' 脚本功能:剪裁图片-Crop Image, 四周剪裁10%,并覆盖源文件
' 用法:script.vbs file1 file2 ... folder1 folder2 ...
Option Explicit
On Error Resume Next
If WScript.Arguments.Count = 0 Then
  WScript.Echo "参数个数不能为0"
  WScript.Quit 1
End If

Const conIMAGETYPES = "|jpg|jpeg|png|bmp|tiff|gif|" ' 图片类型列表
Const conRECURSE = True ' 是否遍历子目录
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
With CreateObject("WScript.Shell")
  .CurrentDirectory = fso.GetParentFolderName(WScript.ScriptFullName)
End With 

Dim Img 'As ImageFile
Dim IP 'As ImageProcess
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
IP.Filters.Add IP.FilterInfos("Crop").FilterID
ShowError

Dim i,strArgi
For i = 0 To WScript.Arguments.Count - 1
  strArgi = WScript.Arguments(i)
  If fso.FileExists(strArgi) Then
    GenFile fso.GetFile(strArgi)
  ElseIf fso.FolderExists(strArgi) Then
    GenFolder fso.GetFolder(strArgi)
  Else
    WScript.Echo "找不到文件或目录:" & strArgi 
  End If
Next
ShowError
Set fso = Nothing
Set Img = Nothing
Set IP = Nothing
WScript.Quit 0

' Sub functions
Sub GenFile(objFile)
  On Error Resume Next
  If InStr(1,conIMAGETYPES,"|" & fso.GetExtensionName(objFile.Name) & "|",vbTextCompare) Then
    WScript.Echo "处理图片:" & objFile.Path
    CropImage objFile.Path,objFile.Path
  Else
   ' WScript.Echo "未处理图片:" & objFile.Path
  End If
  ShowError
End Sub

Sub GenFolder(objFolder)
  On Error Resume Next
  Dim objFile,objSubFolder
  ' WScript.Echo "处理目录:" & objFolder.Path
  For Each objFile In objFolder.Files
    GenFile objFile
  Next
  If conRECURSE Then
    For Each objSubFolder In objFolder.SubFolders
      GenFolder objSubFolder
    Next
  End If
  ShowError
End Sub

Sub CropImage(strImageSrc,strImageDst)
  On Error Resume Next
  Img.LoadFile strImageSrc
  IP.Filters(1).Properties("Left") = Img.Width \ 10
  IP.Filters(1).Properties("Top") = Img.Height \ 10
  IP.Filters(1).Properties("Right") = Img.Width \ 10
  IP.Filters(1).Properties("Bottom") = Img.Height \ 10
  Set Img = IP.Apply(Img)
  If fso.FileExists(strImageDst) Then
    fso.DeleteFile strImageDst,True
  End If
  Img.SaveFile strImageDst
  ShowError
End Sub

Sub ShowError()
  If Err.Number <> 0 Then
    WScript.Echo "Err # " & Err.Number & vbNewLine & _
    "Description: " & Err.Description & vbnewline & _
    "Source: " & Err.Source
    Err.Clear
  End If
End Sub
复制代码

crownking1983

大神 升级了之后 现在运行提示的是上面的内容了。而且 必须要在与图片同级目录下运行。放在文件夹外面运行的话，运行后直接就关闭了。

crownking1983

回复 10# went


    大神 升级了之后 现在运行提示的是以下内容了。而且 必须要在与图片同级目录下运行。
方法调用失败，因为 [System.IO.FileInfo] 不包含名为“new”的方法。
所在位置 行:6 字符: 71
+     if(Test-Path -LiteralPath $src){$srcFile=[System.IO.FileInfo]::new <<<< (
$src)}else{Write-Host "路径错误";return}
    + CategoryInfo          : InvalidOperation: (new:String) [], RuntimeExcept
   ion
    + FullyQualifiedErrorId : MethodNotFound

方法调用失败，因为 [System.Drawing.Rectangle] 不包含名为“new”的方法。
所在位置 行:13 字符: 45
+     $srcRect=[System.Drawing.Rectangle]::new <<<< ($srcBmp.Width*($left/100),
$srcBmp.Height*($top/100),$tagWidth,$tagHeight) #源裁剪矩形
    + CategoryInfo          : InvalidOperation: (new:String) [], RuntimeExcept
   ion
    + FullyQualifiedErrorId : MethodNotFound

方法调用失败，因为 [System.Drawing.Rectangle] 不包含名为“new”的方法。
所在位置 行:14 字符: 45
+     $tagRect=[System.Drawing.Rectangle]::new <<<< (0,0,$tagWidth,$tagHeight)
#目标矩形
    + CategoryInfo          : InvalidOperation: (new:String) [], RuntimeExcept
   ion
    + FullyQualifiedErrorId : MethodNotFound

方法调用失败，因为 [System.Drawing.Bitmap] 不包含名为“new”的方法。
所在位置 行:15 字符: 41
+     $tagBmp=[System.Drawing.Bitmap]::new <<<< ($tagWidth,$tagHeight) #目标图
片
    + CategoryInfo          : InvalidOperation: (new:String) [], RuntimeExcept
   ion
    + FullyQualifiedErrorId : MethodNotFound

使用“1”个参数调用“FromImage”时发生异常:“值不能为空。
参数名: image”
所在位置 行:16 字符: 44
+     $g=[System.Drawing.Graphics]::FromImage <<<< ($tagBmp) #画笔
    + CategoryInfo          : NotSpecified: ( [], MethodInvocationException
    + FullyQualifiedErrorId : DotNetMethodException

不能对值为空的表达式调用方法。
所在位置 行:17 字符: 17
+     $g.DrawImage <<<< ($srcBmp,$tagRect,$srcRect,[System.Drawing.GraphicsUnit
]:ixel)
    + CategoryInfo          : InvalidOperation: (DrawImage:String) [], Runtime
   Exception
    + FullyQualifiedErrorId : InvokeMethodOnNull

不能对值为空的表达式调用方法。
所在位置 行:18 字符: 17
+     $tagBmp.Save <<<< (($srcFile.DirectoryName+"\"+$srcFile.BaseName+"_cut"+$
srcFile.Extension),[System.Drawing.Imaging.ImageFormat]::Jpeg)
    + CategoryInfo          : InvalidOperation: (Save:String) [], RuntimeExcep
   tion
    + FullyQualifiedErrorId : InvokeMethodOnNull

不能对值为空的表达式调用方法。
所在位置 行:20 字符: 20
+     $tagBmp.Dispose <<<< ()
    + CategoryInfo          : InvalidOperation: (Dispose:String) [], RuntimeEx
   ception
    + FullyQualifiedErrorId : InvokeMethodOnNull

D:\0.系统文档桌面\桌面\新建文件夹 (4)\1\0003.jpg        处理完成!
请按任意键继续. . .

crownking1983

回复 10# went


大神 你说的没错 我的版本是2.0的 可能的确是版本低了 我明天起床下载个5.1版本的吧 谢谢你啊

went

回复 9# crownking1983


    改了点,你运行后截图看看提示什么
可能你powershell版本太低了

crownking1983

回复 8# went


你好大神 我已经保存为ANSI编码形式 运行后也是不行的 和前面的问题相同一模一样 我是不是电脑里少安装了什么软件

went

回复 7# crownking1983


    编辑,另存为ansi编码,试试

crownking1983

回复 6# went


你好大神 我使用了 提示这样的错误 然后使用后也无任何变化 请问是哪里出错了呢？

went

@echo off
powershell -version 2.0 -c ("&{Get-Content '%~0' | Select-Object -Skip 3 | Out-String | Invoke-Expression}")
pause&exit
function cutImg {
    param (
        [parameter(Mandatory=$true)]$srcFile, #源图片
        $top=0,$bottom=0,$left=0,$rigth=0 #裁剪百分比: 上 下 左 右
    )
    if(($top -lt 0) -or ($bottom -lt 0) -or ($left -lt 0) -or ($rigth -lt 0)){Write-Host "参数小于零";return}
    if(($top+$bottom) -ge 100){Write-Host "高为零";return}
    if(($left+$right) -ge 100){Write-Host "款为零";return}
    $srcBmp=[System.Drawing.Bitmap]::FromFile($srcFile.FullName) #源图片
    [int]$tagWidth=$srcBmp.Width*(1-$left/100-$rigth/100)
    [int]$tagHeight=$srcBmp.Height*(1-$top/100-$bottom/100)
    $srcRect=[System.Drawing.Rectangle]::FromLTRB($srcBmp.Width*($left/100),$srcBmp.Height*($top/100),$tagWidth+$srcBmp.Width*($left/100),$tagHeight+$srcBmp.Height*($top/100)) #源裁剪矩形
    $tagRect=[System.Drawing.Rectangle]::FromLTRB(0,0,$tagWidth,$tagHeight) #目标矩形
    $tagBmp=New-Object "System.Drawing.Bitmap" -ArgumentList @($tagWidth,$tagHeight) #目标图片
    [System.Drawing.Graphics]$g=[System.Drawing.Graphics]::FromImage($tagBmp) #画笔
    $g.DrawImage($srcBmp,$tagRect,$srcRect,[System.Drawing.GraphicsUnit]::Pixel)
    $tagBmp.Save(($srcFile.DirectoryName+"\"+$srcFile.BaseName+"_cut"+$srcFile.Extension),[System.Drawing.Imaging.ImageFormat]::Jpeg)
    $srcBmp.Dispose()
    $tagBmp.Dispose()
    [System.GC]::Collect(0,[System.GCCollectionMode]::Forced) #释放资源
    Write-Host ($srcFile.FullName+"`t处理完成!")
    Start-Sleep -Milliseconds 10
}
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
dir -Path . -Filter "*.jpg" -Recurse | foreach {cutImg -srcFile $_ -top 10 -bottom 10 -left 10 -rigth 10}
复制代码

改了下,存为bat文件运行,生成的图片在图片文件夹下,名称有个cut

went

回复 3# crownking1983


    你电脑上有powershell吗