Difference between revisions of "ReNamer:Scripts:Xpdf"

From den4b Wiki
Jump to navigation Jump to search
(forum reference added)
(Navigation)
Line 1: Line 1:
 +
{{Up|ReNamer:Scripts}}
 +
 
Script integrates [http://www.foolabs.com/xpdf/ Xpdf] command line tool in order to extract PDF tags.
 
Script integrates [http://www.foolabs.com/xpdf/ Xpdf] command line tool in order to extract PDF tags.
  

Revision as of 15:36, 25 November 2015

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

References:

Requirements

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.

{ Extract PDF tags using Xpdf }
 
const
  EXE = 'pdfinfo.exe';
  TAG = 'Title\s*\:\s*(.*?)[\r\n]';
 
var
  Command, Output: String;
  Matches: TStringsArray;  
 
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.