代码之家 › 专栏 › 技术社区 › nichollsg

字符串模式与tcl的匹配

gtkwave tcl

nichollsg · 技术社区 · 7 年前

我是tcl的新手,尝试只捕获以下用户指定的层次结构深度:

top.run.end
top.run.something.end

top.simple.end1     
top.simple.end2

top.simple.something.end1
top.simple.something.end2

top.simple.something.else.end    
top.simple.something.else.other.name.end

我只想捕获层次结构中的最后一个元素,它不会继续使用“.”删除的更多元素。一、我想把所有实例附加到一个列表中(最终的元素名可以是任何东西)。

如果用户想要选择第二层次结构级别,比较应该只允许来自上面的这些元素:

top.run.end
top.simple.end1     
top.simple.end2

如果用户指定了第三层次结构级别,那么我想获取以下元素:

top.simple.something.end1
top.simple.something.end2

第四层次:

top.simple.something.else.end

诸如此类。。。除了字符串比较之外,我已经编写了所有的代码,但是我所尝试的一切似乎都不是我想要的。

set num_hierarchy 3; # how many levels deap to search for "end"
set num_facs      [ gtkwave::getNumFacs ]; # returns number of elements in file

for {set group_to_add 1} {$group_to_add <= $num_hierarchy} {incr group_to_add} {
    set wave [list]

    for {set i 0} {$i < $num_facs } {incr i} {
        set fac_name [ gtkwave::getFacName $i ]; #returns string in form noted above

        set indx [string <how to compare strings??> $fac_name]
        if {$indx == <match>} {
            lappend wave "$fac_name"
        } 
    }
}

0 回复 | 直到 7 年前

Jerry 7 年前

我不能说我理解你为什么要像你的问题中那样做循环,所以我将展示一个稍微不同的代码片段。我相信,如果我能告诉你我的解决方案是如何工作的,你应该可以很容易地实现自己的解决方案。匹配是通过计算点数来完成的:

set elements {
  top.run.end
  top.run.something.end
  top.simple.end1     
  top.simple.end2
  top.simple.something.end1
  top.simple.something.end2
  top.simple.something.else.end    
  top.simple.something.else.other.name.end
}

set depth_required 3
set wave [list]

foreach element $elements {
  # initial length of element
  set i_len [string length $element]

  # final length of element after removing dots
  set f_len [string length [string map {. ""} $element]]

  # thus number of dots
  set n_dots [expr {$i_len-$f_len}]

  # if the number equals the required hierarchy, then we got one
  if {$n_dots == $depth_required} {
    lappend wave $element
  }
}

wave 然后包含:

top.run.something.end top.simple.something.end1 top.simple.something.end2

你可以用 regsub (它可以直接返回所执行的替换的数量)或将元素拆分为点,然后计算得到的子元素的数量,但是我发现 this wiki 显示使用 string map 是最快的方法。

推荐文章

zhili · TCL利用管道和文件事件来维护子流程

2 年前

strdr77 · 我试图理解TCL中的递归,但每次递归完成时都会抛出错误

2 年前

Zamyatin · 当我认为MinGW会输出“*.dll”(动态链接库)时,它会输出一个“*.0”文件&它的大小只有(大约)应有大小的一半

2 年前

Wadsack · 有人能告诉我TCL为什么不能简单地读取特定的文件吗?此外,当执行字符串长度时,文件的内容也会失败

2 年前

Gary · 使用incrbob根据文本字符串中的字符位置来确定BLOB段中的字节位置?

2 年前

JoshTitle · Tcl:将带方括号的参数传递给过程(SDC)

2 年前

Gary · Tcl API中的SQLite“:”样式参数替换:为什么将此整数视为条件中的字符串?

3 年前

craigB · Tkinter Treeview调用找不到项目

3 年前

lvjsmn · 在函数tkinter中的一个永久重复循环后,将字符添加到Label

3 年前

Cory Anderson · TCL 8.4 CSV功能

3 年前