摘要:
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... 阅读全文
posted @ 2016-04-28 22:38
le.li
阅读(1403)
评论(0)
推荐(0)
摘要:
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... 阅读全文
posted @ 2016-04-28 22:33
le.li
阅读(2981)
评论(0)
推荐(0)
浙公网安备 33010602011771号