如何解决Tcl - 如何通过正则表达式在最后一个字符后添加文本?
我需要一个提示、提示或建议,然后是一些示例,说明如何在变量输出行的最后一个字符后添加 .txt 格式的扩展名。
例如:
set txt " ONLINE ENGLISH COURSE - LESSON 5 "
set result [concat "$txt" .txt]
打印:
注意变量词组(start、means和fin中有空格 >txt)。必须保留的是start 和means 的空格。但将句尾最后一个空格替换为扩展名[.txt]的格式。
预期的结果是这样的:
ONLINE ENGLISH COURSE - LESSON 5.txt
我知道我可以用 string map
删除空格,但我不知道如何只删除行中的最后一个。
解决方法
set result "[string trimright $txt].txt"
或
set result [regsub {\s*$} $txt ".txt"]
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。