ReNamer:Scripts:Xpdf

From den4b Wiki
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

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

References:

Requirements

  • Download Xpdf tools and extract pdfinfo.exe into 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 7.1 + Xpdf tools 4.01.01.
{ Extract PDF tags using Xpdf }
 
const
  EXE = 'pdfinfo.exe -enc UTF-8';
  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.