Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 697 fois - Téléchargée 37 fois
Const sujet = "/SUBJECT" Public Function getDescriptionPDF(strFile As String) As String Dim texte As String * 10000 Dim trouver As Boolean Dim position As Integer Dim compteur As Long Dim j As Integer trouver = False Open strFile For Binary As #1 Len = Len(texte) compteur = 1 While Not trouver Get #1, compteur, texte position = InStr(1, UCase(texte), sujet) If position <> 0 Then trouver = True getDescriptionPDF = Mid(texte, position + Len(sujet) + 2, InStr(position + Len(sujet) + 2, texte, ")") - (position + Len(sujet) + 2)) ElseIf Mid(texte, 1, 1) = Chr(0) And Mid(texte, 9999, 1) = Chr(0) And _ Mid(texte, 500, 1) = Chr(0) And Mid(texte, 10, 1) = Chr(0) And _ Mid(texte, 800, 1) = Chr(0) And Mid(texte, 1000, 1) = Chr(0) And _ Mid(texte, 5000, 1) = Chr(0) And Mid(texte, 7500, 1) = Chr(0) Then trouver = True getDescriptionPDF = "" End If compteur = compteur + 10000 Wend Close #1 End Function
7 déc. 2006 à 01:16
Comme vous avez l'air callé en pdf vous allez pouvoir m'aider je pense, je cherche a comprendre comment est en codé mon pdf car en hexa j'arrieve pas a pigé ou est passé le contenu !
Soit c'est un bug de mon editeur hexa soit magie soit faut que je change de lunnettes !
Enfin bref, le but du script que je cherche a faire est un decompilateur pdf pour le transformer en fichier calc (openoffice) ou xls (office)
Je pense que je risque d'être obligé de faire du C mais bon, si au moins je comprends comment et construit le pdf et comment recuperer chacun des elements.
Merci d'avance
28 juin 2004 à 23:23
Si ça t'intéresse g réalisé un code pour visualisé et modifier les propriétés des fichiers pdf.
http://www.vbfrance.com/code.aspx?ID=24070
a+
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.