如何将 Tcl 列表框数字索引转换为其元素

Question

我觉得这个问题有一个简单的答案；但是，我一生都无法弄清楚。我正在尝试将列表框选择转换为其字符串元素，以便我可以将其输入数据库。

我知道我可以使用 .listbox curselection 来获取其索引；但是，我需要将其转换为字符串。谁能帮我解决这个问题吗？

谢谢你，

东风公司

Answer 1

这是一个简单的工作示例...

proc selectionMade {w} {
    # --- loop through each selected element
    foreach index [$w curselection] {
        puts "Index --> $index"
        puts "Text  --> [$w get $index]"
    }
}

catch {console show}
listbox .lb
bind .lb <<ListboxSelect>> {selectionMade %W}

pack .lb -fill both
.lb insert end "Line 1"
.lb insert end "Line 2"

因此，[.lb curselection] 返回所选元素的索引列表。要将索引转换为项目的实际文本，您只需将其与 [.lb get $index] 子命令一起使用，如上所示。

Answer 2

您应该获取tcl 和 tk 实用编程的副本。这是 tcl/tk 的“Camel Book”（盗用 perl 习语）。

至于你的问题，你想要的是：

set selectedText [list]
foreach selectedLine [$listbox curselection] {
     lappend selectedText [$listbox get $selectedLine ]
}