统计学生选择题回答正确的个数

shiyiming

[code:1x76ckqi]
data a;
infile cards dsd;
input id$ q1$ q2$ q3$@@;
cards;
01, a ,"b , c", b
02,"a c", c, c
03, A, "c ,  b", b
04, C, B, B,
;
run;

data b(drop=i);
num=0;
set a;
array q(3);
array crt(3) $_temporary_('a','bc|cb','b');
do i=1 to 3;
q(i)=PRXCHANGE('s/,/ /',-1,q(i));
q(i)=PRXCHANGE('s/\s//',-1,q(i));
if prxmatch('/'||crt(i)||'/i',q(i)) then num+1;
end;
run;
[/code:1x76ckqi]

shiyiming

不错！必须滴赞一下楼上的... 呵呵 <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->