Connaitre le sujet d'un pdf non sécurisé

Commenter

Contenu du snippet

voici un petit code qui permet de récupérer le sujet d'un pdf non sécurisé

Source / Exemple : 


Const sujet = "/SUBJECT"

Public Function getDescriptionPDF(strFile As String) As String
    
    Dim texte As String
    Dim trouver As Boolean
    Dim position As Integer
    
    If InStr(Mid(strFile, 2), "*") <> 0 Then
        strFile = Mid(strFile, InStr(Mid(strFile, 2), "*") + 2)
    End If
    'On Error GoTo Fin
    
    trouver = False
    
    Open strFile For Input As #1
    
    While Not trouver
        Input #1, texte
        position = InStr(1, UCase(texte), sujet)
        If position <> 0 Then
            trouver = True
            getDescriptionPDF = Mid(texte, 11, Len(texte) - 11)
        End If
    Wend
    Close #1
End Function

Conclusion :


j,essai de faire la même chose avec un PDF sécurisé, mais accrobat met en pliens centre un EOF, je suis pas capable de passer par dessus. Quelqu'un peut m'aider pour ça ???

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_dragon)