关于tcl中如何抓最后一个反斜线的内容

xingyun666666

请教，在tcl中，如果一个reg的名字是A/B/uu_reg_2_, D/C/aa_reg_2_,类似这种reg有很多，我怎么能得到最后一个/反斜线后面的内容？

lonelycat

试试用split分开字符

dummy_tony

file tail D/C/aa_reg_2_

macal

set reg “A/B/uu_reg_2_”
puts [lindex [split $reg "/"] end]

xingyun666666

   

dummy_tony 发表于 2022-4-10 17:19
file tail D/C/aa_reg_2_

请教前辈，d/c/e ,file tail 可以获得c吗？倒数第二个

dummy_tony

   

xingyun666666 发表于 2022-4-16 20:50
请教前辈，d/c/e ,file tail 可以获得c吗？倒数第二个

再套一层file tail应该就行了。

xingyun666666

   

dummy_tony 发表于 2022-4-17 17:04
再套一层file tail应该就行了。

前辈请教下，我如果想得到/a/b/c/d中的/a/b可以怎么做？

king-wa

cut也可以把

dummy_tony

   

xingyun666666 发表于 2022-6-15 23:38
前辈请教下，我如果想得到/a/b/c/d中的/a/b可以怎么做？

套2个file dir，应该就行了。

   

        

            
1. set trim_string [file dir [file dir /a/b/c/d]]
           

   

    复制代码

凡人修仙传

file tail