TCL-Befehl - string trim

Den string trimright Befehl behandelt seine (optionale) Letzte argument als set von Zeichen zu entfernen (und so .dcsss ist das gleiche wie sdc.), wird wie string trim und string trimleft tun; in der Tat string trim ist nur, wie mit beiden string trimright und string trimleft in Folge. Dies macht Sie ungeeignet für das, was Sie versuchen zu tun; so entfernen Sie ein suffix an, wenn es vorhanden ist, können Sie mit mehreren Techniken:

# 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

Wenn das, was du tust wirklich mit dem Namen manipulation, wie es aussieht, verwenden die erste dieser Optionen. Die file Befehl hat einige wirklich nützliche Befehle für die Arbeit mit den Dateinamen in einer plattformübergreifenden Weise in ihm.