如何在tcl中刪除字符串中的所有反斜槓

Question

*/*CKGT*0P*\ */*CKGT*ON*\\ */*CKGT*0T*\\ 

如何刪除上述字符串中的反斜槓？字符串的長度會有所不同

Answer 1

的string map命令被設計用於這種任務的：

set inputString {*/*CKGT*0P*\ */*CKGT*ON*\\ */*CKGT*0T*\\} 
# */ # This line is just to stop the StackOverflow syntax highlighter from being silly 

set removed [string map {\\ ""} $inputString] 
puts $removed 

Answer 2

一個簡單的代碼段，以驗證：

set a {*/*CKGT*0P*\ */*CKGT*ON*\\ */*CKGT*0T*\\} 
puts $a 
regsub -all {\\} $a {} b 
puts $b 

輸出：

tclsh test2 
*/*CKGT*0P*\ */*CKGT*ON*\\ */*CKGT*0T*\\ 
*/*CKGT*0P* */*CKGT*ON* */*CKGT*0T* 

BING！

謝謝， Mr. Bordoloi