créer un xml ou tableau à partir de données

Version imprimable

17/11/2010, 16h28
vince2005

créer un xml ou tableau à partir de données
Bonjour,

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

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
17/11/2010, 16h30
Philou67430

Sous forme de fichier .csv, tu n'as alors rien à faire, car ton format est déjà exactement un format CSV.
17/11/2010, 16h40
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.
17/11/2010, 17h03
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).
18/11/2010, 07h19
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 ?

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:

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.

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:

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";
}