ReNamer:Scripts:Xpdf

Script integrates Xpdf command line tool in order to extract PDF tags.

References:

• http://www.den4b.com/forum/viewtopic.php?id=349

Requirements

• pdfinfo.exe 3.03 in ReNamer's folder

Code

Author: Denis Kozlov. Date: 2013-04-01.

Modify the TAG constant to specify which tag you want to extract. For the list of available tags consult Xpdf web site or pdfinfo.exe command line tool.

• Tested with ReNamer 5.74.4 Beta.

<syntaxhighlight lang="pascal"> { Extract PDF tags using Xpdf }

const

 EXE = 'pdfinfo.exe';
 TAG = 'Title\s*\:\s*(.*?)[\r\n]';

var

 Command, Output: String;
 Matches: TWideStringArray;  

begin

 Command := EXE+' "'+FilePath+'"';
 if ExecConsoleApp(Command, Output) = 0 then
 begin
   Matches := SubMatchesRegEx(Output, TAG, False);
   if Length(Matches) > 0 then
     FileName := Matches[0] + WideExtractFileExt(FileName);
 end;

end. </source>