;; | -------------------------------------------------------------------------------
;; | Function : TX_Change2TitleCase
;; | -------------------------------------------------------------------------------
;; | Function : Change a String to Title Case 
;; | Argument : [Name] - String to be title cased.
;; | Return   : The Title Cased String
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -------------------------------------------------------------------------------


(defun TX_Change2TitleCase( Name / len NewStr PartStr tmp cnt 1Char prevBrkChar )

(setq
	len         (strlen Name)
	NewStr      ""
	PartStr     ""
	prevBrkChar ""
	cnt         1
)
(repeat len
	(setq 1Char (substr Name cnt 1))
	(if (member 1Char (list " " "," "\t" "(" "-"))
	(setq
		PartStr     (TX_TitleCase PartStr)
		NewStr      (strcat NewStr prevBrkChar PartStr)
		PartStr     ""
		prevBrkChar 1Char
	)
	(setq PartStr (strcat PartStr 1Char))
	)
	(setq cnt (1+ cnt))
)
(setq NewStr (strcat NewStr prevBrkChar (TX_TitleCase PartStr)))
)