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

您以 a（追加）模式打开文件 file 并写入文件描述符（示例中的 $fo）。

更新：如果您想附加变量内容，则必须将脚本更改为：

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

Answer 2

以下代码在文件夹 'P' 中创建一个文本文件并写入其中。

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

puts $fid "here   is the first line."

close $fid

Answer 3

以下代码适合从文件中读取，其中 sample.tcl 文件位于“p”文件夹中。

标题

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

set file_data [read $fp]

puts $file_data

close $fp