$arg=TEST #### Requested, NOT AVAILABLE psy #;
У меня есть строка выше, где # создается динамически. Мне нужно использовать функцию в tcl для замены строки. В основном мне нужно удалить запятую (,) из приведенного выше выражения и отобразить его как
ТЕСТ #### Запрошено НЕДОСТУПНО psy #
Вот что я сделал, но это не работает.
regsub -all {"Requested,"} $arg {"Requested"} arg
Здесь я ссылался на функцию из: http://www.tcl.tk/man/tcl8.5/TclCmd/regsub.htm
Проблема в вашем цитировании. Фактически вы проверяете строку "Requested," (включая кавычки), но это не то, что вам нужно. Попробуйте избавиться от фигурных скобок (}) или двойных кавычек ("):
set arg "TEST #### Requested, NOT AVAILABLE psy #;"
regsub -all "Requested," $arg "Requested" arg
Если все, от чего вам нужно избавиться, это запятая, вы можете найти / заменить ее (просто замените ее пустой строкой ""):
regsub -all "," $arg "" arg
or
regsub -all {,} $arg {} arg
Как упоминал комментатор, последнее может быть лучше в общем случае, поскольку регулярные выражения часто содержат много обратных косых черт (/), а {} скобки не требуют большого количества отвлекающих дополнительных обратных косых черт, как это делают "" кавычки.
Другой вариант, менее сложный, чем регулярное выражение, - [string map].
set arg [string map { , "" } $arg]
Если вы не хотите глобального удаления:
set idx [string first , $arg]
set arg [string replace $arg $idx [incr idx]]
