AutoIt Français

MsgBox(0, "", pagecount("C:\exemple.pdf"))

Func pagecount($sfilename)
    Local $c = 0
    Local $pages = -1

    ; Ouvre le fichier pdf
    $handle = FileOpen($sfilename,0)
    If @ERROR Then Return SetError(1,0,0)
   
    Do
        $s = FileReadLine($handle)
        $EOF = @ERROR
       
        $c += 1
       
        ; voir les 10 premieres lignes avec /N
        If $c <= 10 Then
            If StringInStr($s, "/N") > 0 Then
                $array1 = StringRegExp($s,"/N\h(\d+)",3)
                $pages = Number($array1[0])    
                ExitLoop
            EndIf
        EndIf
       
        ; voir toutes les lignes avec '/count'
        If StringInStr($s, "/count") > 0 Then
            $array2 = StringRegExp($s,"/count\h(\d+)",3)
            $pages = Number($array2[0])
            ExitLoop
        EndIf
    Until $EOF = -1
   
    ; fermer le fichier et retour du nombre de page
    FileClose($handle)
    If $pages < 0 Then $pages = 1
    Return $pages
EndFunc
 

Func pagecount($sfilename)
    Local $c = 0, $EOF = 0
    Local $pages = -1

    ;'OPEN the PDF file
    $handle = FileOpen($sfilename,512)
    If @error Then Return SetError(1,0,0)
    ;Get the data from the file
    Do
        $c += 1
      $s = FileReadLine($handle, $c)
        $EOF = @error



        ;Look within the top 10 lines for /N
        If $c <= 10 Then
            If StringInStr($s, "/N") > 0 Then
                $array1 = StringRegExp($s,"/N\h(\d+)",3)
                $pages = Number($array1[0])
                ExitLoop
            EndIf
        EndIf

        ;Check every line for /count
        If StringInStr($s, "/count") > 0 Then
            $array2 = StringRegExp($s,"(?i)/count\h(\d+)",3)
            $pages = Number($array2[0])
            ExitLoop
        EndIf
    Until $EOF = -1

    FileClose($handle)
    If $pages < 0 Then $pages = 1
    Return $pages
EndFunc   ;==>pagecount