📄 convert.tcl
字号:
#!/usr/bin/tclshif {[llength $argv] < 4} { puts " Use: convert source_file source_encoding dest_file dest_encoding" exit}set fsource [open "[lindex $argv 0]" r]set fdest [open "[lindex $argv 2]" w]fconfigure $fsource -encoding [lindex $argv 1]fconfigure $fdest -encoding [lindex $argv 3]while {[gets $fsource tmp_data] != "-1"} { puts $fdest "$tmp_data"}close $fsourceclose $fdest
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -