(defun ALE_String_ToList (InpStr CarDlm TrueFl / SttPos EndPos TmpLst TmpStr)
(setq
CarDlm (ascii CarDlm) SttPos 0
EndPos (vl-string-position CarDlm InpStr)
)
(while EndPos
(setq
TmpStr (substr InpStr (1+ SttPos) (- EndPos SttPos))
SttPos (1+ EndPos) EndPos (vl-string-position CarDlm InpStr SttPos)
)
(and
(or (/= TmpStr "") TrueFl)
(setq TmpLst (cons TmpStr TmpLst))
)
)
(if (or (/= (setq TmpStr (substr InpStr (1+ SttPos))) "") TrueFl)
(reverse (cons TmpStr TmpLst))
(reverse TmpLst)
)
)
(defun Foo (InpStr / OutStr)
(setq OutStr "")
(foreach ForElm (ALE_String_ToList InpStr " " nil)
(setq OutStr (strcat OutStr (strcase (substr ForElm 1 1))))
)
)
(Foo "What you see is what you get.") => "WYSIWYG"