[REBOL] Re: Upper-Lower Case
From: rebol:optushome:au at: 13-Dec-2001 7:03
Use the /part refinement of Uppercase. proper-case: func [value /local out][ out: copy "" value: parse form value none ;probe value foreach item value [ append out join uppercase/part lowercase item 1 " " ] trim/tail out ] foreach item ["the big do is a pig" "JOHN SmITH" "peter" #"a" "a b c"][print proper-case item ] Cheers, Allen K