Posted to tcl by tspier2 at Mon Jul 30 22:33:03 GMT 2007view pretty

  set filename "test.txt"
  set fileId [open $filename "w"]
  puts -nonewline $fileId $data
  close $fileId