Posted to tcl by mjanssen at Sun Dec 16 17:32:41 GMT 2007view raw

  1. proc doIt {label} {
  2. global types
  3. set file [tk_getOpenFile -filetypes $types -parent .]
  4. $label configure -text $file
  5.  
  6. set fo [open "$file" r]
  7. set di [read $fo]
  8. set dm [split $di "\r\n"]
  9. set cn 0
  10. set dv 1
  11. set dv2 $dv
  12. set pf 1
  13. foreach line $dm {
  14. if {$cn%$dv == 0} {
  15. set fn "${pf}_split.csv"
  16. set f [open $fn]
  17. incr pf
  18. }
  19. puts $f $line
  20. incr cn
  21. }
  22. }
  23.