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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 478 fois - Téléchargée 35 fois

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

Ajouter un commentaire Commentaires
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
24
Nenni, il ne peut y avoir EOF, c'est ta methode de lecture du fichier qui provoque le positionnement du flag eof. Tu n'as pas une vieweuse binaire pour regarder les octets ? Si tu veux tu me postes un message avec ton mail et je t'en file une, ainsi tu iras voir la valeur des octets et tu devrais comprendre pourquoi ca bloque.
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
5
teste le code avec un fichier pdf et tu verras (il y en a un dans le répertoire d'acrobat dasn help, tu en a un sécurisé et un non)

en pliens milieu du code, dans la boucle "while not EOF(1)" donne vrai quand ça ne l'est pas
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
24
un caractere de fin de fichier n'existe pas, chaque octet en vaut un autre, suffit de les traiter comme il se doit.
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
5
c'est pour ça que je bloque, VB arrête de lire à cause qu'il voit un caractère de fin de fichier, masi en réalité, c'est pas un fin de fichier
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
24
oui merci bien dragon, mais cela contredit donc:
"en pleins centre un EOF"
d'ou ma question parce que si est fin de fichier alors n'est pas en plein centre.
Afficher les 7 commentaires

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.