tcl - 删除 Tcl 命令中的文件路径和扩展名

Question

说文件路径被保存为变量 f

puts "$f"

那么结果是

/home/usr/testfile.txt

我想删除除名称“testfile”之外的所有内容并将其保存在一个新变量中。

Answer 1

file命令就是你想要的。

 set fbasename [file rootname [file tail $f]]

文件尾是文件名的最后一部分。
文件根名是除扩展名之外的所有内容。