Discussion :

[clem67]

Bonjour,

J'ai plusieurs fichier PDF, qui sont en fait des porte-documents PDF (c'est à dire un fichier PDF qui contient plein de fichiers PDF)
Je cherche à récupérer le nom de tous les documents contenus dans ce porte-document PDF, mais je ne sais même pas par où commencer...

Si vous avez une idée, je suis toute ouïe

Merci d'avance

Clem

[WgrProject]

je ne suis pas sur qu'en VB il soit possible d'aller chercher le nom des fichiers PDF Dans un PDF ..

Le nom d'un pdf classique, oui, mais les pdf qui sont dans le pdf ..

[clem67]

Après plusieurs heures (jours) de recherches intensives, j'ai finalement trouvé la solution.
Voici comment j'ai procédé :

J'ai trouvé un package NuGet s'appelant Aspose.PDF
Ensuite, j'ai regardé un peu leur documentation en ligne et en tâtonnant un peu, j'en suis arrivé à écrire ceci :

(info : j'avais besoin de sortir une seule chaine de caractères avec tous les noms de chaque documents à la suite, dans mon utilisation)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
''' <summary>
    ''' Lire les noms des documents contenus dans un porte-documents PDF
    ''' </summary>
    ''' <param name="filepath">Chemin d'accès au Porte-Documents PDF</param>
    ''' <returns>Lire des fichiers contenus dans le porte-documents PDF, sinon Nothing</returns>
    Friend Shared Function ReadPDFDocument(filepath As String) As String
 
        ' Récupération du contenu du document PDF
        Dim pdfDocument As New Aspose.Pdf.Document(filepath)
        Dim pdfEmbeddedFiles As Aspose.Pdf.EmbeddedFileCollection = pdfDocument.EmbeddedFiles
 
        Dim pdfDocNames As String = String.Empty
 
        ' Si le fichier est un porte-documents
        If pdfEmbeddedFiles.Count > 0 Then
            For Each file As String In pdfEmbeddedFiles.Keys
                If file.ToLower.Contains(".pdf") Then
                    pdfDocNames += file.Replace(".pdf", "") & " "
                End If
            Next
 
            Return pdfDocNames.Trim
        End If
 
        Return Nothing
    End Function