微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

Tcl - 如何通过正则表达式在最后一个字符后添加文本?

如何解决Tcl - 如何通过正则表达式在最后一个字符后添加文本?

我需要一个提示提示或建议,然后是一些示例,说明如何在变量输出行的最后一个字符后添加 .txt 格式的扩展名。

例如:

set txt " ONLINE ENGLISH COURSE - LESSON 5 "

set result [concat "$txt" .txt]

打印:

enter image description here

注意变量词组(startmeansfin有空格 >txt)。必须保留的是startmeans 的空格。但将句尾最后一个空格替换为扩展名[.txt]的格式。

使用concat内置的Tcl方法,并没有达到预期的效果

预期的结果是这样的:

ONLINE ENGLISH COURSE - LESSON 5.txt

我知道我可以用 string map 删除空格,但我不知道如何只删除行中的最后一个

否则我不知道如何删除最后一个空格以添加文本[.txt]

如果有人可以向我指出一个或多个解决方案,请提前致谢。

解决方法

set result "[string trimright $txt].txt"

set result [regsub {\s*$} $txt ".txt"]

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。