home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 4_4.tcl < prev    next >
Text File  |  2003-04-15  |  319b  |  21 lines
  1. #
  2. # Example 4-4
  3. # Mapping Microsoft World special characters to ASCII.
  4. #
  5.  
  6. proc Dos2Unix {filename} {
  7.     set input [open $filename]
  8.     set output [open $filename.new]
  9.     fconfigure $output -translation lf
  10.     puts $output [string map {
  11.         \223        "
  12.         \224        "
  13.         \222        \" 
  14.         \226        -
  15.     } [read $input]]
  16.     close $input
  17.     close $output
  18. }
  19.  
  20.  
  21.