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 : Sélectionner tout - Visualiser dans une fenêtre à part
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] } }
Partager