Posted to tcl by SphereZ at Fri Nov 16 00:11:00 GMT 2007view raw

  1. set texto {Une commande est évaluée en deux étapes. D'abord, l'interprèteur de TCL décompose la commande en mots, .}
  2. set text [split $texto]
  3. for {set a 1 ; set b 0 ; set c 3} {$c < 400} {incr a 1 ; incr b 3 ; incr c 3} {set text$a [lrange $text $b $c]}
  4.  
  5.  
  6.  
  7. set inc 0
  8. foreach mot $text$a {
  9. set fout [open [format %08i [incr inc]].txt w]
  10. puts $fout $mot
  11. close $fout }