Character hiding and showing

[Madalin]

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

I cannot make it show
'
`
and
?

Code: Select all

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;
}

[caesar]

Have you tried string map like:

Code: Select all

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

that basically removes the characters leaving everything else?

[Madalin]

I want to show does characters not hide them.

[caesar]

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

Code: Select all

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: Select all

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