Question

我有各种各样的可能性dirnames。

示例：

USA.LA.2017-02-02
EU.2016-04-04
EU.FR.Paris.2014-05-05
CA.Que.Ed.Cal.2013-04-04

我需要一个带有例子的新变量：

USA.LA
EU
EU FR Paris
CA Que Ed Cal

不幸的是，我的tcl并不总是正确的。

set foo [join [lrange [split $name .] 0 1] .]
set replaced_relname [string map {. " "} $foo]

有没有人有不同的想法？

Answer 1

使用lrange仅删除最后一个元素

set dirnames { USA.LA.2017-02-02  EU.2016-04-04  EU.FR.Paris.2014-05-05  CA.Que.Ed.Cal.2013-04-04 }

foreach dirname $dirnames {
    set string [join [lrange [split $dirname .] 0 end-1]]
    puts $string
}

USA LA
EU
EU FR Paris
CA Que Ed Cal

tcl拆分目录年份字符串

1 个答案: