如何使用Tcl脚本将修改值传递给用户定义输出文件？

我有一个文本文件，其中包含一些值，我想通过TCL脚本将这些值传递到output.csv文件，但我无法将值传递到输出文件，它正在按原样传递到输出文件

Data/usr/local/test/etc/file.txt

value=$test1
value1=$test2
value2=$test2

我在output.csv中得到这样的输出

value=$test1
value1=$test2
value2=$test2

但输出应该如下所示

value=A
value1=B
value2=C

改变

到

substict

命令对字符串执行替换。除非使用，否则输入文件的确切内容将复制到输出文件

你可能想要改变

set test1 A
set test1 B
set test1 C

到

以及

value2=$test2

到

value2=$test3

之间

---

文档：

而不是

放入$mdata\u文件$sql\u查询

尝试

put$mdata\u文件[subst$sql\u query]

请参阅的文档

您还需要清理一些输入错误—重复test1或test2而不是使用test1 test2 test3

puts $mdata_file $sql_query

puts $mdata_file [subst $sql_query]

set test1 A
set test1 B
set test1 C

set test1 A
set test2 B
set test3 C