代码之家 › 专栏 › 技术社区 › milarepa

我想在每次运行tcl脚本时隐藏windows终端?

tcl

milarepa · 技术社区 · 6 年前

我使用的是Windows 8.1,运行的是一个tcl脚本,用于检查文件之间的差异:

package require twapi
proc diff {file1 file2} {
    set f1 [open $file1 "rb"]
    set f2 [open $file2 "rb"]
    try {
        while 1 {
            if {[read $f1 4096] ne [read $f2 4096]} {
                return 0
            } elseif {[eof $f1]} {
                # The same if we got to EOF at the same time
                return [eof $f2]
            } elseif {[eof $f2]} {
                return 0
            }
        }
    } finally {
        close $f1
        close $f2
    }
}

CreateObject("Wscript.Shell").Run "diff.tcl",0,True

但是我需要将参数从另一个程序传递到diff.tcl,因此作为vbs脚本运行是没有用的。

2 回复 | 直到 6 年前

kostix 6 年前

问题

多纳尔说的。

具体来说,您的Windows安装被设置为关联 tclsh.exe .tcl 他们名字中的扩展名。(一种了解真实情况的方法关联正在运行 assoc.exe ; 也看到 ftype.exe

tclsh.exe (该名称源于“the Tcl上海 是的设置为on的标志(特殊标头中的标志包含Windows上可执行文件的元信息)。当操作系统运行这样的应用程序时,它会注意到它需要一个控制台,因此它生成一个控制台,然后运行应用程序在里面。

解决方案

Run WScript.Shell 对象,并将0作为其第二个参数传递以隐藏 this 更多。
Tcl附带了另一个解释器,称为 wish.exe (a)"基本法"的宗旨 Wi 放弃嘘什么不同 tclsh.exe

您可能希望使用显式运行脚本 wish.exe 并将脚本的路径名作为参数传递给它。

您可能需要使用 wm withdraw . 作为脚本中隐藏Tk创建的主窗口的第一个命令。

CK1 6 年前

您是否考虑过将结果输出到一个临时文件,并让下游人员查找该文件?然后可以使用VBS方法为脚本设置关键帧。虽然很凌乱,但也行得通。

推荐文章

zhili · TCL利用管道和文件事件来维护子流程

1 年前

strdr77 · 我试图理解TCL中的递归,但每次递归完成时都会抛出错误

1 年前

Zamyatin · 当我认为MinGW会输出“*.dll”(动态链接库)时,它会输出一个“*.0”文件&它的大小只有(大约)应有大小的一半

1 年前

Wadsack · 有人能告诉我TCL为什么不能简单地读取特定的文件吗?此外,当执行字符串长度时,文件的内容也会失败

1 年前

Gary · 使用incrbob根据文本字符串中的字符位置来确定BLOB段中的字节位置?

1 年前

JoshTitle · Tcl:将带方括号的参数传递给过程(SDC)

1 年前

Gary · Tcl API中的SQLite“:”样式参数替换:为什么将此整数视为条件中的字符串?

1 年前

craigB · Tkinter Treeview调用找不到项目

1 年前

lvjsmn · 在函数tkinter中的一个永久重复循环后,将字符添加到Label

1 年前

Cory Anderson · TCL 8.4 CSV功能

1 年前