Question

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

Answer 1

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

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

puts $fid $str #将str变量值写入fid文件
flush $fid #刷新文件
close $fid #关闭文件

Answer 2

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语言的写法，

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