This does what you asked for : reads the file character by character. CODE. set fil [open "input.file"] while {! [eof $fil]} { set c [read ...
確定! 回上一頁