Parsing 在TCL中使用keylset在解析时返回一行中的多个值

我有一个输出

Application
----------------------------------------
ID 5 - Value 1
ID 5 - Value 2
ID 6 -  Value 1
ID 6 - Value 2
----------------------------------------

我正在使用tcl中的keylset解析它 现在，我在解析后得到的是：

ID
    5
        Value
             1 = 1
             2 = 2
    6
        Value
             1 = 1
             2 = 2

有谁能建议我怎样用下面的方法得到它吗

  ID
    5
        Value 1,2
    6 
        Value 1,2

---

在

lappend

和

keylset

之前检索时，您希望使用

keylget

的可选retval参数将其放回，可能如下所示：

set seq {}
keylget data ID.$id.Value seq
lappend seq $theValue
keylset data ID.$id.Value $seq