请问用tcl怎样找出一个字符串中有多少个hello？

set i 0; set j 0; set b {hello}
while { [string first $b $c $i] >=0 } {incr j ; set i [string first $b $c $i];
incr i}
puts $j

看看。