如何使用替換

Question

如何搜索每個字符串單詞並將其更改爲如下所示;

set firstLibrary {12345} 
set secondLibrary {aghij} 

備註：

 
1=a ; 2=g ; 3=h ; 4=i ; 5=j 

set theString {44168} 

然後輸出; 44168 = iia68

Answer 1

您需要做的是將這兩個庫組裝成一個可與string map一起使用的映射。關鍵在於你可以使用foreach的雙列表形式，並且如果分隔符集爲空，則split命令可以輕鬆地將字符串分解爲其組成字符。

set map {} 
foreach from [split $firstLibrary ""] to [split $secondLibrary ""] { 
    lappend map $from $to 
} 

應用與string map地圖上$theString和打印結果留作練習。

Answer 2

如何獲得第二個字符串值，如果第一個相同的字符串值，然後計算平均值如下;

set first {A B B C D E E E E E G K} 
set second {12 42 51 66 24 75 33 11 22 86 43 66} 

set lenghtString [lenght $first] 

for {set i 0} {$i < $lenghtString} {incr i} { 
#arg please 
#If same string on first string then get second string 
    #B B = (42+51)/2 = 46.5 
    #E E E E E = (75+33+11+22+86)/5 = 45.4 
} 

output with puts by rows: 12 46.5 66 24 45.4 86 66