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

function cutImg {
    param (
        [parameter(Mandatory=$true)]$src,
        $top=0,$bottom=0,$left=0,$rigth=0
    )
    if(Test-Path -LiteralPath $src){$srcFile=[System.IO.FileInfo]::new($src)}else{Write-Host "路径错误";return}
    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($src) #源图片
    [int]$tagWidth=$srcBmp.Width*(1-$top/100-$bottom/100)
    [int]$tagHeight=$srcBmp.Height*(1-$left/100-$rigth/100)
    $srcRect=[System.Drawing.Rectangle]::new($srcBmp.Width*($left/100),$srcBmp.Height*($top/100),$tagWidth,$tagHeight) #源裁剪矩形
    $tagRect=[System.Drawing.Rectangle]::new(0,0,$tagWidth,$tagHeight) #目标矩形
    $tagBmp=[System.Drawing.Bitmap]::new($tagWidth,$tagHeight) #目标图片
    $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()
    Write-Host ($src+"`t处理完成!")
}
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
dir -Filter "*.jpg" -File | foreach {cutImg -src ($_.FullName) -top 10 -bottom 10 -left 10 -rigth 10}
pause
复制代码

@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}
复制代码

' &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
复制代码