摘要:
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... 阅读全文
摘要:
######################################## #proc tcl_dir : show all file in current path #parameter # path : the path you want to look# flag : # 1--only show curent path fi... 阅读全文