egghelp/eggheads community

regexp question

2008-08-31T23:03:51-04:00

You're so cool! thanks speechles

Statistics: Posted by garung — Sun Aug 31, 2008 11:03 pm

regexp question

2008-08-31T19:02:24-04:00

speechless, it's tnot that, i mean skip these words(he's she's it's) so that they dont replace them with asterisks

Code:

 .tcl set a [asterize "this, is a word. this is a question?"] Tcl: ****, ** * ****. **** ** * ********? .tcl set a [asterize "he's got this. she's got that. you've got those."] Tcl: **'* *** ****. ***'* *** ****. ***'** *** *****.

Code:

proc asterize {text} {   set asterisktext ""   foreach word [split $text] {      set asteriskword ""      foreach char [split $word ""] {         if {[string match *$char* "`~!@#$%^&()\[\]\{\}:;'"<>\?,."]} {            append asteriskword $char         } else {            append asteriskword "*"         }      }      append asterisktext "$asteriskword "   }   return [string trim $asterisktext]}

You mean like this?

Statistics: Posted by speechles — Sun Aug 31, 2008 7:02 pm

regexp question

2008-08-31T17:12:16-04:00

speechless, it's tnot that, i mean skip these words(he's she's it's) so that they dont replace them with asterisks

Statistics: Posted by garung — Sun Aug 31, 2008 5:12 pm

regexp question

2008-08-31T16:06:00-04:00

Code:

 .tcl set a "I'll . it's , she's ..." Tcl: I'll . it's , she's ... .tcl set b [string map {"." "" "?" "" "," ""} $a] Tcl: I'll  it's  she's .tcl set c [join [split $b]] Tcl: I'll it's she's

Like that? Part c, the join and split is there to eliminate over spaced fields and return to the string to nomal single spaces.

Statistics: Posted by speechles — Sun Aug 31, 2008 4:06 pm

regexp question

2008-08-31T13:11:10-04:00

Can someone help me how to skip word like I'll . it's , she's ... in $text? thanks

while {[regexp -indices -start $pos {[^[:punct:]\s]+} $text match]} {
lappend words $match
lassign $match -> pos
incr pos
}

Statistics: Posted by garung — Sun Aug 31, 2008 1:11 pm