Tcl 删除拖尾字符

请告诉我如何从嵌入其间的字符串末尾删除

=

和换行符

\n

例如输入字符串

set string "abcd  1234   abc=
"

---

我只想从末尾删除=和新行

尝试使用

regsub

regsub {=\n$} $string {} string

测试

% set string "abcd  1234   abc=
"
abcd  1234   abc=

% regsub {=\n$} $string {} string
1
% puts $string
abcd  1234   abc

---

如果您想从末尾删除所有

=

和换行符，无论有多少，我建议

string trimmright

set string "abcd  1234   abc=
"
string trimright $string =\n
set str2 "abc===="
string trimright $str2 =\n ; returns abc

如果知道最后2个字符是

=\n

，也可以使用字符串范围

string range $string 0 end-2

对于更复杂的解决方案，regexp是合适的