TCL/TK语言 如何把TCL/TK中text文本里的每一行语言输出到某一个文档中去。

Posted 2023-03-09

set fid [open "file.txt" w+] #创建您想输出的文件名，得到文件通道号

set str [.text get 1.0 end] #获取控件.text的所有文本到str变量

puts $fid $str #将str变量值写入fid文件
flush $fid #刷新文件
close $fid #关闭文件 参考技术A int main(int argc, char **argv)

FILE *src;
FILE *dst;
char line[512];
char *str;
src = fopen("1.txt", "r");
dst = fopen("2.txt", "w");
if(src == NULL || dst == NULL)
追问

我要的是tcl/TK语言的写法，

是把窗口里的文字输出！！