如何使用TCL从字符串中删除字符

时间:2015-03-10 07:41:13

标签: regex tcl

我有以下字符串作为输入

  

TCL被称为"工具命令语言",TCL被称为"工具   命令语言",TCL被称为"工具命令语言" ...

从上面我想要一个像

这样的输出
  

TCL被称为工具命令语言,TCL被称为工具命令   语言,TCL被称为工具命令语言" ...

有人可以帮我这个

1 个答案:

答案 0 :(得分:0)

最简单的技巧是贪婪的正则表达式匹配/替换,然后是string map来解决问题。

string map {\u0000 \" \" {}} [regsub {"(.*)"} $sample \u0000\\1\u0000]

这个取决于这个事实,你只需要最外面的双引号;它不适用于其他任何事情(不是没有更复杂的RE)。它还取决于NUL字符(\u0000)在任何人类可读的文本中都不太可能。