急求各位大神一个MACRO 关于数据扫描，提取的问题？ 多谢

1. proc fcmp outlib=work.funcs.benfunc;
   
2.     function xscan(string $, position, delimiter $) $200;
   
3.         attrib returnString length=$200;
   
4.         if missing(strip(delimiter)) then _delimiter='\s';
   
5.         else _delimiter=delimiter;
   
6.         if position lt 0 then do;
   
7.             _position=max(abs(position)-1,0);
   
8.             pattern=prxparse(cats("/([^",_delimiter,"]*",_delimiter,"){",_position,"}[^",_delimiter,"]+$/"));
   
9.             returnString=substrn(string,prxmatch(pattern,strip(string)));
   
10.         end;
    
11.         else do;
    
12.             _position=position;
    
13.             pattern=prxparse(cats("/^([^",_delimiter,"]*(",_delimiter,"|$)){",_position,"}/"));
    
14.             call prxsubstr(pattern,strip(string),start,length);
    
15.             returnString=substrn(string,start,ifn(length=lengthn(string),length,length-1));
    
16.         end;
    
17.         return(returnString);
    
18.     endsub;
    
19. run;
    
20. 
    
21. options cmplib=work.funcs;
    
22. data test;
    
23.     x='a,bb,ccc,dddd,bb,eeeee';
    
24.     length y $40;
    
25.     do i=-7,-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7;
    
26.         y=xscan(x,i,',');
    
27.         output;
    
28.     end;
    
29. run;

复制代码

hopewell 发表于 2013-10-12 14:04

非常感谢，这个是我之前从没见过的PROC