Posted to tcl by miguel at Sat Aug 11 15:40:17 GMT 2007view raw

  1. foreach i {1 2 3 4 5} {
  2. set input_s($i) [open "story$i.txt" r]
  3. set lines_s($i) [countLines story$i.txt]
  4. set data_s($i) [read $input_s($i)]
  5. close input_s($i)
  6. }