(defun J7:TitleCase ( s / )
(setq s (strcase s T))
(while (setq sp (vl-string-position 32 s sp))
(setq s (vl-string-subst
(chr (boole 2 (vl-string-elt s (1+ sp)) 32))
(chr (vl-string-elt s (1+ sp)))
s
(1+ sp)
)
sp (1+ sp)
)
)
(vl-string-subst
(chr (boole 2 (vl-string-elt s 0) 32))
(chr (vl-string-elt s 0))
s
)
)
EDIT: Fixed formatting of code (code not changed).