I am looking to count the number of pages in the data stream and place that number in a job info. I know that I have to run a VB Script in a Watch process to accomplish this task. There is an object that shows up once on each page. If I could count the number of occurances of this bit of data I should get my total number of pages. If anyone has a script that can do this it would be helpful.

Thanks in advance,

Dan

Dan,

I have written a script similar to what you are asking. I luckily had a static text trigger for each page to count as I looped through the data. If you know the number of lines per page you could go that route or you could try to count the number of form feeds in the data with the VBScript RegExp. Here is a link that may help you out.

http://www.devguru.com/technologies/vbscript/quickref/RegExp_Pattern.html

Hope this helps!

This is the script looking for the static text trigger!

'********************************************************************
' Simple VBScript that will count the number of lines to determine the
' number of pages within the document.

' NOTE - There is no variable passed for a form feed so we will be going
' a static text identifier.
'********************************************************************


'********************************************************************
' Variable declaration
'********************************************************************
Option Explicit
Dim objFSO, objInputFile, objOutputFile
Dim strTempName, strTempPath, strLine

Dim lineCount, pageCount, firstTime, hasStars
pageCount = 0 'Counter for the number of pages

Set objFSO = CreateObject("Scripting.FileSystemObject")

'Variable for the input file name
Dim m_FileName
m_FileName = PW_GetJobFileName


'********************************************************************
' Main
'********************************************************************
' Create the input text file object
Set objInputFile = objFSO.OpenTextFile(m_FileName, 1)

' Get the temp path
strTempPath = objFSO.GetFile(m_FileName).ParentFolder.Path

' Get the temp file name
strTempName = objFSO.GetTempName

' Create an opened temp output file
Set objOutputFile = objFSO.GetFolder(strTempPath).CreateTextFile(strTempName)


' First need to loop through the file to count the number instances of the trigger
Do While objInputFile.AtEndOfStream <> True
strLine = objInputFile.Readline

If (InStr(1, strLine, "SOME TEXT TRIGGER", 1)) Then
pageCount = pageCount + 1 'Incrimenting the page counter
End If
Loop

objInputFile.Close
objOutputFile.Close


' Replace the input file by the output file
objFSO.DeleteFile m_FileName, true
objFSO.MoveFile strTempPath & "" & strTempName, m_FileName

' Setting the jobInfo variables
' jobInfo 8 = pageCount
watch.setjobinfo 8,pageCount

Hi,

Here is a template that you can use asa guide.

Hope this helps
Cosimo