4 ms·
proc ProcessInputData {data} { set line [string map {"{" "(" "}" ")"} $data] set newData "" foreach char [split $line {}] { if {[string is a
by biomimic 12y ago
proc ProcessInputData {data} {
set line [string map {"{" "(" "}" ")"} $data]
set newData ""
foreach char [split $line {}] {
if {[string is ascii $char] && [string is control $char] == 0} {
append newData $char
}
}
set newData [string map {\/ " " \; " . " \* " " \^ " " " = " " " " - " " " \< " " \> " " \{ " " \} " " \( " " \) " " \| " " \` "" \' "" \\ " " \" "" \, " " \? " . " \! " . " \[ " " \] " "} $newData]
return $newData
}
ProcessInputData cool