what's wrong with my code (count pages of a postscript files)

[markham 0]

Hello,

postscript files 3 sprecifics lines :

%%Pages: (atend) //i want to ignore this one

%%Pages: 4 // i want extract the number (here : 4)

userdict /#copies 50 put (here : 50)

but my following codes seems doesn't work and don't know why.

can you help me ?

dim $PostscriptFile='20121123172655.ps'
dim $copies=1
dim $pages=1
$file = FileOpen($PostscriptFile, 0)
If $file = 0 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
; Read in lines of text until the EOF is reached

While 1
   Local $line = FileReadLine($file) 
If @error = -1  Then ExitLoop
   
if StringInStr($line,"%%Pages:",1,2) >0 then
         $array1= StringRegExp($line,"%%Pages:\h\(d+)",3)
      $pages = Number($array1[0])
   EndIf
  
   if StringInStr($line,"/#copies",1,1)>0  then
     $array2= StringRegExp($line,"/#copies\h\(d+)",3)
     $copies = Number($array2[0])
  EndIf
WEnd
FileClose($file)
 MsgBox(0,"total pages",$copie * $pages)

thx a lot

[JohnOne 1,594]

but my following codes seems doesn't work and don't know why.

can you help me ?

Be more specific.

[markham 0]

Be more specific.

$pages and $copies stay at 1.

[JohnOne 1,594]

could be that you are redeclaring in a loop

Local $line = FileReadLine($file)

[markham 0]

i use this example :

http://www.autoitscript.com/autoit3/docs/functions/FileReadLine.htm

[JohnOne 1,594]

Might be that the regex is wrong, but try it like this.

Local$line=FileReadLine($file)

While1

If@error=-1ThenExitLoop

MsgBox(0,"Line read:",$line)

$line=FileReadLine($file)

WEnd

[JohnOne 1,594]

Sorry, I don't see increment, add $line += 1 in loop

[jchd 1,067]

In your regexp patterns, are misplaced.

Try:

Local $PostscriptFile = '20121123172655.ps'
Local $aRes, $copies = 1, $pages = 1
$file = FileRead($PostscriptFile)
If Not @error Then
$aRes = StringRegExp($file, "(?i)%%Pages:h*(d+)", 1)
If Not @error Then
$pages = Number($aRes[0])
;~ Else
;~ ConsoleWrite("%%Pages not found" & @LF)
EndIf
$aRes = StringRegExp($file, "(?i)/#copiesh*(d+)", 1)
If Not @error Then
$copies = Number($aRes[0])
;~ Else
;~ ConsoleWrite("/#copies not found" & @LF)
EndIf
MsgBox(0,"Total pages", $copies * $pages)
Else
ConsoleWrite("Unable to read file " & $PostscriptFile & @LF)
EndIf

[markham 0]

it's work perfectly !!!

thx a lot !!!