Tcl 从列表创建字符串

我有一个字符串，如下所示：

 (A-B,C&D-E,F,G&H-I,J,K);

在上面的字符串中，我使用带“&”的split命令，得到了以下元素：

 (A-B,C); (D-E,F,G) ;(H-I,J,K);

在上述元素中，在第二个元素中添加了Z：

 (A-B,C); (D-E,F,G,Z); (H-I,J,K);

现在要将字符串重建为原始字符串并添加z，例如：

 (A-B,C&D-E,F,G,Z&H-I,J,K);

---

请分享您的建议，谢谢。

好吧，让我们假设您的列表中有三个元素

put$elements
{（A-B，C）；}{（D-E，F，G，Z）；}{（H-I，J，K）；}

首先，让我们删除

（

和

）来自每个元素

set-trimmed[列表]
foreach e$元素{
lappend修剪[字符串修剪$e“（）；”]
}

现在我们有了一个新的列表：

put$trimmed
A-B，cde，F，G，zh-I，J，K

最后，让我们使用
和
字符
连接
列表，然后再次添加
（
在结果字符串前面和
）结尾处：

设置final（[join$tridge&]）；
把$final
（A-B、C&D-E、F、G、Z&H-I、J、K）；

这应该是全部

set s "(A-B,C&D-E,F,G&H-I,J,K);"
set l [split $s "&"]
lset l 1 "[lindex $l 1],Z"
set new [join $l &]
puts $new

原始字符串
A-B、C&D-E、F、G&H-I、J、K
还是也有括号和分号？准确点。这会影响你得到的确切答案。
(A-B,C&D-E,F,G,Z&H-I,J,K);