Percorrer vários pdf da pasta

1

Eu tenho vários arquivos PDF em uma pasta - Eu gostaria de percorrer todos os arquivos para que eles pareçam um pdf.

A mesclagem dos arquivos em um arquivo não é uma opção, como deve ser feito "on the fly" de um serviço da intranet.

Eu estava pensando em algo como um arquivo "pdf-index" contendo o caminho para cada arquivo pdf e chamando os dados ao navegar.

Um webservice (php) importando os arquivos e mostrando-os aninhados para rolagem também pode ser uma opção.

    
por Ulrik Pedersen 12.05.2015 / 10:17

1 resposta

-1

Abaixo está um script autohotkey que funciona no Windows para realizar sua tarefa. Você precisará modificar o programa para se ajustar à sua pasta pdf e ao seu leitor de 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
    
por 07.01.2017 / 03:23

Tags