Code:

set $bans_count 0foreach bans [banlist $chan] {    # can use -nocase option below if you wish case to be irrelevant    if {[string equal -- [lindex [split $bans] 5] [lindex [split $text] 0]]} {        set $bans_count [expr $bans_count + 1]    }}if {$bans_count > 0} {    puthelp "NOTICE $nick :Handle \002[lindex [split $text] 0]\002 has $bans_count bans."} else {    puthelp "NOTICE $nick :Handle \002[lindex [split $text] 0]\002 has \002NO\002 bans."}unset $bans_count

Without knowing what $bans is to really be doing, as in your code it's serving two purposes?? 1. holding contents of each iteration through the foreach or is it 2. used as a ban counter? It can't do both as your code suggests.
In the code I provided above, they are seperated and correctly handles strings and lists as what they really are. If you want more help than this, you need to better express your needs.

Statistics: Posted by metroid — Thu Mar 06, 2008 1:25 pm

Code:

set count [llength [lsearch -all -exact -index 5 [banlist $chan] [lindex [split $text] 0]]]

Statistics: Posted by user — Thu Mar 06, 2008 4:42 am

Code:

set bans_count 0foreach bans [banlist $chan] {    # can use -nocase option below if you wish case to be irrelevant    if {[string equal -- [lindex [split $bans] 5] [lindex [split $text] 0]]} {        set bans_count [expr $bans_count + 1]    }}if {$bans_count > 0} {    puthelp "NOTICE $nick :Handle \002[lindex [split $text] 0]\002 has $bans_count bans."} else {    puthelp "NOTICE $nick :Handle \002[lindex [split $text] 0]\002 has \002NO\002 bans."}unset bans_count

Statistics: Posted by speechles — Thu Mar 06, 2008 2:37 am

(07:13) -> *|egg* banlist ryan
(07:13) -|egg- Handle ryan has 12 bans

foreach bans [banlist $chan] {  set author [lindex $bans 5]  if {$author ==  [lindex [split $text] 0]} {    puthelp "NOTICE $nick :Handle\002 $author  \002has $bans bans"  } else {    puthelp "NOTICE $nick :Handle\002 $author  \002has\002 NO \002 bans"   }}

Statistics: Posted by Riddler — Thu Mar 06, 2008 1:16 am