（完结）+50，批量将JPG合并成PDF

hxc1995 · 发表于 2024-8-6 18:09:56

本帖最后由 hxc1995 于 2024-8-7 09:44 编辑

JPG名称为中文加数字，5级目录下，批量将按中文名称相同合并成一个PDF。
例如照片名称为：胡1.jpg、胡2.jpg、胡3.jpg、李.jpg、张1.jpg、张2.jpg；
成果为：胡.pdf、李.pdf、张.pdf

zaqmlp · 发表于 2024-8-6 20:18:52

本帖最后由 zaqmlp 于 2024-8-7 09:22 编辑

imagemagick下载

/*&cls&echo off&cd /d "%~dp0"
set "exefile=D:\ImageMagick\magick.exe"
if not exist "%exefile%" (echo;"%exefile%" not install or path error&goto end)
for /f "delims=" %%a in ('dir /ad/b/s') do (
pushd "%%a"
for /f "delims=" %%b in ('dir /a-d/b *.jpg 2^>nul^|cscript -nologo -e:jscript "%~f0"') do (
echo;"%%b*.jpg" --^> "%%b.pdf"
"%exefile%" "%%b*.jpg" "%%b.pdf"
>nul chcp 936
)
popd
)
:end
pause
exit
*/
var cn={};
while(!WSH.StdIn.AtEndOfStream){
var str=WSH.StdIn.ReadLine();
var m=str.match(/[\u4e00-\u9fa5]+/);
if(m && !(m[0] in cn)){WSH.echo(m[0]);cn[m[0]]=1}
}

复制代码

buyiyang · 发表于 2024-8-6 20:47:00

本帖最后由 buyiyang 于 2024-8-6 20:56 编辑

遍历目录合并jpg为pdf，保存为ansi编码的bat

<# :
@echo off
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /ad /s') do (
pushd "%%i"&&(
if exist *.jpg (
echo,%%i
powershell -c "gc '%~0' | Out-String | iex"
)
popd
)||set /p=%%i<nul
)
pause&exit
#>
[void][Reflection.Assembly]::LoadWithPartialName('System.Drawing')
function Img2Pdf($paramImgGroup) {
$listImg = New-Object 'System.Collections.ArrayList'
ForEach ($file In $groups[$paramImgGroup]) {
[void]$listImg.Add([Drawing.Image]::FromFile($file))
}
$docPrint = New-Object 'Drawing.Printing.PrintDocument'
$settingsPrint = New-Object 'Drawing.Printing.PrinterSettings'
$settingsPrint.PrinterName = 'Microsoft Print to PDF'
$settingsPrint.PrintToFile = $true
$settingsPrint.PrintFileName = $paramImgGroup + '.pdf'
$docPrint.PrinterSettings = $settingsPrint
$docPrint.DefaultPageSettings.Landscape = $true
$docPrint.add_PrintPage({
$imgCurrent = $listImg[0]
$ratioWidth = $_.MarginBounds.Width / $imgCurrent.Width
$ratioHeight = $_.MarginBounds.Height / $imgCurrent.Height
$ratioSelected = [Math]::Min($ratioWidth, $ratioHeight)
$widthNew = [int]($imgCurrent.Width * $ratioSelected)
$heightNew = [int]($imgCurrent.Height * $ratioSelected)
$_.Graphics.DrawImage($imgCurrent, ($_.MarginBounds.Left + ($_.MarginBounds.Width - $widthNew) / 2), ($_.MarginBounds.Top + ($_.MarginBounds.Height - $heightNew) / 2), $widthNew, $heightNew)
$imgCurrent.Dispose()
$listImg.RemoveAt(0)
If ($listImg.Count -gt 0) { $_.HasMorePages = $true } Else { $_.HasMorePages = $false }
})
$docPrint.Print()
$docPrint.Dispose()
}
$files = Get-ChildItem -Filter "*.jpg"
$groups = @{}
ForEach ($file In $files) {
$partChinese = [regex]::Match($file.Name, '^[\u4e00-\u9fff]+').Value
If ($partChinese) {
If (-not $groups.ContainsKey($partChinese)) {
$groups[$partChinese] = @()
}
$groups[$partChinese] += $file
}
}
ForEach ($group In $groups.Keys) {
Write-Output "分组：$group"
Img2Pdf -paramImgGroup $group
}

复制代码

77七 · 发表于 2024-8-7 00:03:43

我也用magick写了一个，第二次findstr 一直失败，找了很久的原因，最终发现magick会改变代码页，仅在此分享一下这个“趣事”。

@echo off
rem 保存为ansi
cd /d "%~dp0"
for /r /d %%d in (*) do (
pushd "%%d"
for /f "tokens=1* delims=1234567890." %%a in ('2^>nul dir /b /a-d *.jpg') do (
if not exist "%%a.pdf" (
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *.jpg ^|findstr /rixc:"%%a[0-9]*\.jpg"') do (
set name=%%i
set "num=!name:%%a=!"
set /a num+=10000
set #!num!=%%i
)
for /f "tokens=1* delims==" %%x in ('set #') do (
set str=!str! "%%y"
)
magick !str! "%%a.pdf"
chcp 936 >nul
endlocal
)
)
popd
)
pause

复制代码

hxc1995 · 发表于 2024-8-7 08:56:23

回复 3# buyiyang
大佬，你写的合出来的PDF排版不对，图片是竖向的，合成的PDF是横向的，有办法解决吗

hxc1995 · 发表于 2024-8-7 09:08:23

回复 2# zaqmlp
第一个文件夹成功了，后面一直报错

zaqmlp · 发表于 2024-8-7 09:27:05

回复 6# hxc1995 已修改

hxc1995 · 发表于 2024-8-7 09:44:20

本帖最后由 hxc1995 于 2024-8-7 09:47 编辑

回复 7# zaqmlp
OK,没问题了，已支付，能附赠一个批量修改照片名称中文部分吗？例如批量将张1、张2、张3改成陈1、陈2、陈3，还是5级目录下

zaqmlp · 发表于 2024-8-7 10:11:42

回复 8# hxc1995

<# :
cls&echo off&cd /d "%~dp0"&rem bat存为ANSI/GB2312编码
path %SYSTEMROOT%\System32\WindowsPowerShell\v1.0;%path%
set "current=%cd%"
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
pause
exit
#>
$rp=@("张=陈","刘=王");
$current=($env:current).trimend('\');
$files=@(dir -literal $current -recurse|?{('.jpg' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
$m=[regex]::match($files[$i].BaseName, '^[\u4e00-\u9fff]+');
if($m.Success){
for($j=0;$j -lt $rp.length;$j++){
$kw=$rp[$j].split('=');
if($m.groups[0].value -eq $kw[0]){
$newname=$files[$i].BaseName.replace($kw[0], $kw[1])+$files[$i].Extension;
$newfile=$files[$i].Directory.FullName.trimend('\')+'\'+$newname;
write-host ($files[$i].FullName+' --> '+$newname);
move-item -literal $files[$i].FullName $newfile -ErrorAction SilentlyContinue;
break;
}
}
}
}

复制代码

hxc1995 · 发表于 2024-8-7 15:38:15

回复 9# zaqmlp
太感谢了

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

（完结）+50，批量将JPG合并成PDF

浏览过的版块