Создание строки из списка

Question

У меня есть строка, как показано ниже:

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

В строке выше я использовал раздвоение команду с «&» и получил следующие элементы:

(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, добавленным fo Пример:

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

Просьба поделиться своими предложениями с благодарностями.

Answer 1

Ну, давайте предположим, что у вас есть три элемента в списке

puts $elements 
{(A-B,C);} {(D-E,F,G,Z);} {(H-I,J,K);} 

Прежде всего, давайте удалим ( и ); от каждого элемента

set trimmed [list] 

foreach e $elements { 
    lappend trimmed [string trim $e "();"] 
} 

Теперь Whe есть новый список:

puts $trimmed 
A-B,C D-E,F,G,Z H-I,J,K 

И наконец, давайте укажем join. список, используя & характер, и добавить снова ( перед результирующей строки и ); в конце:

set final ([join $trimmed &])\; 
puts $final 
(A-B,C&D-E,F,G,Z&H-I,J,K); 

Это должно быть все.

Answer 2

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,Z&H-I,J,K);