intToChar.tcl # input a number : 1 to 32 , you will get a char A to Z #A-Z:1-32 proc intToChar {int} { if {![string is integer $int]} { return "Please input a number!" } if {![expr 0<$int&&32>$int]} { return "Input a numer ran…
with open(fileName,'w',newline='') as f: self.fileNames = ['timestamp','elapsedtime'] writer = csv.DictWriter(f,fieldnames = self.fileNames) for li in self.allData: #分行读取 writer.writerow({'timestamp':li[0],'elapsedtime':li[1]})#以字典格式写入…
intToChar.tcl # input a number : 1 to 32 , you will get a char A to Z #A-Z:1-32 proc intToChar {int} { if {![string is integer $int]} { return "Please input a number!" } if {![expr 0<$int&&32>$int]} { return "Input a numer ran…