pdfPageCount ( container ; result )

Returns the pdf's number of pages

Average rating: 4.4 (24 votes) Log in to vote

Daniele Raybaudi - Show more from this author
ACI
http://www.aci.it

Sample input:

PDFPageCount ( container ; "" )

Sample output:

6 (if the container contains a pdf with 6 pages )

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
pdfPageCount ( container ; result ) 

Tail recursive custom function.
Returns the pdf's number of pages.
Needs Filemaker 14.
Result parameter must be empty.
I purposely left $count and $t to facilitate the reading of the function, but should be renamed with something like: $CFpdfPageCount and $CFpdfData

Daniele Raybaudi
-----------------------
2015/09/28 v.1.6 now it finds the correct number of pages in a greater number of cases
2015/09/27 v.1.5
2015/09/22 v. 1
*/

Let(
t = Base64Decode ( LeftValues ( Base64Encode ( container )  ; 5 ) ) ;
Case(
PatternCount ( t ; "Linearized" ) ;  
Let([ 
start = Position ( t ; "/N " ; 1 ; 1 ) + 3 ;
end = Position ( t ; "/T" ; start ; 1 )
];
Middle ( t ; start ; end - start )
) ;
Let([ 
$t = If ( IsEmpty ( $t ) ; Base64Decode ( Base64Encode ( container ) ) ; $t ) ;
$count = $count + 1 ;
p1 = Position ( $t ; "/Count " ; 1 ; $count ) + 7 ;
p2 = Min ( Position ( $t ; "/" ; p1 ; 1 ) ; Position ( $t ; ">>" ; p1 ; 1 ) ) ;
s = GetAsNumber ( Middle ( $t ; p1 ; p2 - p1 ) )
];
Case(
$t = "?" ; "decoding error" ; // Base64Decode( ) function sometimes fails to decode a base64 encoded pdf
p1 > 7  ; pdfPageCount ( t  ; Max ( result ; s  )  ) ;
Let ([ $t = "" ; $count = "" ] ; result )
)
) 
)
)

Returns the pdf's number of pages.
Needs Filemaker 14.
Result parameter must be empty.
I purposely left $count and $t to facilitate the reading of the function, but should be renamed with something like: $CFpdfPageCount and $CFpdfData

Comments

		EncryptedFile, Redondo Beach, CA Sep 28, 2015
How difficult would it be to reverse engineer this to show me how many pages are in an Excel workbook? I don't see anything in this code that appears to be specifically for .PDF files. I'm going to install this, and see if I can get it to do the above request, or if anyone knows of a Custom Function that is specifically intended to show/log/display the amount of pages in a Microsoft Office Excel Worksheet (.xlsx) page.

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

pdfPageCount ( container ; result )

Comments

Support this website.

Support this website.