Intégration de caractéres dans une ligne

Bonjour,

J'ai un fichier test1 , dans lequel je souhaite rajouter la même chaine de caractére pour chaque ligne " 001 TEST " pour créer mon fichier test2, à partir de mon 12 ième caractére de début de ligne , en rajoutant la chaine sur 20 caractères " 001 TEST " et intercaler la suite sur cette même.

fichier test1 :TOKAS180630 MACHINE A 00000
TOKAS180630 MACHINE A 00000
TOKAS180630 MACHINE B 0000044444

Fichier test 2:
TOKAS180630 001 TEST MACHINE A 00000
TOKAS180630 001 TEST MACHINE B 0000044444

Le fichier est assez volumineux. Il faudrait quelques chose de simple.

Dans un précedent script, j'avais rajouté des fins de lignes par des 0. (voir ci-dessous). Mais là je cale.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#---------------------------------------------------------------------------------------- #--Rajout des caracteres 0 en fin de lignes pour combler les blancs sur 1500 caractere--- #---------------------------------------------------------------------------------------- cd ${RepOut} echo "Chemin Out : ${RepOut}" NbreMaxCar=1499 ls *MACHINE* 2>/dev/null | egrep -v "CRA" | while read UnFichier do cat ${UnFichier} | while IFS="" read UneLigne do   if [ ${NbreMaxCar} -gt ${#UneLigne} ] ; then printf "%s%0$((${NbreMaxCar}-${#UneLigne}))i\n" "$UneLigne" >> ${UnFichier}.tmp else echo "Erreur Ligne superieur a $NbreMaxCar caracteres" printf "%s\n" "$UneLigne" >> ${UnFichier}.tmp fi   done   mv ${UnFichier}.tmp ${UnFichier} done

---

Merci pour votre aide.

salut,

un grand classique, 1 ligne de sed et c'est marre :

Code:

---

sed -r 's/^(.{12})(.+)/\1 001 TEST \2/' fichier

---

Code:

---

1 2 3 4 5 6 7 8

$ sed -r 's/^(.{12})(.+)/\1 001 TEST \2/' <<EOF > TOKAS180630 MACHINE A 00000 > TOKAS180630 MACHINE A 00000 > TOKAS180630 MACHINE B 0000044444 > EOF TOKAS180630 001 TEST MACHINE A 00000 TOKAS180630 001 TEST MACHINE A 00000 TOKAS180630 001 TEST MACHINE B 0000044444

---

Bonjour,

J'approuve totalement la méthode de BufferBob.

Après en bash, tu as aussi la méthode suivante qui s'insère très bien dans le script que tu donnes, mais beaucoup plus lent que via sed:

Code:

---

1 2 3

$ UneLigne='TOKAS180630 MACHINE A 00000' $ echo "${UneLigne::12} 001 TEST ${UneLigne:12}" TOKAS180630 001 TEST MACHINE A 00000

---

et puisqu'on en parle :

Citation:

---

Envoyé par vince2005

Le fichier est assez volumineux

---

sed n'est même pas la meilleure approche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

$ time sed -r 's/^(.{12})(.+)/\1 001 TEST \2/' fichier > /dev/null real 1m3.374s   $ time perl -ne 'print $1."001 TEST ".$2 if m/^(.{12})(.+)/' fichier > /dev/null real 0m15.848s   $ time awk '{print substr($0,1,12) "001 TEST" substr($0, 12)}' fichier > /dev/null real 0m10.386s   $ time perl -ne 'print substr($_, 0, 12) . "001 TEST " .substr($_, 12)' fichier > /dev/null real 0m6.588s

---

Je suis étonné du temps de sed (qui reste tout de même meilleurs que la solution bash)...

Sinon, pourquoi tu rajoutes le (.+) ?
Ici, ce qui nous intéresse, c'est de rajouter une chaine en position 12, c'est tout, on se fiche de la suite...

t'as complètement raison :aie:

Code:

---

1 2	$ time sed -r 's/^(.{12})/\1 001 TEST /' fichier > /dev/null real 0m14.094s

---

reste que pour le coup c'est sans doute plus avisé d'y aller à coups de substr() que d'utiliser les regex

Oui, mais là je suis un peu plus satisfait du résultat de sed :)

Sinon, plus court en perl:

Code:

---

perl -pe 'substr($_, 12,0, " 001 TEST ")' fichier

---