Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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