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