Прокрутка нескольких pdf из папки

У меня есть несколько pdf-файлов в папке - я хотел бы прокрутить все файлы, чтобы они выглядели как один pdf.

слияние файлов в один файл не вариант, как это должно быть сделано "на лету" из веб-службы интрасети.

Я думал о чем-то вроде файла "pdf-index", содержащего путь к каждому pdf-файлу и вызывающего данные при прокрутке.

веб-сервис (php) импорт файлов и отображение их вложенных для прокрутки также может быть вариантом.

13
задан Ulrik Pedersen
14.01.2023 19:12 Количество просмотров материала 2367
Распечатать страницу

1 ответ

Ниже приведен сценарий autohotkey, который работает в Windows для выполнения вашей задачи. Вы будете neeed, чтобы изменить программу, чтобы соответствовать вашей папке pdf и PDF reader.

;This Autohotkey program loops through pdf files in a specified folder, by pressing "f" for forward, "r" for reverse, and "x" for exit. 
; You'll need the freeware autohotkey installed and to save this text file program with an .ahk extension.  You will also
; need to change the pdf viewer exe files below to that of your machines own pdf reader, as well as specify the folder
;containing your pdfs. 

Folder := "C:\"  ; <----------------------SPECIFY FOLDER HERE CONTAINING PDF FILES IN QUOTES


FileList =  ; Initialize to be blank.

FileCount := 0

Loop, %Folder%*.pdf {

    FileList = %FileList%%A_LoopFileLongPath%`n 

    FileCount++

                    }


Array := StrSplit(Filelist,"`n")

FileIndex := 1

StartNewPDF:

MsgBox,,, Opening PDF File %FileIndex% of %FileCount%,0.7

 FileToOpen=% Array[FileIndex]


;  v---------------------------------SPECIFY PATH and *.exe FILE OF PDF READER

 Run, "C:\Program Files\Tracker Software\PDF Viewer\PDFXCview.exe" 

"%FileToOpen%"

 Input, OutputVarx, L1 ,, frx

if (OutputVarx="f")

{

   FileIndex := 1 + Mod(FileIndex - 1 + 1, FileCount)

}

if (OutputVarx="r")

{

   If (FileIndex=1)

     FileIndex = FileCount

   Else FileIndex := FileIndex - 1

}

if (OutputVarx="x")

{

;    v-------------SPECIFY *.exe FILE OF YOUR PDF READER HERE

   Process,Close,PDFXCview.exe

   ExitApp

}

;      v-------------SPECIFY *.exe FILE OF YOUR PDF READER HERE

Process,Close,PDFXCview.exe

Sleep, 100

Goto, StartNewPDF
-1
отвечен Zack Barkley 2023-01-16 03:00

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх