一个将首字母变大写的sas macro

shiyiming

%macro firstup(data = , var = );
        data temp;
                set &data;
                &var = ' ' || trim(left(lowcase(&var)));
        run;

        data firstup;
                set temp;
                i = 0;  
                do until(i = 0);  
                        i = anyspace(&var, i + 1);  
                        c = upcase(substr(&var, i + 1, 1));  
                        substr(&var, i + 1, 1) = c;
                end;
                &var = left(&var);
                drop i c;
        run;
%mend firstup;

data a;
        format a $20.;
        a = 'aaa bbb ccc';
run;

%firstup(data = a, var = a);

shiyiming

[code:jvo46lsm]data a;
input x $char20.;
y=length(x)-length(left(x))+1;
substr(x,y,1)=upcase(substr(x,y,1));
drop y;
cards;
ab
  cd
e f
    de
;
run;[/code:jvo46lsm]

shiyiming

[code:hghfngv7]data a;
format a $20.;
a = 'aaa bbb ccc';
b=propcase(a);
run;[/code:hghfngv7]
注：该函数V9中有效

shiyiming

我写的macro是将每个英文单词的首字母变大字, 不是只将第一个单词的首字母变大写.

shiyiming

是啊，propcase函数的功能就是将每个英文单词的首字母变大字啊。

shiyiming

管理员的代码在针对这种空格分开的字符中确实是最简单的
我只看了你的标题，没有看代码反映的内容（误解了你真实的意图），下次改正。

shiyiming

propcase() 这个function不错, 收下了, 谢过!

shiyiming

我过去用SAS9.0, 没有propcase() function, 现在改用SAS9.1.3.

shiyiming

propcase function工作原理:先把所有字符转变为小写,然后按照指定的分割复将首字母转为大写

shiyiming

[quote="byes":ebkx155i]propcase function工作原理:先把所有字符转变为小写,然后按照指定的分割复将首字母转为大写[/quote:ebkx155i]

跟我写的macro的思路不谋而合