egghelp/eggheads community

Character hiding and showing

2019-01-07T02:08:17-04:00

Ah, sorry, my bad. Loop and lsearch then?

Code:

proc hideword word {set chars {" " "-" "," "." "\("  "\)" "\'" "`" "?" "*"}foreach c [split $word ""] {if {[lsearch $chars $c] > -1} {append nw $c} else {append nw "*"}}return $nw}

and a "compact" version:

Code:

proc hideword word {set chars {" " "-" "," "." "\("  "\)" "\'" "`" "?" "*"}foreach c [split $word ""] {append nw [expr {[lsearch $chars $c] > -1 ? $c : "*"}]}return $nw}

Statistics: Posted by caesar — Mon Jan 07, 2019 2:08 am

Character hiding and showing

2019-01-06T12:50:22-04:00

I want to show does characters not hide them.

Statistics: Posted by Madalin — Sun Jan 06, 2019 12:50 pm

Character hiding and showing

2019-01-04T14:53:00-04:00

Have you tried string map like:

Code:

string map [list " " "" "-" "" "," "" "." "" "\(" "" "\)" "" "\'" "" "`" "" "?" "" "*" ""] [split $text]

that basically removes the characters leaving everything else?

Statistics: Posted by caesar — Fri Jan 04, 2019 2:53 pm

Character hiding and showing

2019-01-04T12:46:39-04:00

Evening.
I have a small problem with the following code, meaning that it works 97%

I cannot make it show
'
`
and
?

Code:

proc hideword {word} {set newword "";foreach letter [split $word {}] {if {$letter ne " " && $letter ne "-" && $letter ne "," && $letter ne "." && $letter ne "(" && $letter ne ")" && $letter ne "'" && $letter ne "`" && $letter ne "?"} {set letter "*";}append newword $letter;}return $newword;}

Statistics: Posted by Madalin — Fri Jan 04, 2019 12:46 pm