Ajouter une mot en fin de ligneRésolu/Fermé

Question

Bonjour à tous,

J'ai un fichier du type:

LEC000315L          180874      KLC0171816G_1           10
LAB69020             178968      LAB69020_1              10
LAB69079             179970      LAB69079_1              12
LAB69212             179971      LAB69212_1              24
NOVN32928N        176794      ZNOVN32928_1            98

J'aimerais ajouter le mot "FIN" à la fin de chacune des ligne à la même position.

pour obtenir ceci:
LEC000315L          180874      KLC0171816G_1           10       FIN
LAB69020             178968      LAB69020_1              10          FIN
LAB69079             179970      LAB69079_1              12          FIN
LAB69212             179971      LAB69212_1              24          FIN
NOVN32928N        176794      ZNOVN32928_1            98        FIN

Voici mon script:

NB_LIGNES=`awk 'END {print NR}' $2`
NUM_LIGNE=1
LG_LIGNE=202

until [ "$NUM_LIGNE" = "$NB_LIGNES" ]
  do
    NB_CAR=`head -$NUM_LIGNE $2 |tail -1|wc -c`

    NB_ESP=`expr $LG_LIGNE - $NB_CAR`
    IND=1
    STRI="fin "
    until [ "$IND" = "$NB_ESP" ]
     do
      STRI=" $STRI"
      IND=`expr $IND + 1`
    done

    sed -e "$NUM_LIGNE s/.*/&$STRI/" $2 >> /share/PN4000/Part.txt

    NUM_LIGNE=`expr $NUM_LIGNE + 1`
done

Mon problème c'est que la commande sed recopie le fichier au complet à chaque passage.

Comment faire pour ne modifier que la ligne courante?
Merci pour vos réponses!

simo · Answer

Voilà, ça devrait marcher ;)

sed 's/$/ FIN/g' fichier

jipicy · Answer

Salut,

Tu t'embêtes pour rien :$ cat fichier.txt
LEC000315L 180874 KLC0171816G_1 10
LAB69020 178968 LAB69020_1 10
LAB69079 179970 LAB69079_1 12
LAB69212 179971 LAB69212_1 24
NOVN32928N 176794 ZNOVN32928_1 98
$ sed 's/.*/& FIN/' fichier.txt
LEC000315L 180874 KLC0171816G_1 10 FIN
LAB69020 178968 LAB69020_1 10 FIN
LAB69079 179970 LAB69079_1 12 FIN
LAB69212 179971 LAB69212_1 24 FIN
NOVN32928N 176794 ZNOVN32928_1 98 FIN
$;-))

simo · Answer

la commande sed permet de positionner le mot 'FIN' à la fin de toutes les lignes de ton fichier.

dubcek · Answer

A la colonne 35 exactement:
awk '{printf("%-33s FIN
", $0)}' < fichier.txt

jipicy · Answer

C'est moins joli avec "sed" qu'avec "awk" mais bon, si ça peut servir :$ cat fichier.txt
LEC000315L 180874 KLC0171816G_1 10
LAB69020 178968 LAB69020_1 10
LAB69079 179970 LAB69079_1 12
LAB69212 179971 LAB69212_1 24
NOVN32928N 176794 ZNOVN32928_1 98
$ sed ':z;s/^.\{,33\}$/& /;t z; s/.*/&FIN/' fichier.txt
LEC000315L 180874 KLC0171816G_1 10FIN
LAB69020 178968 LAB69020_1 10     FIN
LAB69079 179970 LAB69079_1 12     FIN
LAB69212 179971 LAB69212_1 24     FIN
NOVN32928N 176794 ZNOVN32928_1 98 FIN
$ ;-))

bennylane · Answer

Merci beaucoup à tous pour votre aide.
Une ligne de code pour ce traitement c'est très optimal.
:-)

lami20j · Answer

Salut,

une solution vraiment optimale sera de calculer la longueur de la ligne la plus grande, et l'utiliser pour positionner le mot FIN

Voilà ce qui donne si le nombre des champs n'est pas bien choisilami20j@debian:~$ cat req
LEC000315L 180874 KLC0171816G_1 10
LAB69020 178968 LAB69020_1 10
LAB69079 179970 LAB69079_1 12
LAB69212 179971 LAB69212_1 24
NOVN32928N 176794 ZNOVN32928_1 98
lami20j@debian:~$ awk '{printf("%-33s FIN
", $0)}' < req
LEC000315L 180874 KLC0171816G_1 10 FIN
LAB69020 178968 LAB69020_1 10     FIN
LAB69079 179970 LAB69079_1 12     FIN
LAB69212 179971 LAB69212_1 24     FIN
NOVN32928N 176794 ZNOVN32928_1 98  FIN
lami20j@debian:~$ awk '{printf("%-33s FIN
", $0)}' < req | perl -ne 'print length $1,"
" if /^(.+)FIN/'
35
34
34
34
35
lami20j@debian:~$ awk '{printf("%-40s FIN
", $0)}' < req | perl -ne 'print length $1,"
" if /^(.+)FIN/'
41
41
41
41
41Si j'augmente le nombre de champs alors tout va bien ;-)

bennylane · Answer

Dans mon cas ce n'est pas nécessaire de connaître la ligne la plus longue, car la longueur maximale est déterminée à l'avance et elle est fixe.

Merci
:-)

Ajouter une mot en fin de ligne

8 réponses

Discussions similaires

Newsletters