标题: 一道难题，请高手帮忙 [打印本页] 作者: shiyiming 时间: 2013-11-21 11:37 标题: 一道难题，请高手帮忙 ％let tt=%str(A B C);
data a;
input unid $ X $;
cards;
001 A
001 B
001 C
002 B
003 A
003 B
;
run;
现有data a和一个字符串tt如上所示。
要求建一个新变量y,使每个unid中x中缺少的值（相比较tt）赋值给y。
比如001的y就为空，002的y就是A B,003的y就是C,如下表所示：
unid x y
001 A .
001 B .
001 C .
002 C A B
003 A C
003 B C
先谢谢了！！作者: shiyiming 时间: 2013-11-26 10:03 标题: Re: 一道难题，请高手帮忙 [code:2e1ttiwc]
data result;
if 0 then set a;
Y="&tt";
do until(last.unid);
set a;
by unid;
Y=strip(compbl(tranwrd(Y,strip(X),'')));
end;
if Y='' then Y='.';
do until(last.unid);
set a;
by unid;
output;
end;
run;[/code:2e1ttiwc]