file - 使用 tcl 脚本打开一个 txt 文件（使 txt 文件在屏幕上弹出）

Question

如何真正“打开” txt 文件（已经知道文件路径），我的意思是，通过编写 tcl 脚本在屏幕上弹出？谢谢！

Answer 1

调用系统“首选”文本编辑器相对容易，但移植性不强。假设$theFilename包含 Tcl 理解的文件名，并且它不是 Tcl 的虚拟文件系统之一上的文件：

苹果电脑

exec open [file normalize $theFilename]

Unix/Linux

exec xdg-open [file normalize $theFilename]

或者，如果您在终端中并且喜欢经典方法：

exec $::env(EDITOR) [file normalize $theFilename] <@stdin >@stdout 2>@stderr

（您可能还应该在VISUAL环境变量之前检查EDITOR环境变量。或者只需使用...将其触发到 GUI 中xdg-open）

视窗

exec {*}[auto_execok start] "" [file nativename [file normalize $theFilename]]

是的，这个空参数是必要的（尤其是当目录或文件中有空格时）；start有可怕的语法。

Answer 2

我假设open，您的意思是使用 application/program 打开。在 Windows 上：

exec notepad.exe /path/to/file.txt

在 Mac 上：

exec open /path/to/file.txt             ;# Open using default application

或者：

exec open -a TextEdit /path/to/file.txt ;# Open using a specific application