- data test;
- infile "D:\test.txt" truncover;
- input strings $char80.;
- run;
- data test2;
- set test;
- if _N_=1 then pattern=prxparse("/CHB=(\d|,)+(;| )/");
- retain pattern;
- call prxsubstr(pattern,strings,start,length);
- if start>0 then do;
- strings2=substr(strings,start+4,length-5);
- end;
- run;


雷达卡

京公网安备 11010802022788号







