Spreadsheet::ParseExcel => Lire que le debut d un fichier xls

Bonjour à tous,

Voila je dois manipuler un fichier xls remplis de données pour creer un graph.

Il doit y avoir une 20aine de colones de 45000 lignes. Les colonnes vont par couple (X et Y). Je voudrais praser le debut de ces 20 colonnes pour permettre à l utilisateur de choisir quel paire de colone ploter.

J'ai donc bien pensé à utiliser le module Spreadsheet::ParseExcel mail il me semble que la methode Parse ou read pour Spreadsheet::ParseExcel::Simple
Parse la totalité du fichier.

Est il possible, d'apres votre grande experience de parser SEULEMENT le debut du fichier ??

ou alors de faire une copie troquée du fichier xls d'origine, ms ca reviens peut etre au meme probleme.

Je prend toutes solutions, idées, remarques .. alors n hésitez pas !
Merci !!

:mrgreen: :mrgreen: :mrgreen: :mrgreen:

Salut !

Je suis toujours prenneur d'infos merci d'avance.

Bonne annee a tous ! :mrgreen: :mrgreen: :mrgreen:

Cher ami bioinformaticien(nne ?)

D'après la doc du module (http://search.cpan.org/~kwitknr/Spre...ParseExcel.pm), il y a toujours un petit code source d'exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

use strict; use Spreadsheet::ParseExcel; my $oBook = Spreadsheet::ParseExcel::Workbook->Parse('Excel/Test97.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 "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC); } } }

---

Or, quand je vois ces boucles, surtout ceci :

Code:

---

1 2 3

for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++)

---

tu peux voir qu'ils partent depuis une ligne bien spécifique jusqu'à une autre ligne, bien spécifique. On peut alors modifier cette boucle pour lui dire, mettons de ne prendre que 10 lignes après la première :

Code:

---

1 2 3

for(my $iR = $oWkS->{MinRow} ; $iR<($oWkS->{MinRow}+10) ; $iR++)

---

Et voilà, le tour est joué ;)

@++

Je suis apprenti bioinformaticien :P

Merci beaucoup pour ta réponse mais ce n'est pas exactement ca que je veux faire, Evidement ! lol

Voila le probleme n'est pas la lecture ou l affichage des 10 premieres lignes mais le "parsing" une partie du fichier.

lorsque j'utilise uniquement ce code

Code:

---

1 2 3 4 5

use strict; use Spreadsheet::ParseExcel; my $oBook = Spreadsheet::ParseExcel::Workbook->Parse('Excel/Test97.xls');

---

Avec un fichier de 10 lignes ou 45000 lignes voir avec un fichier de 45000 lignes et 12 colonnes le temps d'execution du programme passe de 10 à 30 secondes à 3 min.

Ce que je comprends puisqu'il y a beaucoup plus de donnée ! :aie:

Donc je voulais savoir si il n y avait pas moyen de ne parser que le debut du fichier.

Mais peut etre que cela n est pas possible sans changer le code du module lui meme.
Je pensais aussi generer un deuxieme fichier plus petit, mais je pense que ca reviendrai au meme, il faudra surment lire tout le fichier pere avant de creer un fils plus court. Sauf si sa lecture et son ecriture est plus rapide (du fait de l'utilisation d'un autre module) que le parsing par le module Spreadsheet::ParseExcel.


Hi ,Hi, Hi ...
Merci de votre attention

Hello

OK, tu as un gros fichier Excel. Ok, tu veux récupérer qu'une portion intéressante. Y a t'il dans ce gros fichiers des éléments qui pourrait aiguiller ta récupération ? Une regexp, ça marche aussi ;)
Et dis-toi bien que perl, c'est du rapide, donc, un fichier de 45000 lignes, c'est pas ça qui lui fera peur.

@++

oki merci !
Ba je v faire avec alors.

Je vous tiens au courant de ma solution.

Je tag le post comme resolu du fait que je vais surment garder cette solution ! c t pour voir si il j'avais moyen d'obtimiser la chose ...

Merci encore et surment a bientot sur le forum

++