Menu

Traitement fichier avec Sed, Awk ou autres [Résolu/Fermé]

Messages postés
558
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
19 juin 2019
- - Dernière réponse : pcsystemd
Messages postés
558
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
19 juin 2019
- 12 avril 2016 à 14:33
Bonjour,

J'ai un fichier de données qui contient des milliers de lignes comme suite :

1001|20015232851|||25 bld totl||75000|Paris||6|JOEAU|2206000|24/05/2013|25/06/2015||2001|2001|17592|C|48,860274|2,345089
1001|20015246491|||41 rue court||75000|Paris||6|CAENS|289000|28/02/2014|30/07/2015||2001|2001|16141|C|48,88000|2,32417


Celui ci contient 21 champs séparés par des pipes |

J'aurais souhaité pouvoir remplacer les virgules des champs 20 et 21 (les derniers) par des points comme suite :

1001|20015232851|||25 bld totl||75000|Paris||6|JOEAU|2206000|24/05/2013|25/06/2015||2001|2001|17592|C|48.860274|2.345089
1001|20015246491|||41 rue court||75000|Paris||6|CAENS|289000|28/02/2014|30/07/2015||2001|2001|16141|C|48.88000|2.32417


J'ai besoin d' aide.

Merci


Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
17772
Date d'inscription
lundi 15 janvier 2007
Statut
Contributeur
Dernière intervention
19 juillet 2019
4384
1
Merci
hello
$ awk 'BEGIN {FS=OFS="|"} {sub(",", ".", $20); sub(",", ".", $21); print}' fichier
1001|20015232851|||25 bld totl||75000|Paris||6|JOEAU|2206000|24/05/2013|25/06/2015||2001|2001|17592|C|48.860274|2.345089
1001|20015246491|||41 rue court||75000|Paris||6|CAENS|289000|28/02/2014|30/07/2015||2001|2001|16141|C|48.88000|2.32417

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 54890 internautes nous ont dit merci ce mois-ci

Messages postés
558
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
19 juin 2019
16
0
Merci
Bon finalement j'ai trouvé avec Sed.

sed -e 's/|\([0-9][0-9]\/[0-9][0-9]\/[0-9][0-9][0-9][0-9]\) [0-9][0-9]:[0-9][0-9]:[0-9][0-9]/|\1/g' -e 's/,/./g' fichier1 > fichier2 


Merci
Messages postés
28884
Date d'inscription
jeudi 12 mai 2005
Statut
Modérateur
Dernière intervention
17 juillet 2019
6600
0
Merci
Ta solution ne limite pas la substitution aux colonnes 20 et 21. Avec awk :

cat toto.txt | awk 'BEGIN {FS="|"} ; {printf("%s",$1); for(i=2;i<20;i++) printf("|%s",$(i)); for(i=20;i<22;i++){ s=$(i); gsub(/,/, ".", s); printf("|%s",s);} print "";}' 


Ou de manière plus lisible si tu passes par un fichier script.awk :

BEGIN {
  FS="|"
}

{
  printf("%s", $1);
  for (i = 2; i < 20; i++) {
    printf("|%s", $(i));
  }
  for (i = 20; i < 22; i++) {
    s = $(i);
    gsub(/,/, ".", s);
    printf("|%s", s);
  }
  print "";
}


Puis :

cat toto.txt | awk -f script.awk


Exemple :

(mando@velvet) (~) $ cat toto.txt | awk 'BEGIN {FS="|"} ; {printf("%s",$1); for(i=2;i<20;i++) printf("|%s",$(i)); for(i=20;i<22;i++){ s=$(i); gsub(/,/, ".", s); printf("|%s",s);} print "";}' 
1001|20015232851|||25 bld totl||75000|Paris||6|JOEAU|2206000|24/05/2013|25/06/2015||2001|2001|17592|C|48.860274|2.345089
1001|20015246491|||41 rue court||75000|Paris||6|CAENS|289000|28/02/2014|30/07/2015||2001|2001|16141|C|48.88000|2.32417


Bonne chance
zipe31
Messages postés
36624
Date d'inscription
dimanche 7 novembre 2010
Statut
Contributeur
Dernière intervention
19 juillet 2019
3708 -
Salut mamiemando,

On doit pouvoir faire plus court…

awk 'BEGIN {FS=OFS="|"}; { gsub(/,/, ".", $21); gsub(/,/, ".", $22); print }'
mamiemando
Messages postés
28884
Date d'inscription
jeudi 12 mai 2005
Statut
Modérateur
Dernière intervention
17 juillet 2019
6600 -
Merci pour cette remarque très pertinente, car aux index près (
$20
et
$21
au lieu de
$21
et
$22
), c'est effectivement beaucoup plus simple !

awk 'BEGIN {FS = OFS = "|"}; { gsub(/,/, ".", $20); gsub(/,/, ".", $21); print }'


Je ne savais pas qu'altérer
$20
et
$21
permettait d'altérer implicitement
$0
(implicitement passé en argument du dernier print). L'idée de changer
OFS
pour éviter de le ré-indiquer dans le
print
est également bien vue.

Edit : j'ai vu la réponse de dubcek après coup.
zipe31
Messages postés
36624
Date d'inscription
dimanche 7 novembre 2010
Statut
Contributeur
Dernière intervention
19 juillet 2019
3708 > mamiemando
Messages postés
28884
Date d'inscription
jeudi 12 mai 2005
Statut
Modérateur
Dernière intervention
17 juillet 2019
-
Edit : j'ai vu la réponse de dubcek après coup.
J'avais également vu sa réponse (antérieure à la mienne) qu'après avoir posté la mienne. De ce fait sa réponse est plus juste que la mienne, dubcek restant le Maître incontesté pour awk ;-)
Messages postés
558
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
19 juin 2019
16
0
Merci
Un peu tard mais merci a tous.