求助：批量将外部文件导入SAS数据集

shiyiming

如下需求，请教各位大侠如何实现！

需求：

外部文本格式的文件，实例格式如下：

---------------------------txt文件------------------------------------------
AD_CODE,VALUE,COUNT
141129,非空,546
371322,非空,3378
652925,非空,1001
500110,非空,272
350881,非空,973

AD_CODE,TYPECODE,COUNT
220283,180200,5
230123,130500,1
152201,061208,21
654202,061101,22
-------------------------------------------------------------------------------

每部分用空行标记，对空行内部分需要分别生成对应的SAS数据集，其中每一部分第一行为生成SAS数据集的变量名称，最后一个变量为数值型，如上例第二部分，AD_CODE及TYPECODE为变量名，且为字符型，COUNT为数值型变量。

Qiong

每个部分的变量个数一样么？

Qiong

比较傻的方法，如果个数一样的话，先读进来，拆成小数据集，output成小txt再读回来，可以少掉处理varname的步骤。
[code:3korqero]data WORK.test ;           
    infile 'D:\temp\test.txt' delimiter=',' MISSOVER DSD lrecl=32767 firstobs=1 ;
       informat v1-v3 $25. ;
       format v1-v3  $25. ;
    input  v1-v3  $;
run;
data _null_;
   do count=1 by 1 until (v1='' or last);
      set test end=last;
   end;
   lastobs+count;
   i+1;
   /*Data break*/
   call execute('data test' || compress(i) || ';');
   call execute('set test(firstobs=' || compress(lastobs-count+1) || ' obs=' || compress(lastobs) || ');');
   call execute('if v1^="";');
    /*output*/
    call execute('data _null_;
         set  test' || compress(i) || ';
         file "D:\temp\temp.txt" delimiter="09"x DSD DROPOVER lrecl=32767;
         put v1-v3 $;');
  /*Data in*/
   call execute ('PROC IMPORT OUT=TEST'||compress(i)||'  DATAFILE= "D:\temp\temp.txt"
    DBMS=DLM REPLACE;
     DELIMITER="09"x;
     GETNAMES=YES;
     DATAROW=2;');
         run;
run;[/code:3korqero]

Qiong

用transpose也行，但是还要专门把最后一个转成数字型。
[code:q486sls2]
data _null_;
   do count=1 by 1 until (v1='' or last);
      set test end=last;
   end;
   lastobs+count;
   i+1;
   /*Data break*/
   call execute('data temp;');
   call execute('set test(firstobs=' || compress(lastobs-count+1) || ' obs=' || compress(lastobs) || ');');
   call execute('if v1^="";');  
    /*transpose*/
    call execute('proc transpose data=temp out=temp(drop=_name_); var _all_;');
    call execute('proc transpose data=temp out=temp(drop=_name_);var col2-col4;id col1;');
    call execute('data TEST'||compress(i)||'(rename=( count1=count));');
    call execute('set temp;');
    call execute('count1=count*1;drop count;');  
  run; run; run;
[/code:q486sls2]

shiyiming

每个部分变量个数是不定的。

谢谢楼上几位的回复，虽没有最终解决问题，但是也是受益匪浅。