文件在TCL中的讀取，寫入和追加

Question

在TCL中，如何使用for循環或foreach循環將不同內容附加到單個文件中？

Answer 1

你是不是故意這樣？

set fo [open file a] 
foreach different_content {"text 1" "text two" "something else" "some content"} { 
    puts $fo $different_content 
} 
close $fo 

你打開文件file在模式a（追加），並寫入到文件描述符（$fo中的例子）。

更新：如果你想變的內容追加，你必須在腳本更改爲：

set fo [open file a] 
foreach different_content [list $data1 $data2 $data3 $data4] { 
    puts $fo $different_content 
} 
close $fo 

Answer 2

下面的代碼是罰款從一個文件，其中sample.tcl文件可在「P閱讀'文件夾。

標題

set fp [open "p://sample.tcl" r] 

set file_data [read $fp] 

puts $file_data 

close $fp 

Answer 3

下面的代碼創建文件夾'P'一個文本文件，並寫入到它。

set fid [open p:\\temp.txt w] 

puts $fid "here is the first line." 

close $fid