[文本处理] 【已解决】求图片转PDF的批处理

daijt

要求把当前文件夹的所有图片（包括JPG和PNG格式）转换成1个PDF文件，并以当前文件夹的名字命名。

Batcher

回复 33# daijt


自动判断.bat

@echo off
chcp 65001 >nul
cd /d "%~dp0"
set "path=E:\ImageMagick;%path%"
for %%i in ("%~f0\..") do (
    echo magick.exe "*.jpg" "*.png" "%%~nxi.pdf"
    if exist "*.jpg" (
        if exist "*.png" (
            magick.exe "*.jpg" "*.png" "%%~nxi.pdf"
        ) else (
            magick.exe "*.jpg" "%%~nxi.pdf"
        )
    ) else if exist "*.png" (
        magick.exe "*.png" "%%~nxi.pdf"
    )
)
复制代码

daijt

回复 25# Batcher


    大神，按照25楼的能用，但是出现了新的情况，就是文件夹里面如果没有PNG的图片，只有JPG的，那么就运行失败 ，或者只有JPG的 没有NPG的也失败， 现在能不能改成2个批处理，一个只运行JPG的，一个只运行NPG的。

这是您 之前的代码

@echo on
chcp 65001 >nul
cd /d "%~dp0"
set "path=E:\ImageMagick;%path%"
dir /b /a-d "E:\ImageMagick\*.exe"
dir /b /a-d "*.jpg" "*.png"
for %%i in ("%~f0\..") do (
    echo magick.exe "*.jpg" "*.png" "%%~nxi.pdf"
    magick.exe "*.jpg" "*.png" "%%~nxi.pdf"
)

daijt

回复 31# Batcher



E:\桌面\PDF>set "path=E:\ImageMagick;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Windows\System32\OpenSSH\;C:\Program Files (x86)\NVIDIA Corporation\PhysX\Common;C:\Users\bei\AppData\Local\Microsoft\WindowsApps;"

E:\桌面\PDF>dir /b /a-d "E:\ImageMagick\*.exe"
compare.exe
composite.exe
conjure.exe
convert.exe
dcraw.exe
ffmpeg.exe
identify.exe
IMDisplay.exe
magick.exe
mogrify.exe
montage.exe
stream.exe

E:\桌面\PDF>dir /b /a-d "*.jpg" "*.png"
t0138d6677f0fa4a085.jpg
t01fffbfccbc800417d.jpg
t019a5968af75c7f6f6.png

E:\桌面\PDF>for %i in ("E:\桌面\PDF\test-2.bat\..") do (
echo magick.exe "*.jpg" "*.png" "%~nxi.pdf"
magick.exe "*.jpg" "*.png" "%~nxi.pdf"
)

E:\桌面\PDF>(
echo magick.exe "*.jpg" "*.png" "PDF.pdf"
magick.exe "*.jpg" "*.png" "PDF.pdf"
)
magick.exe "*.jpg" "*.png" "PDF.pdf"

E:\桌面\PDF>
可以用了  谢谢

Batcher

回复 30# daijt


    请按照25楼的步骤再来一次截图。确保你的文件夹下有jpg和png两种图片。

daijt

回复 29# Batcher


    这回下载对了但是还是不能用

Batcher

回复 28# daijt


https://imagemagick.org/archive/binaries/ImageMagick-7.1.1-19-portable-Q16-HDRI-x64.zip
你确定用的是这个下载链接吗？
这个不需要安装，它是一个zip压缩包，下载之后直接解压缩就行了。

daijt

回复 19# Batcher


    我是你给的这个  你下载这个版本试试：ImageMagick-7.1.1-19-portable-Q16-HDRI-x64.zip
https://imagemagick.org/script/download.php#windows
网站下载的是不是安装少点了什么

Batcher

回复 26# daijt


你下载的不对
正常的 ImageMagick-7.1.1-19-portable-Q16-HDRI-x64.zip 解压缩之后应该有这些exe文件：
compare.exe
composite.exe
conjure.exe
convert.exe
dcraw.exe
ffmpeg.exe
identify.exe
IMDisplay.exe
magick.exe
mogrify.exe
montage.exe
stream.exe

daijt

回复 25# Batcher


   

Batcher

回复 24# daijt


test-2.bat
保存为UTF-8编码
执行截图发出来看看

@echo on
chcp 65001 >nul
cd /d "%~dp0"
set "path=E:\ImageMagick;%path%"
dir /b /a-d "E:\ImageMagick\*.exe"
dir /b /a-d "*.jpg" "*.png"
for %%i in ("%~f0\..") do (
    echo magick.exe "*.jpg" "*.png" "%%~nxi.pdf"
    magick.exe "*.jpg" "*.png" "%%~nxi.pdf"
)
复制代码

daijt

回复 21# Batcher


    还是放在 E:\ImageMagick 没找到生成的PDF文件  我尝试打开  ImageMagick 里面的2个应该程序   hp2xx  和   imdisplay   一个是上面的样子，  imdisplay 打开后一拉进照片就退出了

daijt

回复 22# terse


    你的这个可以转PDF 就是 他把2张JPG的转一个上面，还有没有全屏，画面缩小了

terse

如今含中文故保存文件编码为ANSI试
另外 这个要看你什么系统 还有就是要Microsoft Office支持

<# :
@echo off
powershell -noprofile -NoLogo "iex(${%~f0}|out-string)"
pause
exit 
#>
$folderPath = 'E:\桌面\PDF'
$folderName = Split-Path $folderPath -Leaf
$word = New-Object -ComObject Word.Application
$doc = $word.Documents.Add()
Get-ChildItem -Path $folderPath\* -File -Include *.jpg,*.png | % {
    [void]$doc.InlineShapes.AddPicture($_.FullName)
}

$doc.SaveAs([Ref] "$folderPath\$folderName.pdf", [Ref] 17)
$doc.Close([Ref] $false)
$word.Quit()
[Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null
复制代码

Batcher

回复 20# daijt


正常就应该是这样的。文件夹下没有生成pdf文件吗？
你的ImageMagick解压缩之后放在哪个目录下了？