1

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

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

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

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

1 ответ1

-1

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

;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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .