vba - 使用 Irfanview 基于通用文件名批量合并 TIFF

Question

我有一个包含 2000 个左右的单页 TIFF 的文件夹。TIFF 具有可变数量的通用文件名，用于指示应如何组合文件。常见的文件名有不同的长度。使用 Windows 7、标准生产力软件和我目前可用的 Irfanview。

我正在尝试解析文件夹并根据通用文件名组合 TIFF。

例如，我们在文件夹中有以下文件：sample.1.tiff、sample.2.tiff、samplefoo.1.tiff、samplefoo.2.tiff、samplefoo.3.tiff。

运行批处理后，文件夹中有以下多页 TIFF（或 PDF 等）：sample.tiff（包含 sample.1.tiff 和 sample.2.tiff）、samplefoo.tiff（和 samplefoo .1.tiff、samplefoo.2.tiff 和 samplefoo.3.tiff）。

我们可以手动完成，但我有理由确定在 Irfanview 或通过 VBA 有办法做到这一点。我欢迎任何想法或建议。

Answer 1

在留言板上找到以下 Irfanview 脚本并针对我的事实模式进行了调整：

@ECHO OFF
SETLOCAL enabledelayedexpansion
SET destdir=C:\Test\
MD %destdir% 2>NUL
FOR /f "delims=." %%i IN ( ' dir/b *.*.tif ' ) DO IF NOT EXIST %destdir%\%%i.tif (
(SET srctiff=)
FOR /f %%a IN ( ' dir/b %%i.*.tif ' ) DO (
IF DEFINED srctiff (SET srctiff=!srctiff!,%%a
) ELSE (SET srctiff=%%a)
)
"C:\Program Files (x86)\IrfanView\i_view32.exe"/multitif=^(%destdir%\%%i.tif,!srctiff!^) /cmdexit
) 

根据编号和页码是否有前导零，它的作用就像一个有一些限制的魅力。