TCL 命令 - 字符串修剪

Question

我正在使用命令“string trimright”来修剪我的字符串，但我发现这个命令修剪的次数超出了要求。

我的表达式是“dssss.dcsss” 如果我使用字符串修剪命令修剪最后几个字符“.dcsss”，它会修剪整个字符串。我该如何处理？

命令:

     set a [string trimright "dcssss.dcsss" ".dcsss"]
     puts $a

预期输出:

    dcsss

实际输出

    ""

Answer 1

string trimright 命令将其(可选)最后一个参数视为要删除的 set 个字符(因此 .dcsss 是相同的就像 sdc. 一样)，就像 string trim 和 string trimleft 一样；实际上，string trim 就像同时使用 string trimright 和 string trimleft 一样。这使它不适合您尝试做的事情；要删除存在的后缀，您可以使用多种技术:

# It looks like we're stripping a filename extension...
puts [file rootname "dcssss.dcsss"]

# Can use a regular expression if we're careful...
puts [regsub {\.dcsss$} "dcssss.dcsss" {}]

# Do everything by hand...
set str "dcssss.dcsss"
if {[string match "*.dcsss" $str]} {
    set str [string range $str 0 end-6]
}
puts $str

如果您正在做的是文件名操作，就像看起来一样，请使用这些选项中的第一个。 file 命令有一些非常有用的命令，用于以跨平台方式处理文件名。