LiveCode Forums.

Code: Select all

function ProperCase pString
  local caps, tmp
  --
  put True  into caps
  repeat for each char C in pString 
    if caps then
      put toUpper( C ) after tmp
    else
      put toLower( C ) after tmp
    end if
    put ( C is in " ,-." ) into caps # stop chars go here
  end repeat
  return tmp
end ProperCase

Code: Select all

function ProperCase pString,pCaps
  local tmp
  if pCaps is not true then put false into pCaps --empty?
  if pCaps then put toUpper(pString) into tmp
  else put toLower(pString) into tmp
  repeat for each char myChar in " ,-."
    replace myChar with empty in tmp
  end repeat
  return tmp
end ProperCase