Discussion :

[vince2005]

Bonjour,

J'un fichier texte de 4 colonnes séparé par des ";" avec une entete.

Code :

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

1
2
3
 
DateD;Nombre;type de fichiers;dateFin
06/11/2010;1;30;F;16/11/2010 ;

Je souhaiterai envoyé ces données à des utilisateurs, soit sous forme de tableau ou xml.

Que me conseillez vous et comment réaliser un petit script qui me le permette ?

merci par avance

[Philou67430]

Sous forme de fichier .csv, tu n'as alors rien à faire, car ton format est déjà exactement un format CSV.

[vince2005]

oui, mais c'est loin d'être génial.

Deplus lorsque j'ouvre le fichier excel, l'utilisateur est obligé de passé par l'option convertir.

Je serais plus intéréssé par un tableau ou un fichier xml.

[djibril]

le format xml n'est pas compréhensible pour un non informaticien, donc si tu as déjà un fichier csv avec l'extension .csv , pourquoi s'embêter à faire un xml ?

• Que doivent faire tes utilisateurs avec ces fichiers ?
• Si c'est juste pour lire les données : csv est suffisant, ou au mieux, tu le converti en excel via perl.
• Si c'est pour l'utiliser dans d'autres programmes, dans ce cas un csv suffit aussi, mais envisager d'en faire un fichier texte tabulé suffit aussi, et en dernier recours XML (mais faudra le parser après).

[vince2005]

comment faire pour le convertir au format csv ou réaliser des tabulations entre les ; por que toutes les lignes et colonnes soit bien alignés ?

[Philou67430]

je ne comprends pas bien l'usage de ce fichier.... car on ne sait pas bien s'il y a un besoin fonctionnel de définir des colonnes (pour l'usage dans un tableur par exemple), et dans ce cas, un simple format CSV tel qu'il est maintenant est suffisant), ou s'il s'agit d'un besoin de présentation de colonne en mode texte (et pas texte enrichi, comme dans un traitement de texte). Car attention, vouloir les deux pourra poser problème :
- ajouter des espaces entre les ; risque d'intégrer ces espaces dans le contenu des colonnes si le fichier est importé dans un outil (tableur ou autre), ce qui n'est pas forcément souhaité
- le fait d'ajouter des tabulations risque de perturber un tableur lors de l'importation, ce dernier ne sachant plus si le séparateur est le ; ou la tabulation

Sinon, pour répondre précisément à ta question, il faudrait procédé selon l'algorithme suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
pour toutes les lignes
  pour chaque colonne
    si taille_colonne[colonne_no] est undef ou si la taille de la colonne est > à taille_colonne[colonne_no]
      taille_colonne[colonne_no] <- taille de la colonne
    finsi
  finpour
finpour
fermer et rouvrir le fichier
pour toutes les lignes
  pour chaque colonne
    afficher au format "%*.*s", taille_colonne[colonne_no]+1, taille_colonne[colonne_no]+1, colonne
  finpour
finpour

Dans quelques instants, le script correspondant.

[Philou67430]

J'avais promis un script, le voici. La première partie me permet de créer un fichier d'exemple contenant des données aléatoire d'aléatoire longueur.

La suite est l'implémentation de l'algorithme ci-dessus.

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
my $F;
my $csv = "exemple.csl";
if (!-r $csv) {
  open $F, ">", $csv or die "Can't open $csv for writing: $!\n";
  foreach (0.. 40) {
    print { $F } join ";", map { join "", map { ("a" .. "z")[int(rand(26))] } 0 .. int(rand(10)) } 0 .. 5;
    print { $F } "\n";
  }
 
  undef $F;
}
 
use List::Util qw(max);
open $F, "<", $csv;
my @taille_colonne;
while (my $ligne = <$F>) {
  my $colonne = 0;
  chomp $ligne;
  $taille_colonne[$colonne++] = max($taille_colonne[$colonne] // 0, length) foreach split /;/, $ligne;
}
undef $F;
open $F, "<", $csv;
while (my $ligne = <$F>) {
  my $colonne = 0;
  chomp $ligne;
  print join ";", map { sprintf "%*.*s", $taille_colonne[$colonne]+1, $taille_colonne[$colonne]+1, $_ } split /;/, $ligne;
  print "\n";
}