Lignes identiques dans un fichier

Bonjour,

Voici un exemple de mon fichier texte :
REC,0,5,81,1203
REC,0,5,81,1203
REC,0,5,81,1209.2
REC,0,5,81,1209.2
REC,0,5,81,1207.2
REC,0,5,81,1206.2
...

Dans ce fichier je souhaiterais y insérer un saut de ligne à chaque fois que ma ligne est différente de
la précédente .

En TCL , je ne sais pas comment faire pour enregistrer la ligne et la comparer à la suivante

Dans mon exemple seul le dernier élément change et je souhaiterai comparer avec ce dernier

Merci de votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

set fichier [open $statusfile r] set new [open $newfile w+]   while {![eof $fichier]} {   set ligne [gets $fichier] set data [ string match {*REC,*} $ligne]   if {$data == 1 } { set ligne [split $ligne ","] set data [lindex $ligne end] }   }

---

Bonsoir,

Une solution possible est la suivante :
- Ouvrir et lire le fichier statusfile
- Spliter le contenu dans une liste
- Ouvrir le fichier newfile
- Parcourir la liste dans une boucle en comparant avec l'élément précédent
- Si deux éléments consécutifs sont différents alors écrire un saut de ligne dans le fichier newfile sinon écrire les éléments de la liste

Ce qui donne en Tcl :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

set fp [open $statusfile r] set fd [read $fp] close $fp set l [split $fd "\n"] set lo [lindex $fd 0] set fp [open newfile w] puts $fp $lo foreach line [lrange $l 1 end] { if ![string equal $line $lo] {puts $fp ""} puts $fp $line set lo $line } close $fp

---

----
canvas

Bonjour,

merci beaucoup de votre réponse et suivant l'exemple que je vous ai donné cela marche parfaitement .

Dans mon fichier texte, j'ai parfois des lignes qui peuvent s'insérer et ma ligne REC peut elle aussi changer .
Je voudrai vraiment contrôler cette ligne et ne pas tenir compte des autres.
La seul chose qui est consécutif dans ces lignes "REC" c'est le dernier élément .
ex :
REC,0,5,81,1203
REC,0,5,99,1203
PAUSE
REC,0,5,81,1209.2
STOP
REC,0,5,101,1201
REC,0,5,102,1201
REC,0,5,99,1203
STOP
...

En reprenant mon code et votre exemple :

J'ai essayé d'insérer la commande foreach
mais sur ma console j'ai cette erreur sur la ligne foreach : "invalid command name"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

set fichier [open $statusfile r] set new [open $newfile w+]   while {![eof $fichier]} {   set ligne [gets $fichier] set data [ string match {*REC,*} $ligne]   if {$data == 1 } { set valeur [split $ligne ","] foreach line [[lindex $valeur end]] {   # mon code pour comparer } } }

---

Merci de votre soutien

Bonsoir,

Si je reprends déjà la solution proposée, il suffit de filtrer la liste l pour éliminer les mots-clefs PAUSE ou STOP avant de la parcourir avec la boucle foreach en comparant cette fois-ci le dernier morceau de la ligne après la virgule au lieu de la ligne complète.
Ce qui nous donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

set fp [open $statusfile r] set fd [read $fp] close $fp set l [split $fd "\n"] set l [lsearch -all -inline -not -exact $l PAUSE] set l [lsearch -all -inline -not -exact $l STOP] set lo [lindex $fd 0] set fp [open newfile w] puts $fp $lo foreach line [lrange $l 1 end] { if ![string equal [lindex [split $line ","] end] [lindex [split $lo ","] end]] {puts $fp ""} puts $fp $line set lo $line } close $fp

---

----
canvas

bonjour,

en filtrant , je supprime les lignes , je souhaite les conserver malgré tout de sorte que mon fichier de sortie ressemble à ça :
REC,0,5,81,1203
REC,0,5,99,1203
PAUSE
[saut de ligne]
REC,0,5,81,1209.2
STOP
[saut de ligne]
REC,0,5,101,1201
REC,0,5,102,1201
[saut de ligne]
REC,0,5,99,1203
STOP

Merci d'avance pour votre aide

Bonjour,

En faisant comme ça, ça marche avec vos exemples :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

set fin [open in.txt r] set fout [open out.txt w] unset -nocomplain lastdiff while {![eof $fin]} { set line [gets $fin] set diff [lindex [split $line ,] end] if {![info exists lastdiff]} { puts $fout $line set lastdiff $diff } elseif {[string range $line 0 2] eq "REC" && $diff ne $lastdiff} { puts $fout \n$line set lastdiff $diff } else { puts $fout $line } } close $fin close $fout

---

merci pour la solution ;)