Pdf rename based on content

[Guero]

Hello Guys,

I am newbie in Autoit so I need your help.

I am trying to create script which opens all pdfs in a specific folder, save them in another folder with a name taken from the pdf content. For this purpose i decided to use regex. The specific text in pdf should be 10 digit long and always starts with 45. For example 4501234567

I've tried  a lot of patterns but without any succeed. Do you have any idea how it should looks like?

Please have a look at the code which I created till now. If you have any ideas how the task can be completed in more efficient way please advise.

#include <MsgBoxConstants.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <StringConstants.au3>
$foldForRename = FileSelectFolder("Select folder","")
$foldRenamed = FileSelectFolder("Select folder for renamed pdfs","")
While $foldRenamed = $foldForRename
    MsgBox(0,"Select another folder","You must select folder different than the one where pdfs for rename are stored.")
    $foldRenamed = FileSelectFolder("Select folder","")
WEnd
_FileCreate($foldRenamed & "\Temp.txt")
FileOpen($foldRenamed & "\Temp.txt",2)
$a_pdflist = _FileListToArray($foldForRename, "*.pdf")
For $i = 1 To $a_pdflist[0]
    ShellExecute($foldForRename &"\"& $a_pdflist[$i])
    WinWaitActive($a_pdflist[$i] & " - Adobe Reader")
    MouseClick("left")
    Send( "^a" )
    Sleep(1000)
    Send( "^c" )
    FileOpen($foldRenamed & "\Temp.txt",2)
    FileWrite($foldRenamed & "\Temp.txt", ClipGet())
    Sleep(1000)
    Send("^q") ;Close Adobe Reader
    WinWaitClose($a_pdflist[$i] & " - Adobe Reader","","")
    $sFileRead = FileRead($foldRenamed & "\Temp.txt")
    $PO=StringRegExp($sFileRead,'45\d{8}',3)
    MsgBox(0,"",UBound($PO))
    MsgBox(0,"",$PO[0])
    FileClose($foldRenamed & "\Temp.txt")
    Next 

Thank you in advance!

Guero

Edited October 30, 2014 by Guero

[Radiance]

Hi,

I'm not very familiar with RegExp.

Depending on the structure of the PDF you could use _StringBetween.

For example, if your PDF contains this:

#ID:4501234567#AUTHOR:

 

... your code would look like this:

$aResult = _StringBetween($sFileRead, "#ID:", "#AUTHOR")

Here $aResult[0] would be "4501234567". Of course this requires that the "borderstrings" always stay the same.

Edited October 30, 2014 by Radiance

[mLipok]

to extract text

you can use mudraw from mupdf

http://www.mupdf.com/downloads/mupdf-1.6-windows.zip

or my >Debenu UDF

[Jfish]

I don't think you need to re-read the contents of the file.  You have it on the clipboard (used to write the file).  You could try:

$filecontent=ClipGet()

Then you could search through that without re-opening the new file.  Wait to write the file until you have the new name that would eliminate the temp files.  Also, do you have an example of the possible values you are searching for?  That may help with some suggestions on finding them.

[willichan]

You might try this code

'?do=embed' frameborder='0' data-embedContent>>

It will give you an array of all the PDF file's properties, including author and title.