Capitalizing string with multiple spaces 1

[awowen]

Our database stores city names as all caps. I am attempting to output the name as initial caps only. Problem is some city names are three or more words. I kluged up the code below to handle two-word strings but haven't been able to handle three or more. Need to change 'XXX XXX XXX' to 'Xxx Xxx Xxx'.

Version 8.5 against a btrieve database.

if instr({Case_1.CasRelName2}," ") > 0 then
UpperCase (Left ({Case_1.CasRelName2},1))&LowerCase (Mid ({Case_1.CasRelName2},2 ,(tonumber((instr({Case_1.CasRelName2}," "))-1))))&Uppercase(Mid ({Case_1.CasRelName2},(InStr ({Case_1.CasRelName2}," " )+1) , 1)) & LowerCase (Mid ({Case_1.CasRelName2},(InStr ({Case_1.CasRelName2}," " )+2) ,Length ({Case_1.CasRelName2})))
else UpperCase (Left ({Case_1.CasRelName2},1))&LowerCase (Mid ({Case_1.CasRelName2},2 ,Length ({Case_1.CasRelName2})))

Thanks,

 

[Naith]

Download the ProperCase UFL from Business Objects.

Or use something like this:

local stringvar array la_name:='';
local numbervar l_i;
local stringvar l_result:='';
la_name:=split(lcase({Your.Field}));
for l_i:=1 to ubound(la_name) do
(
  l_result:=l_result & ucase(left(la_name[l_i],1)) & right(la_name[l_i],length(la_name[l_i])-1) & 
  if l_i<ubound(la_name) then " ";  
  
);
l_result;

Naith

 

[awowen]

Thanks Naith!
The code worked like a charm. I wasn't able to use the UFL because our users are running the reports from an app and this caused the report to fail.