[其他] 新手 求帮忙写一个 批量缩放图片的bat

a5050554

放到很多图片的根目录  按照批量缩放50%

a5050554

idwma 发表于 2021-10-15 21:10

    谢谢

a5050554

回复  a5050554


nconvert.exe 和 test.bat 放在图片所在的目录下
Batcher 发表于 2021-10-15 21:45

    收到谢谢 哥

a5050554

没听懂意思 可以说得再详细些吗?
liuyu18195 发表于 2021-10-15 20:33

    您好，我的意思是 按照百分比比例批量缩放图片大小  比如缩放50%

Batcher

回复 1# a5050554


nconvert.exe 和 test.bat 放在图片所在的目录下
http://bcn.bathome.net/s/tool/index.html?key=nconvert

@echo off
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /s /a-d *.jpg *.png *.bmp') do (
    nconvert -quiet -overwrite -resize 50%% 50%% "%%i"
)
复制代码

idwma

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
Add-Type -AssemblyName "System.Drawing"
dir|?{$_.Extension -match "\.(jpg|jpeg|png|bmp|gif)"}|%{
$img = [System.Drawing.Image]::FromFile($_.name)
[int]$newWidth=$img.width/2
[int]$newHeight=$img.height/2
$bmpResized = New-Object System.Drawing.Bitmap($newWidth, $newHeight)
$graph = [System.Drawing.Graphics]::FromImage($bmpResized)
$graph.DrawImage($img, 0, 0, $newWidth, $newHeight)
$Codec = [System.Drawing.Imaging.ImageCodecInfo]::GetImageEncoders() | Where {$_.MimeType -eq 'image/jpeg'}
$ImageEncoder = [System.Drawing.Imaging.Encoder]::Quality
$encoderParams = New-Object System.Drawing.Imaging.EncoderParameters(1)
$encoderParams.Param[0] = New-Object System.Drawing.Imaging.EncoderParameter($ImageEncoder, 90)
$bmpResized.Save('new'+$_.name, $Codec, $($encoderParams))
}
复制代码

liuyu18195

没听懂意思 可以说得再详细些吗?