TCL剪贴板搞定

时间:2015-08-21 16:07:51

标签: tcl tk

我正在尝试使用TCL命令捕获文件到剪贴板的名称和路径。 我意识到它只适用于一般文本而不是文件。

谢谢, 菲利普

这是我的TCL示例:

$ cat a
1:12
34 
56
$ awk -F: 'NF==2{line=$1} NF==1{$0=line FS $0}1' a
1:12
1:34 
1:56

1 个答案:

答案 0 :(得分:0)

这可能比它需要的更复杂。尝试这样的事情:

pack [label .foo -textvariable myVar]
bind . <Control-v> {set myVar [clipboard get]}
bind . <Control-c> {clipboard clear ; clipboard append $myVar}
set myVar foobar

我已经改变了 Control-C Control-V 的意义,因为从 Control-V 和 Control-C 上的剪贴板。

这段代码可能没有你想要的,但是(至少对我来说)你想做什么有点不清楚。绝对可以通过剪贴板复制文件名和路径。以上代码是否为您提供了解决方法?如果没有,如果你澄清一下你的问题会更容易帮助。

评论后更新的答案

如果您指的是文本小部件,您已经可以使用 Control-V 将所有内容粘贴到剪贴板中,则该绑定是标准的。 Tcl无法帮助您使用资源管理器功能,但是如果您 Shift - 右键单击​​该文件,您应该获得“复制为路径”选项,它可以执行您想要的操作(至少在Windows 7及更高版本中) 。请注意,路径是使用附加的双引号复制的(如"C:\foo\bar\baz.txt"中所示);你可能想要修剪它们。