StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POPDF page count not correct
text
Body
copied!<p>I was just wondering why the vbs code in the link below is not counting pdf pages correctly? It seems to under count by half or more the number of pages that actually exist in each pdf.</p> <p><a href="http://docs.ongetc.com/index.php?q=content/pdf-pages-counting-using-vb-script" rel="nofollow">http://docs.ongetc.com/index.php?q=content/pdf-pages-counting-using-vb-script</a></p> <p>Here is the code if you can not access the link above:</p> <pre><code>' By Chanh Ong 'File: pdfpagecount.vbs ' Purpose: count pages in pdf file in folder Const OPEN_FILE_FOR_READING = 1 Set gFso = WScript.CreateObject("Scripting.FileSystemObject") Set gShell = WScript.CreateObject ("WSCript.shell") Set gNetwork = Wscript.CreateObject("WScript.Network") directory="." set base=gFso.getFolder(directory) call listPDFFile(base) Function ReadAllTextFile(filespec) Const ForReading = 1, ForWriting = 2 Dim f Set f = gFso.OpenTextFile(filespec, ForReading) ReadAllTextFile = f.ReadAll End Function function countPage(sString) Dim regEx, Match, Matches, counter, sPattern sPattern = "/Type\s*/Page[^s]" ' capture PDF page count counter = 0 Set regEx = New RegExp ' Create a regular expression. regEx.Pattern = sPattern ' Set pattern "^rem". regEx.IgnoreCase = True ' Set case insensitivity. regEx.Global = True ' Set global applicability. set Matches = regEx.Execute(sString) ' Execute search. For Each Match in Matches ' Iterate Matches collection. counter = counter + 1 Next if counter = 0 then counter = 1 end if countPage = counter End Function sub listPDFFile(grp) Set pf = gFso.CreateTextFile("pagecount.txt", True) for each file in grp.files if (".pdf" = lcase(right(file,4))) then larray = ReadAllTextFile(file) pages = countPage(larray) wscript.echo "The " & file.name & " PDF file has " & pages & " pages" pf.WriteLine(file.name&","&pages) end if next pf.Close end sub </code></pre> <p>Thanks</p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload