Salut.

Comment placer des fichiers l'un sous l'autre avec pour chacun un numéro de version dans un même fichier?

Le code utilise un numéro de version (($i) (sans le mot version)) pour chacun
des textes placés l'un sous l'autre. La dernière version du texte est placée en haut à gauche du fichier Test.txt (suivi d'un autre texte d'une version antérieure).

Le problème est que je suis obligé de créer au préalable le fichier Test.txt à vide. Or, j'aimerai que le fichier Test.txt se crée de façon automatique tout en gardant la numérotation des versions pour chacun des textes utilisés.

Merci d'avance!

A+

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
#\ exec tclsh "$0" ${1+"$@"}
console show
set txt1 "Bonjour"
set txt2 "Bonsoir"
set fic "./Test.txt"
set fic_ID1 [open $fic r]
tell fic_ID1
set i [gets fic_ID1]
if { $i != "" } {
     set txt [read $fic_ID1]
     incr i
};#end of if1
close $fic_ID1
 
set fic_ID2 [open $fic w]
tell $fic_ID2
if { $i == ""} {
     puts $fic_ID2 0
     puts $fic_ID2 "\n"
     puts $fic_ID2 "$txt1"
} else {
     puts $fic_ID2 $i
     puts $fic_ID2 "\n"
     puts $fic_ID2 $txt1
     puts $fic_ID2 "\n\n\n"
     puts $fic_ID2 [expr $i -1]
     puts $fic_ID2 $txt2
};#end of if2
 
close $fic_ID2
exit;