[文件操作] 【已解决】多个BAT代码合并，指定关键字执行具体代码

qd2024

链接：https://pan.baidu.com/s/10Vn3c47vlF-MApoilXyOsQ?pwd=al1f
提取码：al1f
--来自百度网盘超级会员V10的分享


我有若干个BAt文件，
小册子P16.bat  小册子P32.bat  小册子P36.bat  小册子P48.bat  小册子P56.bat 小册子P64.bat  小册子P72.bat
怎样把它们和并到一个bat里面，
我想给是不是可以给每段代码指定个名字，如 小册子P16.bat 就叫 16   小册子P32.bat 就叫 32
当我运行这个合并后的BAT里，让我输入文字
我输入16回车 就执行小册子P16.bat
我输入32回车 就执行小册子P32.bat

名称的关键字就用数字吧，这样方便。

批处理执行后，删除自己。

辛苦了 谢谢

qd2024

回复 39# newswan


    明白了  感谢

newswan

回复 38# qd2024

比较好的办法是，把合并后的文件放到其他地方，..\ 或者 x:\xxx\pdf\

echo pdftk.exe *.pdf cat output "..\%folder%.pdf"
复制代码

最后删除整个目录
在popd之后插入

rm /s /q %folder%
复制代码

qd2024

回复 36# newswan


    再请教 一下 如何在PDF 合并后 删除 01 02 03……这样名的PDF  只保留合并后的PDF文件

qd2024

回复 36# newswan


    辛苦了 感谢

newswan

这种方式也可以，不用改名

pdftk 1.pdf 2.pdf 3.pdf .... cat output merged.pdf
复制代码

newswan

来自 ai

创建一个包含要合并的PDF文件名的文本文件，每个文件名占一行。例如，你可以创建一个名为filelist.txt的文本文件，其中包含要合并的PDF文件名列表，如下所示：

file1.pdf
file2.pdf
file3.pdf
...
复制代码

使用PDFTK命令来读取文件列表进行合并。命令行如下：

pdftk @filelist.txt cat output merged.pdf
复制代码

在这个命令中，@filelist.txt表示告诉PDFTK命令要从filelist.txt文件中读取文件名列表进行合并。cat output merged.pdf表示将合并后的PDF文件输出为merged.pdf。

newswan

回复 33# qd2024

28楼
插入 28 行 popd 之前
使用用文件夹名作为pdf文件名

echo pdftk.exe *.pdf cat output "%folder%.pdf"
复制代码

pdftk 没用过，如果正确，删除 echo

qd2024

回复 28# newswan


    求助 在32楼 谢谢

qd2024

回复 28# newswan

麻烦再帮我看下，25楼的代码已经帮我实现了快速排序的问题，我想把25楼代码排序后的PDF文件合并成一个文件，合并过程中想出现对话框输入合并后PDF文件的文件名（如果不行就用当前文件夹名），合并后自动删除其他文件，只保留合并后的一个文件。
我在站内找了下面的代码，但是我不能把它们合并到一起，谢谢。
下面是导出的原始文件。
链接：https://pan.baidu.com/s/1UCZUJfLhuIWzLK4O68tDzw?pwd=ea19
提取码：ea19
--来自百度网盘超级会员V10的分享


回复 5# Batcher

@echo off
REM 1、下载命令行工具PDFtk
REM http://bcn.bathome.net/s/tool/index.html?key=PDFtk
REM 2、根据自己电脑实际安装路径设置以下临时环境变量
set "path=C:\Program Files (x86)\PDFtk Server\bin;%path%"
 
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /ad') do (
    pushd "%%i"
    echo 正在处理文件夹：%%i
    pdftk.exe *.pdf cat output "%%~nxi.pdf"
    popd
)
pause
复制代码

newswan

调用

x.ps1 16
复制代码

param(
	[int]$count
)

function get-idxReal() {
	param(
		[int]$count ,
		[int]$idxScan
	)
	$r = [math]::Ceiling( $idxScan / 4 )
	$c = $idxScan - ($r-1)*4
	$idxReal = switch( $c ) {
		1 { $count/2 + 0 - ($r-1)*2 }
		2 { $count/2 + 1 + ($r-1)*2 }
		3 { $count/2 + 2 + ($r-1)*2 }
		4 { $count/2 - 1 - ($r-1)*2 }
	}
	return $idxReal
}

$order =  [System.Array]::CreateInstance([int], ($count + 1))

if ( ($count % 4) -eq 0 ) {
	1..$count | ForEach-Object {
		$order[$_] = get-idxReal $count $_
	}
}
$order[1..$count]  -join ' '
复制代码

qd2024

回复 29# newswan


    好的 太感谢了  我试试

newswan

删除第25行 echo

newswan

回复 25# qd2024

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

cd %~dp0
set folder=%1

set order16= 08 09 10 07 06 11 12 05 04 13 14 03 02 15 16 01
for /f "usebackq delims=" %%i in (` dir /b /a-d "%folder%" 2^>nul ^| find /c /v "" `) do (
	set n=%%i
)
set order=!order%n%!

echo,
echo folder:     %folder%
echo file count: %n%
echo,

pushd %folder%

for /f "usebackq" %%a in (` dir /b .`) do (
	for /f "tokens=2 delims=_" %%a in ("%%~na") do (
		set idxScan=%%a
	)
	call :C_idx_scan_to_real order idxScan idxReal
	echo ren  %%a  !idxReal!%%~xa
)

popd

echo,
echo, ----complete----
echo,

pause
exit/b

:C_idx_scan_to_real
setlocal
set order=!%1!
set idx=!%2!

set /a i=0
for %%a in ( %order% ) do (
	set /a i+=1
	if "!i!" == "%idx%" set idx=%%a
)

(
endlocal
set %3=%idx%
)
goto :eof
复制代码

qd2024

回复 26# newswan


    感谢