Topic: Capital letter

[MeasureUp]

I know that "strcase" converts text to uppercase or lowercase.
Is there any function to convert the 1st letter of a text to uppercase and the rest to lowercase?
Thanks in advance.

[Lee Mac]

Text Case Functions

[MeasureUp]

Thanks Lee. Your tips are very helpful. Cheers!

[Lee Mac]

You're welcome! 

[tedg]

Thanks Lee. Your tips are very helpful. Cheers!

Tips?
More like well explained, downloadable working examples!!


Lee is a freakin' Genius, we're not worthy.


Don't forget to donate, and tip your bartenders and waitresses too.


 

[JohnK]

Found this one and a ton more with a quick search of the forum (I'll post the one I supposedly done and let the other people post theirs).

Code - Auto/Visual Lisp: [Select]

1. (defun J7:TitleCase ( s / )
2.   (setq s (strcase s T))
3.   (while (setq sp (vl-string-position 32 s sp))
4.          (setq s (vl-string-subst
5.                    (chr (boole 2 (vl-string-elt s (1+ sp)) 32))
6.                    (chr (vl-string-elt s (1+ sp)))
7.                    s
8.                    (1+ sp)
9.                    )
10.                sp       (1+ sp)
11.                )
12.          )
13.   (vl-string-subst
14.     (chr (boole 2 (vl-string-elt s 0) 32))
15.     (chr (vl-string-elt s 0))
16.     s
17.     )
18.   )