newswan

调用

x.ps1 16COPY

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 ' 'COPY

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
)
pauseCOPY

qd2024

回复 28# newswan


    求助 在32楼 谢谢

newswan

回复 33# qd2024

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

echo pdftk.exe *.pdf cat output "%folder%.pdf"COPY

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

newswan

来自 ai

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

file1.pdf
file2.pdf
file3.pdf
...COPY

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

pdftk @filelist.txt cat output merged.pdfCOPY

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

newswan

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

pdftk 1.pdf 2.pdf 3.pdf .... cat output merged.pdfCOPY

qd2024

回复 36# newswan


    辛苦了 感谢

qd2024

回复 36# newswan


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

newswan

回复 38# qd2024

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

echo pdftk.exe *.pdf cat output "..\%folder%.pdf"COPY

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

rm /s /q %folder%COPY

qd2024

回复 39# newswan


    明白了  感谢