如何使用 tcl/tk 浏览目录并将路径保存为文件中的变量

Question

是否有浏览和定位目录并将其作为变量保存在文件中的示例。

我找到了一个例子，但无法让它工作，但是我不确定是否朝着正确的方向前进，或者是否有更好的方法来完成上述操作。

Help/advice 表示赞赏。

set basedir {C:/}

set dir [tk_chooseDirectory \
        -initialdir $basedir -title "Choose a directory"]
if {$dir eq ""} {
   label .l -text "No directory selected"
} else {
   label .l -text "Selected $dir"
}

Answer 1

大致就是这样。如果你担心标签不可见，你只需要先获取它"managed"，like

grid [label .l -text "Selected $dir"]

或者，在if结构之后

grid .l

或者，如果标签已被管理但文本未显示，则设置文本：

.l configure -text "Selected $dir"

要将目录路径保存在文件中，您需要打开文件并以某种方式写入它，例如

set f [open file.txt w]
puts $f $dir
close $f

如果有其他问题，您必须先告诉我们是什么问题，我们才能帮助您。

文档：close, grid, label, open, puts, set

如何使用 tcl/tk 浏览目录并将路径保存为文件中的变量

How to browse directory and save path as a variable in a file using tcl/tk

tk

tcl