Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
Par2: Proper case names 2008-08-21 -- Randy Goodhew Here I've added the additional single character checks and optimized the
code.
!----------------------------------------------
Proper PROCEDURE(STRING s)
UpperFlag LONG,AUTO
J LONG,AUTO
CODE
s = LOWER(s)
UpperFlag = TRUE
LOOP J = 1 TO SIZE(s)
CASE s[J]
OF '<32>' !Space Char
OROF '<34>' !Double Quote "
OROF '<39>' !single quote '
OROF '<45>' !single dash -
OROF '0' TO '9'
UpperFlag = TRUE
ELSE
IF UpperFlag = TRUE
s[J] = UPPER(s[J])
UpperFlag = FALSE
END !if
END !loop
END !loop
RETURN( s )
Today is April 26, 2024, 11:41 am This article has been viewed 35115 times.
|
|