TCL:读取表格(xls)中的数据

  1 intToChar.tcl
  2 
  3 # input a number : 1 to 32 , you will get a char A to Z
  4 #A-Z:1-32
  5 proc intToChar {int} {
  6     if {![string is integer $int]} {
  7         return "Please input a number!"
  8     } 
  9     if {![expr 0<$int&&32>$int]} {
 10         return "Input a numer range 1 to 32!"
 11     } 
 12     set listChars [list A B C D E F G H I J K L M N O P Q R S T U V W X Y Z]
 13     set intTemp [expr $int-1]
 14     return [lindex $listChars $intTemp]
 15 }
 16 
 17 #test
 18 #return [intToChar 1]
 19 
 20 xls_read.tcl
 21 package require tcom
 22 source intToChar.tcl
 23 proc xls_read {fileName} {
 24     if {![file exists $fileName]} {