- data result ;
- set test;
- length prxid i 8 text $100 flag $1;
- retain prxid;
- if _n_=1 then prxid=prxparse('m/^[a-z_][a-z\d_]{0,7}$/i');
- i=1;
- flag=ifc(scan(string,i,'')='','1','0');
- do while(scan(string,i,'') ne '');
- text=strip(scan(string,i,''));
- if prxmatch(prxid,trim(text))=0 then do;
- flag='1';
- leave;
- end;
- i=i+1;
- end;
- drop prxid i text;
- run;


雷达卡




京公网安备 11010802022788号







