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

Question

说文件路径保存为变量f

puts "$f"

结果是

/home/usr/testfile.txt

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

Answer 1

file命令就是你想要的。

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

file tail是文件名的最后一个组件。 文件根名称是除扩展名之外的所有内容。