使用TCL从左右删除字符

Question

我是TCL的新手，需要一个TCL方法/实用程序/代码，它可以在字符串中第一次出现的字符串中找到并删除两个字符“（”和“）”。

我有一个如下字符串：

(A-B,C);

在上面的字符串中，我需要删除“（”和“）”并创建一个列表，如：

A-B,C

Answer 1

如果要从字符串的任一端剥离 all 括号，请使用string trim：

set trimmed [string trim $theStr "()"]

如果您只想删除一个对（并且两者都需要存在，以便将其删除），那就是regsub的工作：

regsub {^\((.*)\)$} $theStr {\1} trimmed

Answer 2

你的字符串中有分号吗？如果不是：

set input "(A-B,C)"
set result [string trim $input "()"]
echo $result