如何读入这样的文本

1. filename testdata 'd:\testdata.txt';
   
2. data raw;
   
3.     length name $10 sequence $10000;
   
4.     retain name sequence;
   
5.     infile testdata;
   
6.     input;
   
7.     if substr(_infile_,1,1)='>' then name=substr(_infile_,2);
   
8.     else if _infile_='//' then do;
   
9.         output;
   
10.         call missing(sequence);
    
11.     end;
    
12.     else sequence=cats(sequence,_infile_);
    
13. run;

复制代码

牛人 ，顶一个啊

精彩，受教了！