Discussion :

[mariafan]

bonjour,
d'avance merci.
d'abord je tien à préciser que je suis débutant.
en fait je voudrais parser un fichier .xls et récupérer ces données pour les envoyées à une base de données MySQL.
pour ce je procède comme suit copier le fichier .xls vers .txt puis parser le fichier .txt (ce que je sais faire)
alors j'ai fais des recherche sur internet pour arriver à copier le contenu d'un .xls dans un .txt
voila le code que j'ai trouvé

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
#!c:/perl/bin/perl -w
use strict;
 
use warnings;
use Spreadsheet::ParseExcel;
my @lignes=0;
my $path = "./xls_txt.txt";
die "fichier non trouve !\n" if (! -s $path);
open(FIC, ">>$path" ) or die "Can't open file: $!";
@lignes = <FIC>;
my $oBook =
 
 
Spreadsheet::ParseExcel::Workbook->Parse('./20070611 cheklist_massy.xls');
my($iR, $iC, $oWkS, $oWkC);
foreach my $oWkS (@{$oBook->{Worksheet}}) {
   print "--------- SHEET:", $oWkS->{Name}, "\n";
  for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ;
  $iR++) {
     for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ;
 $iC++) {
      $oWkC = $oWkS->{Cells}[$iR][$iC];
    print FIC "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC);
    }
  }
  }
  Close FIC;

mais j'ai comme erreur (fichier non trouvé)
svp regarder si vous voyez des fautes à corriger que j'ai pas vu
d'avance merci

[djibril]

Code :

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

1
2
my $path = "./xls_txt.txt";
die "fichier non trouve !\n" if (! -s $path);

[mariafan]

merci pour la réponse
mais sincèrement je vois pas la différence dans ce que vous avez corrigé
je l'ai pourtant essayé au cas ou je vois pas bien, mais j'ai toujours la même erreur
merci de votre aide.
regarder s'il ya une faute

[djibril]

Code :

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

1
2
my $path = "./xls_txt.txt";
die "fichier non trouve !\n" if (! -s $path);

Cette ligne veut dire : Arrete le script et met moi le message fichier non trouve si ce dernier n'existe pas ou à une taille égal à 0.
Or je suppute que vous cherchez à le créer de novo, ainsi, au premier lancement du script, ce dernier ne sera jamais crée, vu qu'il n'existe pas .
Donc étant débutant, faut éviter les copier coller à tout va et essayer soit même pas à pas, quite à ce faire guider par le forum, ce serait mieux pour l'apprentissage de perl

[djibril]

Essayé plutot ça :

Code :

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

1
2
3
4
5
 
my $fichier_txt = "./xls_txt.txt";
my $fichier_xls = "./20070611 cheklist_massy.xls";
die "fichier non trouve !\n" if (! -s $fichier_xls);
open(FIC, ">$fichier_txt" ) or die "impossible d'ecrire dans le fichier $fichier_txt : $!";

et non

Code :

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

1
2
3
my $path = "./xls_txt.txt";
die "fichier non trouve !\n" if (! -s $path);
open(FIC, ">>$path" ) or die "Can't open file: $!";

et remplacer

Code :

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

Spreadsheet::ParseExcel::Workbook->Parse('./20070611 cheklist_massy.xls');

par

Code :

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

Spreadsheet::ParseExcel::Workbook->Parse($fichier_xls);

[mariafan]

merci de votre réponse
j'ai fais ce que vous m'avez conseiller, mais j'ai tjs la même erreur (fichier non trouve !)
voila mon code rechangé

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
#!c:/perl/bin/perl -w
use strict;
 
use warnings;
use Spreadsheet::ParseExcel;
my @lignes=0;
 
my $fichier_txt = "./xls_txt.txt";
my $fichier_xls = "./20070611 cheklist_massy.xls";
die "fichier non trouve !\n" if (! -s $fichier_xls);
open(FIC, ">$fichier_txt" ) or die "impossible d'ecrire dans le fichier $fichier_txt : $!";
 
@lignes = <FIC>;
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($fichier_xls);
my($iR, $iC, $oWkS, $oWkC);
foreach my $oWkS (@{$oBook->{Worksheet}}) {
   print "--------- SHEET:", $oWkS->{Name}, "\n";
  for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ;
  $iR++) {
     for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ;
 $iC++) {
      $oWkC = $oWkS->{Cells}[$iR][$iC];
    print FIC "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC);
    }
  }
  }
  Close FIC;

merci de m'aider

[djibril]

Code :

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

my $fichier_xls = "./20070611 cheklist_massy.xls";

est ce que ce fichier existe ./20070611 cheklist_massy.xls ???????????
De plus l'espace entre ./20070611 et cheklist_massy.xls
??

[mariafan]

effectivement j'ai changer le nom du fichier source. et j'ai lancé mon script
j'ai eu un résultat

Code :

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

1
2
3
4
5
6
C:\Program Files\EasyPHP1-8\www\traitement\trtaxe10>xls_txt.pl
Filehandle FIC opened only for output at C:\Program Files\EasyPHP1-8\www\traitem
ent\trtaxe10\xls_txt.pl line 13.
--------- SHEET:Feuil1
Can't locate object method "Close" via package "IO::Handle" at C:\Program Files\
EasyPHP1-8\www\traitement\trtaxe10\xls_txt.pl line 27.

mais j'ai récupéré le contenu de fichier xls dans le fichier .txt
or ce que j'ai récupéré dans mon fichier txt , les lignes du fichier xls en colonnes dans mon fichier txt
est-il possible de récupérer les lignes de xls en ligne dans .txt
voila en joint .xls et .txt

[djibril]

ce n'est pas

Code :

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

Close FIC;

mais

Code :

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

close(FIC);

[mariafan]

qd je met ce que vous m'avez dis le script ne marche pas et j'ai comme retour

Code :

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

1
2
3
4
5
C:\Program Files\EasyPHP1-8\www\traitement\trtaxe10>xls_txt.pl
Bareword "FIC" not allowed while "strict subs" in use at C:\Program Files\EasyPH
P1-8\www\traitement\trtaxe10\xls_txt.pl line 27.
Execution of C:\Program Files\EasyPHP1-8\www\traitement\trtaxe10\xls_txt.pl abor
ted due to compilation errors.

[djibril]

bon, mais nous ton script en entier.

[mariafan]

voila mon script en entier.

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
#!c:/perl/bin/perl -w
use strict;
 
use warnings;
use Spreadsheet::ParseExcel;
my @lignes=0;
 
my $fichier_txt = "./xls_txt.txt";
my $fichier_xls = "./srctst.xls";
die "fichier non trouve !\n" if (! -s $fichier_xls);
open(FIC, ">$fichier_txt" ) or die "impossible d'ecrire dans le fichier $fichier_txt : $!";
 
@lignes = <FIC>;
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($fichier_xls);
my($iR, $iC, $oWkS, $oWkC);
foreach my $oWkS (@{$oBook->{Worksheet}}) {
   print "--------- SHEET:", $oWkS->{Name}, "\n";
  for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ;
  $iR++) {
     for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ;
 $iC++) {
      $oWkC = $oWkS->{Cells}[$iR][$iC];
    print FIC "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC);
    }
  }
  }
  Close FIC; # avec Close(FIC)  ça ne marche pas

merci beaucoup pour votre aide.

[djibril]

je te demandais de mettre

Code :

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

close(FIC);

avec un c en minuscule

[Arioch]

Ton close à la fin n'est pas bon : Perl est sensible à la casse !!!

Donc, c'est pas Close mais close

[Arioch]

Zut, grilled by Djibril

[djibril]

bon tu te melange beaucoup les pedales.
1)

Code :

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

my @lignes =0;

On ne declare pas un tableau ainsi. c'est

Code :

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

my @lignes; ou my @lignes =();

2)

Code :

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

open(FIC, ">$fichier_txt" ) or die "impossible d'ecrire dans le fichier $fichier_txt : $!";

Là, tu fais une creation de fichier en ecriture. Et à ce fichier est associé un filehandle nommée FIC.

Code :

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

Donc @lignes = <FIC>;

n'a plus aucun sens car il sert à mettre un fichier dans un tableau.
Donc vire

Code :

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

@lignes = <FIC>;

Donc voilà ton script :

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
 
#!c:/perl/bin/perl
use strict;
use warnings;
use Spreadsheet::ParseExcel;
my @lignes;
 
my $fichier_txt = "./xls_txt.txt";
my $fichier_xls = "./srctst.xls";
die "fichier non trouve !\n" if (! -s $fichier_xls);
open(FIC, ">$fichier_txt" ) or die "impossible d'ecrire dans le fichier $fichier_txt : $!";
 
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($fichier_xls);
my($iR, $iC, $oWkS, $oWkC);
foreach my $oWkS (@{$oBook->{Worksheet}}) {
   print "--------- SHEET:", $oWkS->{Name}, "\n";
  for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ;
  $iR++) {
     for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ;
 $iC++) {
      $oWkC = $oWkS->{Cells}[$iR][$iC];
    print FIC "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC);
    }
  }
  }
  close FIC;

[mariafan]

d'accord comme il l'as dis Arioch c vrais tant pie pour moi
je m'excuse ça marche mnt
mais un autre souci moi je voudrais parser ce fichier mais le prm est que je récupère les ligne de xls en colonne dans txt
est -il possible d'avoir la même présentation dans txt que dans xls?

[Arioch]

Essaie ceci pour voir (remplace la partie correspondante dans ton script bien sûr) :

Code :

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

1
2
3
4
5
6
7
for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
     for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {
      $oWkC = $oWkS->{Cells}[$iR][$iC];
    print FIC $oWkC->Value, "\t";
    }
    print FIC "\n";
  }

[mariafan]

merci d'avance.
avec le nouveau changement voila mon script

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
#!c:/perl/bin/perl -w
use strict;
 
use warnings;
use Spreadsheet::ParseExcel;
my @lignes=0;
 
my $fichier_txt = "./xls_txt.txt";
my $fichier_xls = "./srctst.xls";
die "fichier non trouve !\n" if (! -s $fichier_xls);
open(FIC, ">$fichier_txt" ) or die "impossible d'ecrire dans le fichier $fichier_txt : $!";
 
@lignes = <FIC>;
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($fichier_xls);
my($iR, $iC, $oWkS, $oWkC);
foreach my $oWkS (@{$oBook->{Worksheet}}) {
   print "--------- SHEET:", $oWkS->{Name}, "\n";
 
for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {  
	for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {  
		$oWkC = $oWkS->{Cells}[$iR][$iC]; 
		print FIC $oWkC->Value, "\t"; 
	}
	print FIC "\n"; 
	}
 
  }
  close (FIC); # avec Close(FIC)  ça ne marche pas

et voila ce que j'ai comme retour

Code :

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

1
2
3
4
5
6
C:\Program Files\EasyPHP1-8\www\traitement\trtaxe10>xls_txt.pl
Filehandle FIC opened only for output at C:\Program Files\EasyPHP1-8\www\traitem
ent\trtaxe10\xls_txt.pl line 13.
--------- SHEET:Feuil1
Can't call method "Value" on an undefined value at C:\Program Files\EasyPHP1-8\w
ww\traitement\trtaxe10\xls_txt.pl line 22.

et dans le fichier txt j'ai eu seulement la première ligne ou il y a seulement une phrase

[djibril]

enleve cette ligne

Code :

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

@lignes = <FIC>;

Lis la FAQ pour apprendre la base.

Sinon pour ton script remplace

Code :

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

print FIC $oWkC->Value, "\t";

par

Code :

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

print FIC $oWkC->Value if($oWkC);

Il s'arrete en ligne 1 car les cellules sont vides d'ou le message d'errreur

Can't call method "Value" on an undefined value at C:\Program Files\EasyPHP1-8\w
ww\traitement\trtaxe10\xls_txt.pl line 22.