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

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...

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

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

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 "\t",unpack("A4A5A1" x ($l/10),$_),
                  substr($_,-($l-(int($l/10))*10)),"\n";
}


__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

[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

[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

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

[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]$

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

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.......)

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 "\t",unpack($stFieldsTemplate,$_); print "\n";

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

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...