[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

1 · [2] · 3 · 4 · 5 · 6 · See whole thread