Discussion :

[sudokuuu90]

Bonjour tout le monde,

J'ai testé ces deux commandes pour remplacer la valeur $num par $num_fin dans chacune des lignes mais sans résultat, le fichier n'est pas modifié:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
string map -nocase [list $num $num_fin] $ligne
 
puts [string map -nocase [list $num $num_fin] $ligne]

est ce que vous avez une idée pour que la valeur soit remplacé dans le fichier, merci d'avance

[Canvas]

Bonsoir,

Si je fais l'expérience suivante à la console :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
% set l abc
% set m 1
% string map -nocase [list $l $m] 1abcaababcabababc
% 11aab1abab1

La syntaxe fonctionne.
La question est que contiennent les variables $num et $num_fin ?

---
Canvas

[sudokuuu90]

les variables sont des chaines de caractères, j'ai testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
set new_line [string map -nocase [list $num $new_num] $line]
 
puts -nonewline $file $new_line

mais la ligne $line n'est pas remplacé , $new_line vient écrase la ligne suivante.
Est ce qu'il y a un moyen de remplacer directement la ligne sans écraser la ligne suivante?

merci

[Invité]

Bonsoir,

Tu ne peux pas remplacer facilement les lignes que tu viens juste de lire (il faut jour avec seek et tell, c'est compliqué).

Le plus simple, c'est de profiter de ce qu'on dispose maintenant de beaucoup de RAM sur les ordinateurs pour charger tout ton fichier en mémoire, puis le ré-écrire en remplaçant les chaînes comme tu le souhaites, ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
# Lecture :
set fin [open /chemin/vers/fichier.txt r]
set data [read $fin]
close $fin
# Ecriture :
set fout [open /chemin/vers/fichier.txt w]
foreach line [split $data \n] {
    puts $fout [string map -nocase [list $num $new_num] $line]
}
close $fout

Et voilà.