egghelp/eggheads community

Making an "caps" proc

2004-12-30T13:14:35-04:00

Thanks user, that did exactly what i needed

Statistics: Posted by metroid — Thu Dec 30, 2004 1:14 pm

Making an "caps" proc

2004-12-30T11:42:09-04:00

Well, it seems it doesn't work exactly right

Space is not considered an uppercase character by 'string is upper'. How about something like this?

Code:

proc invertCase str {string map {a A A a b B B b c C C c d D D d e E E e f F F f g G G g h H H h i I I i j J J j k K K k l L L l m M M m n N N n o O O o p P P p q Q Q q r R R r s S S s t T T t u U U u v V V v w W W w x X X x y Y Y y z Z Z z} $str}

Statistics: Posted by user — Thu Dec 30, 2004 11:42 am

Making an "caps" proc

2004-12-30T08:53:51-04:00

i think the only way to do this is split the $text up and change each characters case. loop through foreach $char maybe use a switch statement on it.

Statistics: Posted by ^DooM^ — Thu Dec 30, 2004 8:53 am

Making an "caps" proc

2004-12-30T07:36:42-04:00

Well, it seems it doesn't work exactly right

Code:

[12:35:23]  Q caps "moo dss sss"[12:35:26]  [TCL_OK 0.029ms] MOO DSS SSS[12:35:36]  Q caps "MOO DSS SSS"[12:35:39]  [TCL_OK 0.027ms] MOO DSS SSS[12:35:40]  Q caps "MOO Dss SSS"[12:35:43]  [TCL_OK 0.028ms] MOO DSS SSS

Code:

proc caps { arguments } {if {![string is upper $arguments]} {return [string toupper $arguments]   } else {   return [string tolower $arguments]  }   }

Statistics: Posted by metroid — Thu Dec 30, 2004 7:36 am

Making an "caps" proc

2004-12-30T07:14:07-04:00

Yeah, this will work :)

Statistics: Posted by KrzychuG — Thu Dec 30, 2004 7:14 am

Making an "caps" proc

2004-12-30T06:42:03-04:00

Code:

if { ![string is upper $text } {    return [string toupper $text]} else {     return [string tolower $text]}

not sure about this one heres what i would try.

Statistics: Posted by ^DooM^ — Thu Dec 30, 2004 6:42 am

Making an "caps" proc

2004-12-30T06:29:14-04:00

Actually, Both

It has to detect that it's uppercase and change it to lowercase and change it accordingly and the other way around aswell

Statistics: Posted by metroid — Thu Dec 30, 2004 6:29 am

Making an "caps" proc

2004-12-30T06:25:18-04:00

I think that is what Metroid was asking. How to detect the case not how to change the case

Statistics: Posted by ^DooM^ — Thu Dec 30, 2004 6:25 am

Making an "caps" proc

2004-12-30T06:06:32-04:00

Code:

proc caps { text } {  return [string toupper $text] ;# [caps moo] -> MOO}proc caps { text } {  return [string tolower $text] ;# [caps MOO] -> moo}

Now you have to figure out how to detect that string is lower or upper case.

Statistics: Posted by KrzychuG — Thu Dec 30, 2004 6:06 am

Making an "caps" proc

2004-12-30T03:05:08-04:00

I was wondering if anyone has a clue about making a small "caps" proc, This proc would simply convert lowercase text into big text and the other way around aswell.

[caps moo]
MOO
[caps MOO]
moo

Thanks if any of you could be bored enough to make it

Statistics: Posted by metroid — Thu Dec 30, 2004 3:05 am