[Vi]Résolu/Fermé

Question

Bonjour,

Je cherche a inserer des tabulations dans un fichier de données afin d'en faciliter la lecture, et ce facon automatique. Mes champs sont de longueur fixe.

Sauriez vous s'il existe une comande Vi qui premettrait de le faire, ou a défaut auriez vous une idée de scripts ?

Merci d'avance...

vi4ever · Answer

par exemple pour en mettre une après chaque mot TITI sans effacer la fin de la ligne

vi -c "S/TITI.*/ &/" nomdufichier

le plus simple pour adapter à ton besoi et de consulter le
"Guide de survie sous VI"

http://matrix.samizdat.net/pratique/documentation/guide-survie-VI.html

Mathieu · Answer

Merci pour ta réponse, mais concretement, je n'ais pas de chaine distinctive... Comme les exemples sont souvent mieux que les ecris je veux faire ca:

fichier de données avec 3 colonnes (ou plus)
1ere : 4 caracteres = 1,05
2eme : 5 = 22,01
3ème : 1 = Y

ca donne :
1,0522,01Y

et je veux :
1,05 22,01 Y

Pour info, j'ai beaucoup de lignes... et beaucoup de colones

Merci de vos aides...

[Dal] · Answer

Salut,

tu peux utiliser sed.

Avec ton exemple, celà donne :

$ echo "1,0522,01Y" | sed 's/\(.\{4\}\)\(.\{5\}\)\(.\{1\}\)/\1       \2      \3/'
$ 1,05    22,01   Y

Une fois que tu as établi ton filtre sed, tu peux traiter tout un fichier avec le paramètre -i

$ sed -i old 's/\(.\{4\}\)\(.\{5\}\)\(.\{1\}\)/\1       \2      \3/' monfichier.txt

L'ancienne version sera renommée monfichier.txt.old

Dal

lami20j · Answer

Bonsoir à tous,Si j'ai bien compris : Après chaque 4 , 5 et 1 caractère on doit mettre une tabulation.En ce cas je propose cette solution :#! /usr/bin/perluse warnings;use strict;while (<DATA>){  my $l = length;  print join "	",unpack("A4A5A1" x ($l/10),$_),                  substr($_,-($l-(int($l/10))*10)),"
";}__END__1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Y3,9999,77A01,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Yaaa2,0522,01Z2,0522,01Z2,0522,01Z2,0522,01Z2,0522,0Resultat[lamitest@localhost corbeille]$ perl ccm_vi.pl1,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       3,99    99,77   A       01,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       aaa2,05    22,01   Z       2,05    22,01   Z       2,05    22,01   Z       2,05    22,01   Z       2,05    22,01   Z[lamitest@localhost corbeResultat pour Dal[lamitest@localhost corbeille]$ perl ccm_dal_vi.pl1,05    22,01   Y       1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Y3,9999,77A01,05    22,01   Y       1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Yaaa2,05    22,01   Z       2,0522,01Z2,0522,01Z2,0522,01Z2,0522,01Z[lamitest@localhost corbeiEn fait j'ai separe par 4,5 et 1 et ensuite j'afiche ce qui reste de chaine (disons qu'on a 63 caractères). Donc j'affiche 4+5+1 6 fois plus les 3 dernières.

lami20j · Answer

Re,

et même

#! /usr/bin/perl

use warnings;

while (<DATA>){
  s/(.{4})(.{5})(.)/$1\t$2\t$3\t/g;
  print;
}


__END__
1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Y3,9999,77A0
1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Yaaa
2,0522,01Z2,0522,01Z2,0522,01Z2,0522,01Z2,0522,01Z

Resultat

[lamitest@localhost corbeille]$ perl ccm_vi_2.pl
1,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       3,99    99,77   A       0
1,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       1,05    22,01   Y       aaa
2,05    22,01   Z       2,05    22,01   Z       2,05    22,01   Z       2,05    22,01   Z       2,05    22,01   Z

[lamitest@localhost corbeille]$

[Dal] · Answer

Salut Lami20j,

En fait, comme l'a indiqué Mathieu dans son post <5> ( http://www.commentcamarche.net/forum/affich-2154672-vi#5 ), son fichier de données a 60 champs, qui sont de longueur variable (l'exemple donné étant limité à 3 champs) et sans période particulière, semble-t-il.

C'est pourquoi j'ai proposé dans mon script en post <7> ( http://www.commentcamarche.net/forum/affich-2154672-vi#7 ) la création d'un tableau qui contient les positions des champs. Celà me semble être plus facile à gérer (et à faire évoluer si la structure des données venait à changer), plutôt que de coder en dur les sélections à faire sur 60 positions (sous forme d'une expression rationnelle ou autrement).

Il suffit de compléter les 60 positions dans le tableau @fields.

Dal

lami20j · Answer

Salut Dal,

je comprends ton raisonement. Donc ne tiens pas compte de ce que j'ai dit dans mon message N° 8.

En fait le plus important c'est que TMTOWTDI et Mathieu n'a qu'a choisir la solution que lui convient.

En général je propose d'autres solutions (je parle de Perl) exactement dans cet esprit et en plus je m'entraîne, et je n'ai jamais pensé que ma solution est la meilleure.

Moi aussi j'ai pris note de ta solution mais je me suis arrêtre au 3 champs, donc je n'ai pas vu plus loin (mea culpa).

lami20j

P.S. Mes solutions ne tiennent pas compte de nombre de champs (donc minimum 3 champs.......)

[Dal] · Answer

Salut Lami20j,Tu as raison, surtout avec Perl, il y a toujours de multiples façons de traiter un problème.A vrai dire, j'aime bien ton idée d'utiliser unpack avec join (j'avais d'ailleurs initialement pensé à utiliser split avec join, mais l'expression sur 60 positions ne m'attirait pas trop). Elle exploite mieux les spécificités de Perl. De plus, elle utilise la longueur de chaque champ (ce qui semble être l'information dont dispose Mathieu), et non leur position.Celà fait aussi un code plus court, et le format de description de la structure reste relativement lisible "A4A5A1..." (pas vraiment moins qu'un tableau).Pour répondre à la question de Mathieu avec ta méthode, on pourrai faire comme çà :$stFieldsTemplate = "A4A5A1";à compléter sur les 60 positions avec la suite des Axx..., puisqu'elles sont arbitraires et en tout cas non périodiques, et dans la boucle un simple :print join "	",unpack($stFieldsTemplate,$_); print "
";Ton avis m'intéresse, mon utilisation de Perl n'étant pas aussi avancée, et tes interventions sur ce langage étant toujours très instructives :)Dal

Mathieu · Answer

Merci a tous pour votre aide préciseuse, et surtout vos bonnes idées...

J'ai resolu mon problème... avec VI...

Je sens par contre, qu'il va falloir que je me mettes au perl un de ces jours... C'est tout de meme plus puissant que les scripts VI...

[Vi]

9 réponses

Discussions similaires

Newsletters