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

shiyiming

版主真是很牛

shiyiming

楼主的程序好多多余的地方哦
%macro firstup(data, var);
data temp;
set &data;
&var = ' ' || trim(lowcase(&var));                  left可以不要                 
run;

data firstup;
set temp;                                                    i=0可以省略
do until(i = 0);
i = anyspace(&var, i + 1);
substr(&var, i + 1, 1) = upcase(substr(&var, i + 1, 1));        干吗非要引入c呢? 岂非浪费资源
end;
&var = trim(&var);
drop i;                                                        这下可以少drop一个column了哦
run;
%mend firstup;

shiyiming

来个不要||的,不过怎么都没有propcase好了 <!-- s:? --><img src="{SMILIES_PATH}/icon_confused.gif" alt=":?" title="Confused" /><!-- s:? -->
%macro firstup(data, var);
data temp;
set &amp;data;
&amp;var=trim(lowcase(&amp;var));
substr(&amp;var,1,1)=upcase(substr(&amp;var,1,1));
do until(i=0);
i=anyspace(&amp;var,i+1);
substr(&amp;var, i + 1, 1) = upcase(substr(&amp;var, i + 1, 1));
end;
drop i;
run;
%mend firstup;