Convertir fichier PDF en fichier txt

**solerian** · 11/03/2016, 14h33

Bonjours à tous,

Je souhaite convertir certains fichiers PDf au format txt.
Je pense à utiliser le module PDF::API2
mais je ne vois pas comment rédiger mon programme
je possède une boucle GetFilesList pour me lister tous les PDF et je vais en faire une seconde pour lister tout les fichiers txt.
Je pense m'appuyer sur un fichier d'initialisation qui contiendra les arborescences des différents fichiers PDF étant donné que je ne souhaite pas que l'on voit l'arborescence dans le programme.

Le contenu du fichier d'initialisation sera de la forme :
[fichier_pdf]
FACTURE_PDF=C:\facture_pdf\
BULLETIN_PAIE_PDF=C:\bulletin_paie_pdf\
ORDONANCE_PDF=C:\ordonance_pdf\

Dans le répertoire facture_pdf il y aura :
facture.pdf
facture1.pdf
facture2.pdf
etc...

Dans le répertoire bulletin_paie_pdf il y aura :
paie.pdf
paie1.pdf
paie2.pdf
etc ...

Dans le répertoire ordonance_pdf il y aura :
ordonance.pdf
ordonance1.pdf
ordonance2.pdf
etc ...

Le résultat que je souhaite obtenir est le suivant :
Dans le répertoire facture_pdf il y aura :
facture.pdf
facture1.pdf
facture2.pdf
et
facture.txt
facture1.txt
facture2.txt

Dans le répertoire bulletin_paie_pdf il y aura :
paie.pdf
paie1.pdf
paie2.pdf
et
paie.txt
paie1.txt
paie2.txt

Dans le répertoire ordonance_pdf il y aura :
ordonance.pdf
ordonance1.pdf
ordonance2.pdf
et
ordonance.txt
ordonance1.txt
ordonance2.txt

Est-ce compréhensible ?

Je vous remercie d'avance pour votre aide.

Cordialement

**Lolo78** · 11/03/2016, 16h43

Bonjour,

une idée de squelette possible pour ton programme:

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
 
my %dirs = ( facture_pdf => "facture", bulletin_paie => "paie", ordonnance => "ordonnance" ); # à remplacer éventuellement pas fichier de config
 
for my $dir (keys %dirs) {
    my $file_names = "$dirs{$dir}*.pdf";
    my @files = glob ("$dir/$file_names");
    for my $file (@files) {
        convert ($dir, $file);
    }
}
 
sub convert {
    my ($dir, $file_in) = @_;
    my $file_out = $file_in;
    $file_out =~ s/pdf$/txt/;
    # appel du module avec les noms de fichiers, répertoire, etc. pour faire la conversion
}

**solerian** · 14/03/2016, 11h10

Bonjour,

Tu fais référence à quel module dans le programme parce que moi j'utilise PDF::API2, est-ce celui là?
Je ne comprend pas cette partie de code pourrais tu m'éclairer si ça ne te dérange pas ?

Code :

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

1
2
3
4
5
6
7
 
for my $dir (keys %dirs) {
    my $file_names = "$dirs{$dir}*.pdf";
    my @files = glob ("$dir/$file_names");
    for my $file (@files) {
        convert ($dir, $file);
    }

Merci d'avance pour ton aide

Cordialement

**Philou67430** · 14/03/2016, 13h53

Lolo t'a proposé un "squelette" de programme. Tu dois remplacer la ligne

Code :

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

# appel du module avec les noms de fichiers, répertoire, etc. pour faire la conversion

par l'instruction de conversion appropriée, selon ce que tu souhaites utiliser comme module.

Si tu utilises un module pour effectuer la conversion (comme PDF::API2), il te faudra ajouter en début de programme, une ligne du style:

Code :

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

use module;

(en remplaçant module par le nom du module que tu utiliseras.

**solerian** · 14/03/2016, 16h12

J'ai continué sur l'idée d'utiliser une nouvelle fois un fichier d'initialisation dont voici le contenu :
[repertoire]
REP_FACTURE=C:\Users\baranowp\Documents\2016_01_07_08\facture\
REP_BULLETIN=C:\Users\baranowp\Documents\2016_02_04_05\bulletin_paie\

[fichier_facture]
FIC_1=C:\Users\baranowp\Documents\2016_01_07_08\facture\facture1.pdf
FIC_2=C:\Users\baranowp\Documents\2016_01_07_08\facture\facture2.pdf
FIC_3=C:\Users\baranowp\Documents\2016_01_07_08\facture\facture3.pdf

[fichier_paie]
FIC_4=C:\Users\baranowp\Documents\2016_02_04_05\bulletin_paie\paie1.pdf
FIC_5=C:\Users\baranowp\Documents\2016_02_04_05\bulletin_paie\paie2.pdf

Voici le code que j'ai utilisé en m'appuyant sur la base de squelette de Lolo :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
use strict;
use warnings;
use PDF::API2;
use Config::IniFiles;
 
my $pdf = PDF::API2->new();
my @repertoire;
my @fichier_facture;
my @fichier_paie;
 
my $cfg = Config::IniFiles->new( -file => $ARGV[0] );
foreach ('REP_PROD') {
	  push @repertoire, $cfg->val('repertoire', $_);
  }
foreach ('FIC_1','FIC_2') {
	   push @fichier_facture, $cfg->val('fichier_facture', $_) if $cfg->val('fichier_facture', $_);
  }
foreach ('FIC_4','FIC_5') {
	   push @fichier_paie, $cfg->val('fichier_paie', $_) if $cfg->val('fichier_paie', $_);
  } 
sub GetFilesList 
	{
      	my $Path = $_[0];
        my $FileFound;
        my @FilesList=();
 
        ## Lecture de la liste des fichiers
        opendir (my $FhRep, $Path)
                or die "Impossible d'ouvrir le repertoire $Path\n";
        my @Contenu = grep { !/^\.\.?$/ } readdir($FhRep);
        closedir ($FhRep);
 
        foreach my $FileFound (@Contenu) {
                ## Traitement des fichiers
                if ( -f "$Path/$FileFound") {
                        push ( @FilesList, "$Path/$FileFound" );
                }
                ## Traitement des repertoires
                elsif ( -d "$Path/$FileFound") {
                        ## Boucle pour lancer la recherche en mode recursif
                        push (@FilesList, GetFilesList("$Path/$FileFound") );
                }
        }
        return @FilesList;
}
my @Files = GetFilesList ($repertoire[0]);
foreach my $File  (@Files) { 
	next unless $File =~ /\.lst$/i;
	print "$File \n";
}
 
my %dirs = ( facture_pdf => "facture", bulletin_paie => "paie", ordonnance => "ordonnance" ); # à remplacer éventuellement pas fichier de config
 
for my $dir (keys %dirs) {
    my $file_names = "$dirs{$dir}*.pdf";
    my @files = glob ("$dir/$file_names");
    for my $file (@files) {
        convert ($dir, $file);
    }
}
 
sub convert {
    my ($dir, $file_in) = @_;
    my $file_out = $file_in;
    $file_out =~ s/pdf$/txt/;
 
}

Lorsque j'exécute mon programme depuis l'interpréteur pour faire appel à mon fichier d'initialisation il me renvoie ce message d'erreur :
Use of uninitialized value $Path in opendir at C:\users\baranowp\Documents\2016_03_14_18\convertir_pdf_en_txt.pl line 28
Use of uninitialized value $Path in concatenation (.) or string at C:\users\baranowp\Documents\2016_03_14_18\convertir_pdf_en_txt.pl line 28
Impossible d'ouvrir le repertoire

**JeanMi3000** · 14/03/2016, 16h54

La variable $Path est vide ou non valide.

Je pense que les back slash des chemins doivent être doublé :
REP_FACTURE=C:\Users\baranowp\Documents\2016_01_07_08\facture\
deviendrait
REP_FACTURE=C:\\Users\\baranowp\\Documents\\2016_01_07_08\\facture\\

à tester

**solerian** · 14/03/2016, 17h14

J'ai déjà réalisé un programme qui se base sur un fichier d'initialisation avec la même fonction GetFilesList et il ne m'affichait pas ce message d'erreur, je ne pense pas que ce soit dû à un problème back slash

Cordialement

**solerian** · 15/03/2016, 11h53

je n'ai plus de message d'erreur. lorsque j'exécute le programme il me renvoi tous les fichiers pdf se trouvant dans les repertoires factures et bulletin de paie maintenant il ne me plus qu'à comprendre comment fonctionne la fonction que Lolo m'a confié.
pour avoir mes fichiers PDF au format txt

Cordialement

Convertir fichier PDF en fichier txt

Langage Perl

Discussions similaires

Partager

Partager