egghelp/eggheads community

checking if string contains 2 the same chars

2002-10-29T05:39:25-04:00

THis is because of the following code.

Code:

set mp3players {" \*word\*word2\* "" \*word\*word2\* "}

This produces a list, which you have used in the script, but when each element is converted into a string, the escaping is lost, and it becomes a plain old *.

To get around this, I think you can use

Code:

set mp3players [list]lappend mp3players "\*word\*word2\* "lappend mp3players "\*word3\*word4\* "

The method you use, creates the list manualy. This can be troublesome (as your script shows, it doesn't allways produce the correct results).

Lists are specialy formated, thus, when trying to manualy create the list, you have to get the exact formatting right.

Using my example above, though it is longer, it will produce the formatting for you (in theory).

Statistics: Posted by ppslim — Tue Oct 29, 2002 5:39 am

checking if string contains 2 the same chars

2002-10-28T18:28:25-04:00

This doesn´t match, why? How can i use * in the search string?

set mp3players {
" \*word\*word2\* "
" \*word\*word2\* "
}

bind pubm - "*" mp3

proc mp3 {nick uhost hand chan rest} {
global botnick kick_msg mp3players
regsub -all -- {\002|\037|\026|\017|\003([0-9][0-9]?(,[0-9][0-9]?)?)?|^B|^V|^C([0-9][0-9]?(,[0-9][0-9]?)?)?|^_} $rest "" rest
foreach mp3_line $mp3players {
if {[regexp $mp3_line [string tolower [lindex [split $rest] 0]]]} {

Statistics: Posted by stere0 — Mon Oct 28, 2002 6:28 pm

checking if string contains 2 the same chars

2002-10-26T21:07:07-04:00

Code:

if {[regexp aa|bb|cc|dd|ee|ff|gg|hh|ii|jj|kk|ll|mm|nn|oo|pp|qq|rr|ss|tt|uu|vv|ww|xx|yy|zz $string]} { .... }

I'm sure there's yet an even more simpler way... try reading the tcl manpages for re_syntax ...

Statistics: Posted by strikelight — Sat Oct 26, 2002 9:07 pm

checking if string contains 2 the same chars

2002-10-26T14:45:06-04:00

Code:

set test "abcdeefg" set car "" set last [string index $test 0]for {set loop 1} {$loop <= [strlen $test] } {incr loop} {   set car [string index $test $loop]   if { $car == last } { then ..  }   set last $car}

Statistics: Posted by Guest — Sat Oct 26, 2002 2:45 pm

checking if string contains 2 the same chars

2002-10-26T14:16:37-04:00

Lo,

I'd like to check whether string contains 2 the same chars like "*aa*" "*bb*" and so on.

Code:

if {([string match "*aa*" $string]) || ([string match "*bb*" $string])....... || ([string match"*zz*" $string])}

It would work I just wonder if is there a simplier/shorter way to code it.

TIA

Statistics: Posted by Nexus6 — Sat Oct 26, 2002 2:16 pm