Page 1 of 1
Case Change
Posted: Sat Sep 05, 2015 5:43 pm
by Ralph Forehand
Is there a simple way of changing Case letters in a name?
Example; change JONES to Jones
and JONES-SMITH to Jones-Smith
Thanks for any suggestions.
Ralph
Re: Case Change
Posted: Sat Sep 05, 2015 5:49 pm
by andrewferguson
Hi,
The function you are looking for is the
toLower. This converts all uppercase letters in a string to their lowercase equivalent. For example:
Code: Select all
put the toLower of "HELLO WORLD" --results in "hello world"
put the toLower of "Hello World" --results in "hello world"
put the toLower of "hello world" --no change as there is no uppercase characters
Andrew
Re: Case Change
Posted: Sun Sep 06, 2015 9:27 pm
by quailcreek
Here's command I use to set the first letter of each word to caps.
Code: Select all
put fld "List" into tFldList
upCase tFldList
command UpCase @pString
local x
repeat with x=1 to the number of words in pString
put upper(char 1 of word x of pString) into char 1 of word x of pString
end repeat
return pString
end UpCase
Re: Case Change
Posted: Mon Sep 07, 2015 2:31 pm
by Ralph Forehand
Andrew and Tom,
Thank You for your input. You were very helpful

and as usual, this Forum is a great resource for

s .
Hers's the solution I ended up with;
Code: Select all
repeat with iy = 1 to 35 -- List with 35 Name formasts to change
put item 2 of line iy of fld "Misc_Info" into Name1
-- Put "JONES-SMITH" or "SMITH" into Name1 -> Change to "Jones-Smith" or "Smith"
put tolower(Name1) into Name2 -- set all letters to lower case
put char 1 of Name1 into char 1 of Name2 -- Capitalize 1 letter of Name
put offset("-", Name2) into XT -- Name includes hyphen?
if XT > 0 then -- Capitalize letter after hyphen
put toUpper(char XT+1 of Name2) into Namex
put Namex into char xT+1 of Name2
end if
put Name2 into item 2 of line iy of fld "Misc_Info"
end repeat