如何删除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！

谢谢， Bordoloi先生