文件读取，写入和附加在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

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

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

puts $fid "here   is the first line."

close $fid

Answer 3

以下代码可以从文件中读取，其中{p}文件夹中有sample.tcl文件。

<强>标题

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

set file_data [read $fp]

puts $file_data

close $fp