Posted to tcl by dkf at Thu Nov 15 23:16:02 GMT 2007view raw

  1. set texto {<A texte of 700 000 words>}
  2. set text [split $texto]
  3. for {set a 1; set b 0 ; set c 7000} {$c < 400000} {incr a 1 ; incr b 3 ; incr c 3} {
  4. set textChunks($a) [lrange $text $b $c]
  5. }