使用 Tcl 连接单个数据库记录前面的文本

Question

简而言之，目前我正在使用以下代码从 Sqlite Db 中的多个表中提取记录并将它们插入到单个组合框 ($SearchBar) 中：

set SrchVals1 [db eval {SELECT DISTINCT Stitle From Subcontract Order By Stitle ASC}]
set SrchVals2 [db eval {...
set SrchVals3 ...
set SrchValsALL [concat $SrchVals1 $SrchVals2 $SrchVals3]
$SearchBar configure -value $SrchValsAll

对于变量“SrchVals1”，我试图找出一种方法将文本“Sub:”连接到 SrchVals1 中的每条记录。例如，如果 SrchVals1 在组合框中显示以下记录：

First Title
Second Title
Third Title

我想将组合框中的记录连接起来，如下所示：

Sub: First Title
Sub: Second Title
Sub: Third Title

我了解我可能必须使用 foreach 语句；但是，我没有运气写一个在每条记录前添加“Sub：”的记录，而不是一个。这似乎应该很容易，但我似乎无法弄清楚。

有谁知道我怎样才能达到这些结果？

谢谢，

DFM

Answer 1

你是对的。 foreach 命令是正确的方法。方法如下：

set SrchValsALL {}
foreach value [concat $SrchVals1 $SrchVals2 $SrchVals3] {
    lappend SrchValsALL "Sub: $value"
}
$SearchBar configure -value $SrchValsAll