egghelp/eggheads community

regexp/string match badword

2004-07-12T20:52:42-04:00

Thank you so much.

Statistics: Posted by mm — Mon Jul 12, 2004 8:52 pm

regexp/string match badword

2004-07-11T15:11:48-04:00

Code:

if {['string match -nocase "* $w *" " $text "']} {

there is a couple of ' that's not supposed to be there.

Code:

if {[string match -nocase "* $w *" " $text "]} {

Statistics: Posted by Papillon — Sun Jul 11, 2004 3:11 pm

regexp/string match badword

2004-07-11T14:48:11-04:00

Hi, when i try as "user" has suggested -> how about 'string match -nocase "* $w *" " $strip "'?

foreach w $bad_words {
if {['string match -nocase "* $w *" " $text "']} {

i get the error
Tcl error [protect:channel]: extra characters after close-quote

Dedan/Unknown1 can i have the working script please?

Thanks

Statistics: Posted by mm — Sun Jul 11, 2004 2:48 pm

regexp/string match badword

2004-07-01T17:06:22-04:00

Hmm, as you see I'm new to tcl.. But that looks like a perfect solution.. Trying now.. Thanks..

Statistics: Posted by Unknown1 — Thu Jul 01, 2004 5:06 pm

regexp/string match badword

2004-07-01T17:17:02-04:00

Code:

regsub -all -nocase {[^a-z]+} $line " " line

EDIT: I added a "+" to make it look a bit less paced out

Statistics: Posted by user — Thu Jul 01, 2004 4:59 pm

regexp/string match badword

2004-07-01T16:28:11-04:00

I'm having the same problem.. And I came to the same conclusing to just add a space on the front and back of the string.. But there is still a problem...

If the string has any non alpha chars in it, it will still miss the badword.

example:
" This is a test badword. "

It will still miss the badword because " badword. " doesn't match " badword "..

I see a way to strip all color codes out of a string.. Is there a way to strip all non alpha chars?

Or is there a better solution?

Statistics: Posted by Unknown1 — Thu Jul 01, 2004 4:28 pm

regexp/string match badword

2004-03-26T08:47:33-04:00

doh

Statistics: Posted by Dedan — Fri Mar 26, 2004 8:47 am

regexp/string match badword

2004-03-26T05:12:37-04:00

If i use:
Code:

foreach w $badwords {
if {[string match -nocase "* $w *" "$strip"]} {

it will not work if there is only one word typed or if there is no space after the $w

...that's why I suggested the additional spaces around $strip

how about 'string match -nocase "* $w *" "$strip"'?

Statistics: Posted by user — Fri Mar 26, 2004 5:12 am

regexp/string match badword

2004-03-26T05:08:38-04:00

If i use:
Code:

foreach w $badwords {
if {[string match -nocase "* $w *" "$strip"]} {

it will not work if there is only one word typed or if there is no space after the $w

Statistics: Posted by Dedan — Fri Mar 26, 2004 5:08 am

regexp/string match badword

2004-03-26T05:03:43-04:00

how about 'string match -nocase "* $w *" " $strip "'?

Statistics: Posted by user — Fri Mar 26, 2004 5:03 am

regexp/string match badword

2004-03-26T02:00:18-04:00

surely you will suggest i "bind' each badword to a proc,
but this is an all-in-one script ... it looks for
codes/caps/badwords and repeats.

i want to set the badwords as a list, and match them againist text.
i also will be using 2 different lists.

set badwords {
"test"
"t e s t"
"*more*"
}

PROBLEM:

If i use:

Code:

    foreach w $badwords {      if {[string match -nocase "$w" "$strip"]} {

it will not work because:
string does not match the pattern
the entire string had to match the entire pattern, character for character.

If i use:

Code:

    foreach w $badwords {      if {[string match -nocase "*$w*" "$strip"]} {

it will not work because: it will kick on "testing" ... i only want it to kick on "test"

If i use:

Code:

    foreach w $badwords {      if {[string match -nocase "* $w *" "$strip"]} {

it will not work if there is only one word typed or if there is no space after the $w

if i split the string to a list and list search,
entrys like "t e s t" can not be matched.

i have tried some regexp, but it will kick on "testing" ... i only want it to kick on "test"

thanks for any help given

Statistics: Posted by Dedan — Fri Mar 26, 2004 2:00 am