[Vi]
Résolu
Mathieu
-
Mathieu -
Mathieu -
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...
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...
A voir également:
- Vi rechercher un mot
- Trousseau mot de passe iphone - Guide
- Rechercher ou entrer l'adresse - Guide
- Mot de passe - Guide
- Mot de passe administrateur - Guide
- Rechercher un mot dans word - Guide
9 réponses
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
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...
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 :
Une fois que tu as établi ton filtre sed, tu peux traiter tout un fichier avec le paramètre -i
L'ancienne version sera renommée monfichier.txt.old
Dal
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
C'est fantastique, c'est exactement ce qu'il me fallait...
MAIS... Mon fichier a 60 champs -> VI me renvoit "E51 : trop de \("
:(
Y a t'il une autre solution ? Combien de \ accepte VI ? Je pourrais tjs essayer de faire 2 ou 3 passes mais...
PS : sur sed, ca marcherait ?
PS2 : je suis sur un PC Windows... :(
MAIS... Mon fichier a 60 champs -> VI me renvoit "E51 : trop de \("
:(
Y a t'il une autre solution ? Combien de \ accepte VI ? Je pourrais tjs essayer de faire 2 ou 3 passes mais...
PS : sur sed, ca marcherait ?
PS2 : je suis sur un PC Windows... :(
60 champs, celà en fait des parenthèses et des slashs... et si ton format change un peu, tu ne t'y retrouves plus.
Tu as intérêt à faire un petit programme pour çà.
Par exemple, en Perl :
@fields est un tableau contenant les positions sur la ligne des caractères après lesquels une tabulation doit être insérée (le premier caractère étant à la position 0).
Dal
Tu as intérêt à faire un petit programme pour çà.
Par exemple, en Perl :
#!/usr/bin/perl
@fields = (3,8,9);
$st = "";
$o = "0";
open(FICH, "data.txt");
while (<FICH>) {
for ($n=0; $n<(length($_)-1); $n++) {
$st .= substr($_, $n, 1);
if ($fields[$o] eq $n) {
$st .= chr(9); $o++;
}
}
print "$st\n"; $st = ""; $o = "0";
}
close(FICH);
@fields est un tableau contenant les positions sur la ligne des caractères après lesquels une tabulation doit être insérée (le premier caractère étant à la position 0).
Dal
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 :
Resultat
Resultat pour Dal
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.
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
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
et même
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]$
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
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.......)
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
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
Re,
Pour suivre ton raisonnement, on pourra même créer une fonction
qui pourra être utiliser un peu dans la manière que ton tableau @fields, avec la difference qu'on va utiliser unpack et les valeurs utiliser seront des arguments pour la fonction et pas des éléments d'un tableau.
Une autre posibilité qui me vient à l'esprit c'est de couper la chaîne par 10caractères, et ensuite de traiter le bloc de 10(en 4,5,1), et ce qui reste si longuer > 4 et <=9 (4,5 ou le reste) et si <= 4 (4 ou le reste).
Pour suivre ton raisonnement, on pourra même créer une fonction
sub coup2format {
}
qui pourra être utiliser un peu dans la manière que ton tableau @fields, avec la difference qu'on va utiliser unpack et les valeurs utiliser seront des arguments pour la fonction et pas des éléments d'un tableau.
while (<FIC>){
coup2format(arg1,arg2,arg3,......);
}Et tu ça pour la paresse dont on parle en Perl (on evite de taper A4A5A1.....)
Une autre posibilité qui me vient à l'esprit c'est de couper la chaîne par 10caractères, et ensuite de traiter le bloc de 10(en 4,5,1), et ce qui reste si longuer > 4 et <=9 (4,5 ou le reste) et si <= 4 (4 ou le reste).