tcl相关

Posted 2020-07-19

1. 读取文件

   基本操作   

set f [open e:/00 w]                 #用句柄f以写的方式打开文件e;/00 若文件不存在打开新文件
puts $f "nihao"                      #将内容nihao输出至句柄f
close $f                             #关闭句柄f

set f [open e:/00 r]                 #用句柄f以读的方式打开文件e;/00 若文件不存在将创建
while {[gets $f line] >= 0} {        #读取一行内容
puts $f   
}                                    #显示该项内容
close $f                             #关闭句柄f

set f [open e:/00 a]                 #用句柄f以追加的方式打开文件e;/00 若文件不存在将创建
puts $f "nihao"                      #将内容nihao输出至句柄f
close $f                             #关闭句柄f

http://blog.csdn.net/mvpme82/article/details/5405751    读，写，正则表达式

开头判断文件是否可以打开

set input_file  "c://input.txt"
set output_file "c://output.txt"

if {[catch {set file_in [open $input_file r]} err_msg]} {
 puts "Failed to open the file for reading: $err_msg"
 return
}

if {[catch {set file_out [open $output_file w]} err_msg]} {
 puts "Failed to open the file for writing: $err_msg"
 close $file_in
 return
}

逐行读取文件并加入列表

set f [open temp.csv r]  

set listVar {}

while {[gets $f line] != -1} {

    puts $line

    lappend listVar $line

}

 

puts $listVar

set listVar1 [lindex $listVar 1]

puts $listVar1