tcl 读取文件时没有文件，返回0

在 Tcl 中，如果文件不存在或无法打开，`open` 命令会返回一个空字符串。因此，你可以在打开文件之后，检查返回值是否为空来判断文件是否存在：

set file_handle [open "file.txt" r]
if {$file_handle eq ""} {
    puts "File does not exist"
} else {
    # Read from the file
    set file_data [read $file_handle]
    # Close the file
    close $file_handle
}

在上面的例子中，如果文件 "file.txt" 不存在，则打印 "File does not exist"。否则，读取文件内容并关闭文件。注意，这里使用了 `read` 命令来读取文件内容。你需要根据自己的需求来选择读取文件的方式。