请教：如何在一长文本中连续提取字符段？

想法很好，已用在了下面的程序中。

1. PROC IMPORT OUT= WORK.test_a
   
2.      DATAFILE= "F:\MySAS\a.xls"
   
3.      DBMS=EXCEL REPLACE;
   
4.      SHEET="a";
   
5.      GETNAMES=YES;
   
6.      MIXED=NO;
   
7.      SCANTEXT=YES;
   
8.      USEDATE=YES;
   
9.      SCANTIME=YES;
   
10. RUN;
    
11. data test_b;
    
12.     length datetime $18. record $600.;   
    
13.     set test_a;
    
14.     i = 1;
    
15.      do until(position = 0);
    
16.        call scan ( record, i, position , length , "|||" );
    
17.   if 15 < length < 20 then do;
    
18.          datetime = substrn (record, position , length );
    
19.          output;
    
20.          end;
    
21.      i+1;
    
22.    end;
    
23.     drop record position length i;
    
24. run;
    
25. 
    

复制代码

yongyitian 发表于 2013-8-19 10:05
想法很好，已用在了下面的程序中。

谢谢，我去实践下您的思路