求助一个infile + input问题

1. data attrib;
   
2.   infile datalines dlm = '|';
   
3.   input pgm $ title $char500. footnote $char2000. point $ @@;
   
4. datalines4;
   
5. t_1|
   
6. title1 "title1 for &pgm.";|
   
7. footnote1 "footnote1 for t_1";
   
8. footnote2 "footnote2 for t_1";|
   
9. 6.3|
   
10. 
    
11. t_2|
    
12. title1 "title1 for &pgm.";
    
13. title2 "title2 for &pgm.";|
    
14. footnote1 "footnote1 for t_2";
    
15. footnote2 "footnote2 for t_2";
    
16. footnote3 "footnote3 for t_2";|
    
17. 5.2
    
18. ;;;;
    
19. run;

复制代码

求助input问题，输入有点free style，不过变量都是按照|这个符号来分隔的；
最终还是被input击败了，救助，谢谢：）

data attrib;
  length str  $4000;
  infile datalines dlm = '|' _infile_=tmp ;
  do while (count(str,"|")<3);
    input ;
        str=cats(str,tmp);
  end;

  pgm=scan(str,1,"|");
  title=scan(str,2,"|");
  footnote=scan(str,3,"|");
  input point;

  drop str;
datalines4;
t_1|
title1 "title1 for &pgm.";|
footnote1 "footnote1 for t_1";
footnote2 "footnote2 for t_1";|
6.3|
t_2|
title1 "title1 for &pgm.";
title2 "title2 for &pgm.";|
footnote1 "footnote1 for t_2";
footnote2 "footnote2 for t_2";
footnote3 "footnote3 for t_2";|
5.2
;;;;
run;

竖线是个累赘，try this


data attrib (where= (point>0) drop=temp);
length temp footnote title $500 pgm $8;
retain footnote ''  title '' pgm '';
infile datalines ;
input temp  &  $500. ;

if find(temp,'title')>0 then title= strip(title)|| tranwrd(temp,'|','');
else if  find(temp,'footnote')>0 then footnote= strip(footnote)|| tranwrd(temp,'|','');
else if anyalpha(tranwrd(temp,'|',''))=0 then point= input(tranwrd(temp,'|',''),best.) ;
else pgm = tranwrd(temp,'|','');
output;
  if point>0  then call missing(title,footnote, pgm);
datalines4;
t_1|
title1 "title1 for &pgm.";|
footnote1 "footnote1 for t_1";
footnote2 "footnote2 for t_1";|
6.3|
t_2|
title1 "title1 for &pgm.";
title2 "title2 for &pgm.";|
footnote1 "footnote1 for t_2";
footnote2 "footnote2 for t_2";
footnote3 "footnote3 for t_2";|
5.2
;;;;

run;

You can do it sa simple as below.   

data _null_;
      infile 'c:\temp\attrib.txt';
          file 'c:\temp\attrib.mod' ls =32767;
      input;
          if length(_infile_)>1 then put _infile_ @;  
    run;

        data attrib;
        length pgm $10 title $200 footnote $400 point 8;
        infile 'c:\temp\attrib.mod' delimiter='|' ls =32767;
        input pgm title  footnote  point @@;
        run;

        proc print;run;