|
|
板凳

楼主 |
发表于 2009-11-9 12:32:51
|
只看该作者
Re: 关于merge by name的问题
[code:3w3h53f4]data raw;
length text1 text2 $30;
infile datalines dlm=',';
input text1 $ text2 $;
datalines;
3M,3M Corp
American Standard Com,American Standard Inc
Consolidated edison com,Consolidated edison inc
;
data final(drop=i);
set raw;
array arr{3} $ _temporary_ ('CORP' 'COM' 'INC');
text1=compbl(upcase(text1));
text2=compbl(upcase(text2));
do i=1 to 3;
text1=tranwrd(text1,arr(i),'');
text2=tranwrd(text2,arr(i),'');
end;
run;[/code:3w3h53f4] |
|