Difference between revisions of "ReNamer:Scripts:Xpdf"
Jump to navigation
Jump to search
(Replaced the use of TStringsArray with TWideStringArray.) |
(Bumped up version requirements) |
||
| Line 16: | Line 16: | ||
Modify the <code>TAG</code> constant to specify which tag you want to extract. For the list of available tags consult [http://www.foolabs.com/xpdf/ Xpdf] web site or <code>pdfinfo.exe</code> command line tool. | Modify the <code>TAG</code> constant to specify which tag you want to extract. For the list of available tags consult [http://www.foolabs.com/xpdf/ Xpdf] web site or <code>pdfinfo.exe</code> command line tool. | ||
| − | * Tested with ReNamer 5. | + | * Tested with ReNamer 5.74.4 Beta. |
<source> | <source> | ||
Revision as of 11:39, 5 February 2017
Script integrates Xpdf command line tool in order to extract PDF tags.
References:
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.
{ 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.