Decouper un fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Decouper un fichier

donny3

Bonjour,

j'ai un fichier qui se présente de la sorte

Citation :

Entreprise;Adresse;Code_E;Commande;Qte;Commande;Qte;Commande;Qte;Commande;Qte
ABB;Paris;12;RV34;4;RSP;19;RV56;8;PEL;5
Auchan;Nice;06;RV34;89;RSP;12;RV56;2;PEL;90

Je voudrais avoir 2 fichiers en sortie qui contiennent uniquement les commandes RV34 et RV56.
Le 1er fichier

Citation :

Entreprise;Adresse;Code_E;Commande;Qte;Commande;Qte
ABB;Paris;12;RV34;4;RV56;8
Auchan;Nice;06;RV34;89;RV56;2

Le 2ème Fichier

Citation :

Entreprise;Adresse;Code_E;Commande;Qte
ABB;Paris;12;RV34;4
ABB;Paris;12;RV56;8
Auchan;Nice;06;RV34;89
Auchan;Nice;06;RV56;2

Je suis un peu perdu,
je peux avoir un fichier
ou l'ordre des colonnes peut être différent (exemple la colonne PEL se trouve avant RV34 et RSP à la fin)
, donc je ne peux pas me baser sur le numéro de colonne :

Citation :

Entreprise;Adresse;Code_E;Commande;Qte;Commande;Qte;Commande;Qte;Commande;Qte
ABB;Paris;12;PEL;5;RV34;4;RV56;8;RSP;19
Auchan;Nice;06;PEL;90;RV34;89;RV56;2;RSP;12

Merci,
pour votre aide

Publicité

Krakramille

moi je ferais comme suite :
- lecture ligne par ligne du fichier d'entrée
- extraction des champs avec awk
- et on crache ce qui nous intéresse dans les fichiers de sortie

gilou

Modérateur
Modzilla

Un truc pondu vite fait, en perl:

Code :

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
my @lines;
my $input = 'mycsv.txt';
my $ouput1 = 'out1.txt';
my $ouput2 = 'out2.txt';
 
open my $fh, "<", $input;
while (<$fh> ) {
  next if ($. <2);
  my ($entreprise, $address, $code, %cmd) = split /;|\n/;
  push @lines, [$entreprise, $address, $code, $cmd{RV34}, $cmd{RV56}];
}
close($fh);
 
open $fh, ">", $ouput1;
print $fh "Entreprise;Adresse;Code_E;Commande;Qte;Commande;Qte\n";
foreach (@lines) {
  print $fh "$_->[0];$_->[1];$_->[2];RV34;$_->[3];RV56;$_->[4]\n";
}
close($fh);
 
open $fh, ">", $ouput2;
print $fh "Entreprise;Adresse;Code_E;Commande;\n";
foreach (@lines) {
  print $fh "$_->[0];$_->[1];$_->[2];RV34;$_->[3]\n";
  print $fh "$_->[0];$_->[1];$_->[2];RV56;$_->[4]\n";
}
close($fh);

et une variante, un peu plus verbeuse et explicite:

Code :

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
my @lines;
my $input = 'mycsv.txt';
my $ouput1 = 'out1.txt';
my $ouput2 = 'out2.txt';
 
open my $fh, "<", $input;
while (<$fh> ) {
  next if ($. <2);
  my ($entreprise, $address, $code, %cmd) = split /;|\n/;
  push @lines, {Entreprise => $entreprise, Addresse => $address, Code => $code, RV34 => $cmd{RV34}, RV56 => $cmd{RV56}};
}
close($fh);
 
open $fh, ">", $ouput1;
print $fh "Entreprise;Adresse;Code_E;Commande;Qte;Commande;Qte\n";
foreach (@lines) {
  print $fh "$_->{Entreprise};$_->{Addresse};$_->{Code};RV34;$_->{RV34};RV56;$_->{RV56}\n";
}
close($fh);
 
open $fh, ">", $ouput2;
print $fh "Entreprise;Adresse;Code_E;Commande;\n";
foreach (@lines) {
  print $fh "$_->{Entreprise};$_->{Addresse};$_->{Code};RV34;$_->{RV34}\n";
  print $fh "$_->{Entreprise};$_->{Addresse};$_->{Code};RV56;$_->{RV56}\n";
}
close($fh);

A+,

Message édité par gilou le 23-04-2015 à 22:29:34

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Profil supprimé

salut,

Citation :

- lecture ligne par ligne du fichier d'entrée

ça, awk le fait, donc c'est inutile.

Citation :

Je voudrais avoir 2 fichiers en sortie qui contiennent uniquement les commandes RV34 et RV56.

donc on se moque des PEL, et autres RSP.

voici un premier pseudo code:

Code :

si la ligne contient "RVn" (où n est la représentation d'un nombre)
alors
on conserve les 3 premiers champs dans une variable
on itère sur les autres champs,
si le champs commence par "RV"
alors
on concatène la variable des 3 premiers champs, avec le champs qui correspond au motif cherché, et avec le suivant dans une variable
on ajoute la variable des 3 premiers champs avec le champs qui correspond au motif cherché, et le suivant dans un fichier
à la fin de la boucle on ajoute la variable concaténée dans un second fichier

oui, dit comme ça, c'est pas super clair

avant de me lancer, je voudrais savoir si la première ligne est importante, et doit figurer dans les fichiers destination ?

FORUM HardWare.fr

Programmation

Shell/Batch

Decouper un fichier

Sujets relatifs
html 5 drag and drop plusieurs fichier	suppression fichier avec macro VB
Comparer Bdd à fichier txt	[résolu] découper un fichier selon contenu de la ligne
[Résolu][Perl] Découper un fichier en plusieurs et optimisation	découper une chaine de caractères d'un fichier en java
Shell : Découper un fichier en plusieurs fichiers	Découper un fichier word en plusieurs fichiers via une macro
batch: Découper un fichier en plusieurs fichiers	Découper un fichier audio
Plus de sujets relatifs à : Decouper un fichier

Page générée en 0.077 secondes