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;
Partager