Discussion :

[panaone]

Bonjour à tous,

je cherche à faire petit script perl qui permettrait de decouper un fichier XLS volumineux en plusieurs fichiers de 130 lignes chacun avec un nom différent.

J'ai adapté ce que j'ai pu trouvé sur le web, mais j'ai des caractères spéciaux qui sont présents après découpage ?? et le découpage n'est pas exacte ?? Pourquoi ?

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
 
 
#!/usr/bin/perl
 
print "Quel est le fichier à découper ?\n";
my $question= <STDIN>;
chomp $question;
my $xlsfile=$question;
open(XLXFILE, "$xlsfile") || die "Impossible d'ouvrir le fichier $xlsfile :$!";
print "Lecture du fichier : $xlsfile\n";
 
BEGIN { $file = "partie00"; }
 
while(<XLXFILE>) {
	if ($. % 130 == 1) {
		close F;    # ferme le fichier précédent
		open F, "> $file.csv"
		or die "Impossible de créer $file.csv: $!";
		$file++;    # auto-incrément magique
	}
	print F;
 
}
close XLXFILE or die "Impossible de fermer le fichier  $XLXFILE\n";

merci pour votre aide,
panaone

[djibril]

je t'ai fais un script correct, courage. Hésite pas si tu veux des explications

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
 
#!/usr/bin/perl -w
use strict;
use Carp;
 
print "Quel est le fichier à découper ?\n"; 
my $question = <STDIN>; 
chomp $question;
print "En combien de lignes voulez vous le decouper ?\n"; 
my $nbr_ligne = <STDIN>; 
chomp $nbr_ligne; 
my $xlsfile = $question;
my $num = 1;
my ($ligne,$i,$texte);
open(XLXFILE, "$xlsfile") || die "Impossible d'ouvrir le fichier $xlsfile :$!"; 
print "Lecture du fichier : $xlsfile\n"; 
 
while($ligne = <XLXFILE>) { 
	$texte .=$ligne;
	$i++;
	if ($i == nbr_ligne) {
	  &creation_fichier($num, $texte, $i);
	}
} 
close (XLXFILE); 
if ($i != 0) {&creation_fichier($num, $texte, $i);}
 
sub creation_fichier{
  ($num, $texte, $i)=@_;
  open (F, ">fichierxls_decoupe".$num.".csv") || die "Impossible d'ouvrir le fichier :$!";
  print F $texte;
  close (F);
  $texte="";
  $i=0;
  $num++;
}

[panaone]

Merci pour ton aide djibril,

mais j'ai toujours un problème le premier comporte bien des lignes de texte mais également des caractères spéciaux ?? et les autres sont vides avec des caractères spéciaux !

Voici les caractères que j'obtiens :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Ίý
Î
‹ý
ÎŒý
ύý
Ï
Žý
Ϗý
Аý
Ð
‘ý
Ð’ý
Гý
Ñ”ý
Ñ
•ý

Voici quelques lignes du fichier XSL

que j'essaie de découper :

Entreprise R. Cholet 43 r République 94360 Bry sur Marne 01 48 81 38 47 01 48 81 20 57
Eurobarrère 4 r Victor Carmignac 94110 Arcueil EUROBARRERE@wanadoo.fr 01 46 64 07 90 01 45 47 90 62
F.A.R.C. (Fernandez Acevedo Rénovation Construction) ZA les Roseaux 3 r Ile de France 94460 Valenton farc@ifrance.com 01 56 32 80 40 01 56 32 80 49
GDB rénovation 9 av Gén Leclerc 94440 Santeny 01 43 86 52 41
Groupement Travaux et Rénovation Habitat 5 r Ampère 94400 Vitry sur Seine 01 46 82 93 64
J M Rénovation 43 av Maurice Berteaux 94420 Plessis Trévise (Le) 01 45 76 00 14


Pourquoi j'obtiens toutes ces merdes ?? problème d'encodage ?

Merci pour ton aide,
panaone

[GLDavid]

Oui, à mon avis c'est un problème d'encodage.
Pourrais-tu nous donner ton OS et sa localisation ?
Merci d'avance.

@++

[panaone]

L'os est Windows XP ! comment puis je procéder ?

merci,
panaone

[panaone]

En faite c'est bizarre j'ai changé le fichier à decouper en .csv et maintenant ça passe nikel ? il y a donc un problème avec un fichier .XLS ?

Pourquoi ?

en tout cas c'est quand même opérationnel !

[djibril]

pourquoi ne pas mettre tout simplement l'extension .txt, pourquoi mettre xls ou csv alors que ces fichiers ne sont pas de ce format??
qu'elle est le format du fichier à decouper.
Oublie pasaussi le tag resolu si c'est ok!!

[panaone]

Le format du fichier à decouper est .xls mais je peux également récupérer ce fichier à découper au format .csv et le tout est réglé mais je m'interroge quand même sur le résultat obtenu avec le .xls ?

merci,
panaone

[djibril]

ce sont les mysteres de l'info .
Un tag resolu si c'est ok!!!

[ronanl64]

Bonjour
Il me semble avoir le même besoin:
Voila j'ai un ficheir Excel avec de très nombreuses lignes (1 seule colonne)
Je souhaiterais pouvoir couper ce fichier excel en X fichiers (et non pas feuille) excel différents (renommer automatiquement) de Y lignes.

Mais je n'ai aps du tout compris la solution.
Quelqu'un pourrait m'aider?
Merci d'avance

[djibril]

Fais un autre topic