ReNamer:Scripts:Xpdf: Difference between revisions
Jump to navigation
Jump to search
(Updated script for ReNamer 5.70 and Xpdf 3.03) |
(→Code: unquoted EXE) |
||
| Line 21: | Line 21: | ||
begin | begin | ||
Command := | Command := EXE+' "'+FilePath+'"'; | ||
if ExecConsoleApp(Command, Output) = 0 then | if ExecConsoleApp(Command, Output) = 0 then | ||
begin | begin | ||
Revision as of 12:41, 1 April 2013
Script integrates Xpdf command line tool in order to extract PDF tags.
Requirements
- ReNamer 5.70
- 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.
{ 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.