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

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