Sujet Précédent Sujet Suivant

Pb Excel / Csv Perl

Résolu/Fermé
VivoBaggio Messages postés 140 Date d'inscription jeudi 27 octobre 2005 Statut Membre Dernière intervention 23 janvier 2009 - 1 oct. 2007 à 17:44
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 3 oct. 2007 à 18:21
Bonjour. Voilà, j'ai un soucis avec mon script de Perl. Il a pour but de récupérer des données d'un fichier excel et de les retranscrire dans un fichier csv. Mon souci est au niveau de la récupération des données. Ils me les retranscrit bien, mais pas qu'une fois, il le fait plusieurs fois, il boucle les données une quinzaine de fois alors que je veux qu'il le fasse qu'une fois.
Pour moi, il y a un soucis au niveau des boucles, mais je n'arrive pas à le corriger et comme je débute en programmation, ça commence à me prendre la tête.
Je vous mets ci-dessous mon code. Merci de vouloir y jeter un oeil.

#!C:/Perl/bin/perl.exe
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
my $excel_in = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
my $book = $excel_in->Workbooks->Open("C:\\Clients\\Systeme_U\\marketing_distinctif\\produits_SU1107.xls");
my $sheet = $book->Worksheets(1);
my $array1 = $sheet->Range("A3:A167" )->{'Value'};
my $array2 = $sheet->Range("B3:B167" )->{'Value'};
my $sheet2 = $book->Worksheet(2);
$book->Close;
foreach my $ref_array1 (@$array1) {
foreach my $ref_array2 (@$array2) {
foreach my $scalar1 (@$ref_array1) {
foreach my $scalar2 (@$ref_array2) {
my $ligne=0;
foreach my $word1 ( split(' ',$scalar1) ) {
foreach my $word2 ( split(' ',$scalar2) ) {
print "$word1;$word2\n";
my $fichier= "C:\\Clients\\Systeme_U\\marketing_distinctif\\produits_SU1107.csv";
open F, ">>$fichier"; # ouverture en ajout dans un fichier existant
print F "$word1;$word2\n"; # écriture de $chaine dans le fichier
}
}
$ligne++;
}
}
}
}
close F;
print "File Completed\n";
system("pause");
A voir également:

10 réponses

Réponse 1 / 10
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
1 oct. 2007 à 20:12
Salut,

essaie
#!C:/Perl/bin/perl.exe
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
my $excel_in = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
my $book = $excel_in->Workbooks->Open("C:\\Clients\\Systeme_U\\marketing_distinctif\\produits_SU1107.xls");
my $sheet = $book->Worksheets(1);
my $array1 = $sheet->Range("A3:A167" )->{'Value'};
my $array2 = $sheet->Range("B3:B167" )->{'Value'};
my $sheet2 = $book->Worksheet(2);
$book->Close;


my $fichier= "C:\\Clients\\Systeme_U\\marketing_distinctif\\produits_SU1107.csv";
open F, ">>$fichier"; # ouverture en ajout dans un fichier existant

my @x = split " ", join " ",map { split } @$array1;
my @y = split " ", join " ",map { split } @$array2;

print F "$x[$_];$y[$_]\n" for (0..$#x)
close F;
print "File Completed\n";
system("pause");
__END__
0
Réponse 2 / 10
VivoBaggio Messages postés 140 Date d'inscription jeudi 27 octobre 2005 Statut Membre Dernière intervention 23 janvier 2009
2 oct. 2007 à 10:20
J'aimerais savoir ce que tu as mis dans ton FOR car comme je débute en perl, je comprends pas ta syntaxe.
"print F "$x[$_];$y[$_]\n" for (0..$#x)"
Parcequ' avec ton code, le programme se lance, se termine, sans me créer mon csv.
0
Réponse 3 / 10
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
2 oct. 2007 à 10:37
Et mois j'ai besoin que tu m'envoies ton fichier excel pour tester.
Je n'aime pas travailler à l'aveugle.

mets ce code dans un fichier script.pl
#!C:/Perl/bin/perl.exe
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
my $excel_in = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
my $book = $excel_in->Workbooks->Open("C:\\Clients\\Systeme_U\\marketing_distinctif\\produits_SU1107.xls");
my $sheet = $book->Worksheets(1);
my $array1 = $sheet->Range("A3:A167" )->{'Value'};
my $array2 = $sheet->Range("B3:B167" )->{'Value'};
my $sheet2 = $book->Worksheet(2);
$book->Close;
for (@$array1){ print "-$_\n";}
for (@$array2){ print "=$_\n";}
__END__
execute ensuite le fichier avec la commande 
perl script.pl >  c:\resultat.txt
et mets le fichier resultat.txt sur cjoint.com
0
Réponse 4 / 10
VivoBaggio Messages postés 140 Date d'inscription jeudi 27 octobre 2005 Statut Membre Dernière intervention 23 janvier 2009
2 oct. 2007 à 16:20
Je vais avoir du mal avec ton dernier code à te passer un fichier de sortie car il n'en crée pas, vu qu'il n'y a pas de code concernant la sortie. Donc j'insère le mien pour avoir une sortie, et là il ne me retranscrit rien. Mon csv est vide. Mais là n'est pas le soucis.

Sinon par rapport à ton code, tes 2 print me ressortent bien dans le fenetre dos les 165 info de chaque colonne.
Là où est le problème, c'est que je dois récupérer tes 2 print en un seul, 165 fois et non 165 x le nombre de colonnes. Et par rapport à mon code de départ, il me récupérait bien le print avec les 2 valeurs mais un nombre conséquent de fois.

Donc j'ai changé ton code pour essayer quelquechose
1er test
for (@$array1){ for (@$array2){ } }
print "$array1;$array2\n";

Il me récupère les 2 valeurs du print, mais qu'une fois (normal, je suis en dehors des 2 boucles)

2e test
for (@$array1){ for (@$array2){
print "$array1;$array2\n";
} }

Il me récupère les valeurs mais un nombre conséquent de fois (et là, ca m'emmerde. Retour à la case départ)

Comment faire pour récupérer les valeurs un nombre de fois égal aux nombre de lignes d'une colonne dans mon fichier excel (165 dans mon cas) ? Où le boucler ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
2 oct. 2007 à 16:34
Je vais avoir du mal avec ton dernier code à te passer un fichier de sortie car il n'en crée pas, vu qu'il n'y a pas de code concernant la sortie.

Ce n'est pas le code qui créer le fichier mets la commande que tu dois taper en DOS
perl script.pl > c:\resultat.txt


Comme je vois que tu n'as pas compris alors execute celui là et passe moi le fichier.
#!C:/Perl/bin/perl.exe
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
my $excel_in = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
my $book = $excel_in->Workbooks->Open("C:\\Clients\\Systeme_U\\marketing_distinctif\\produits_SU1107.xls");
my $sheet = $book->Worksheets(1);
my $array1 = $sheet->Range("A3:A167" )->{'Value'};
my $array2 = $sheet->Range("B3:B167" )->{'Value'};
my $sheet2 = $book->Worksheet(2);
$book->Close;
open F,">>c:\resultat.txt"
  or die "E/S : $!\n";
for (@$array1){ print F "-$_\n";}
for (@$array2){ print F "=$_\n";}
__END__
J'attends ton retour

Mon code et fonctionnel. En revanche ça depends de ce que les cellules contiennent.
Si tu ne peux pas me dire, je ne pourrai pas t'aider.
0
Réponse 6 / 10
VivoBaggio Messages postés 140 Date d'inscription jeudi 27 octobre 2005 Statut Membre Dernière intervention 23 janvier 2009
2 oct. 2007 à 17:20
https://www.cjoint.com/?kcrtrZOsQV pour le fichier .xls
https://www.cjoint.com/?kcruenriYZ pour le résultat.txt
0
Réponse 7 / 10
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
2 oct. 2007 à 22:39 
#!C:/Perl/bin/perl.exe
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
my $excel_in = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
my $book = $excel_in->Workbooks->Open("C:\\Clients\\Systeme_U\\marketing_distinctif\\produits_SU1107.xls");
my $sheet = $book->Worksheets(1);
my $array1 = $sheet->Range("A3:A167" )->{'Value'};
my $array2 = $sheet->Range("B3:B167" )->{'Value'};
my $sheet2 = $book->Worksheet(2);
$book->Close;
open F,">>c:\resultat2.txt"
  or die "E/S : $!\n";
for (@$array1){ print F "-@$_\n";}
for (@$array2){ print F "=@$_\n";}
exécute et mets aussi le fichier resultat2txt sur cjoint.com
0
Réponse 8 / 10
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
2 oct. 2007 à 23:18 
#!C:/Perl/bin/perl.exe 
use strict;use warnings;
use Spreadsheet::ParseExcel;

open F,">>c:\resultat.csv"
    or die "E/S : $!\n";

my $file = "C:\\Clients\\Systeme_U\\marketing_distinctif\\produits_SU1107.xls";
my $excel = Spreadsheet::ParseExcel::Workbook->Parse($file);
my $sheet = ${$excel->{Worksheet}}[0];

foreach my $row (2 ... 166) {
  my $cell1 = $sheet->{Cells}[$row][0];
  my $cell2 = $sheet->{Cells}[$row][1];
  print F "$cell1->{Val};$cell2->{Val}\n";
}
__END__
--
lami20j
0
Réponse 9 / 10
VivoBaggio Messages postés 140 Date d'inscription jeudi 27 octobre 2005 Statut Membre Dernière intervention 23 janvier 2009
3 oct. 2007 à 17:19
Tu as modifié mon code d'origine, mais tu as réussi à me le faire marcher. J'achète. Merci de ton aide.
0
Réponse 10 / 10
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
3 oct. 2007 à 18:21
J'achète.

c'est gratuit ;-)

de rien :-)
0