關(guān)于TCL腳本的文件輸入輸出？et f [open e:/00 w] #用句柄f以寫的方式打開文件e/00 文件必須存在puts $f "nihao"

關(guān)于TCL腳本的文件輸入輸出？

et f [open e:/00 w] #用句柄f以寫的方式打開文件e/00 文件必須存在puts $f "nihao" #將內(nèi)容nihao輸出至句柄fclose $f #關(guān)閉句柄fset f [open e:/00 r] #用句柄f以讀的方式打開文件e/00 若文件不存在將創(chuàng)建while {[gets $f line] >= 0} { #讀取一行內(nèi)容puts $f } #顯示該項內(nèi)容close $f #關(guān)閉句柄fset f [open e:/00 a] #用句柄f以追加的方式打開文件e/00 若文件不存在將創(chuàng)建puts $f "nihao" #將內(nèi)容nihao輸出至句柄fclose $f #關(guān)閉句柄f

設(shè)置f[打開E/00 w]#使用句柄f打開文件E/00。如果文件不存在，而{[gets$f”將被創(chuàng)建行]>=0}{讀取一行內(nèi)容，放入$f}顯示內(nèi)容，關(guān)閉$f}關(guān)閉句柄fset f[open E/00a]}通過追加打開帶有句柄f的文件E/00。如果文件不存在，則將$f “nihao”輸出內(nèi)容nihao to handle Fclose$f#Close handle f