例1: 截取每行数据中的math和english
data test;
input id :$3. exams & $30.;
math=substr(exams,find(exams,'math','i',1),4);
english=substr(exams,find(exams,'english','i',1),7);
cards;001math Chinese002english math chemistry003Chinese phisics
;
run;
例2: 查找每位学生的数学和英语成功
data test;
input id $ exams& $30.;
math=substr(exams,find(exams,'math','i',1)+5,3);
english=substr(exams,find(exams,'english','i',1)+7,3);
cards;001 math 100 english 90
002 math 80 english 70
003 math 95 english 85;
run;
data test;
input id $ exams& $30.;
math=substr(exams,index(exams,'math')+5,3);
english=substr(exams,index(exams,'english')+7,3);
cards;001 math 100 english 90
002 math 80 english 70
003 math 95 english 85;
run;