求助 sas导入外部数据文件

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位大侠，本人需要读取.txt 文件，遇到些困难。
文件格式如下：
------------------------------------------------------------------------------
645401010101   
BLOCD.O4
不喜欢出去，不喜欢工作，不喜欢吃饭
------------------------------------------------------------------------------
645401010101   
BLEMPLOYM.EM7X
备注

------------------------------------------------------------------------------
645401010101   
BLIO.IO13
访谈结束
------------------------------------------------------------------------------
645401040204   
BLDEMOGRAP_DM.DM2oth
学徒
------------------------------------------------------------------------------
645401040204   
BLIO.IO13
访谈进行很顺利

其中第一行是样本编号，第二行是变量名，第三行是数据，最大的问题是第二行的变量名不一样，需要读成不同的变量名和相应的数据

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：数据文件 Ploy DEMO 各位大侠 GRAP

不要这样在txt里列，一条记录列一行，字段间用逗号隔开。
proc import datafile='你所在文件的路径名\**.txt'
out=逻辑库名.数据集名 replace;
getname=yes;
run;
proc print data=sasuser.test2;
run;

最近完成的宏代码，批量导入数据，根据情况进行数据集合并

1.        
   
2. %macro importdata(dirname,typ);        /*参数有2个：路径，文件类型后缀*/
   
3. /*模块1--------------------------------【获取文件名】--------------------*/
   
4.     %put %str(----------->dirname=&dirname)        ;
   
5.     %put %str(----------->typ=&typ)                ;
   
6. data temp_filename                             ;     
   
7.             rc=filename("dir","&dirname")             ;/*把&dirname值传给文件引用符“dir"*/   
   
8.             openfile=dopen("dir")                     ;/*得到路径标示符openfile，dopen是打开directory的sas内置函数*/
   
9.             if openfile>0 then do                     ;/*如果openfile>0表示正确打开路径*/        
   
10.                       nummem=dnum(openfile)                   ;/*得到路径标示符openfile中member的个数nummem，即指定目录下文件个数*/        
    
11.                       do ii=1 to nummem                       ;           
    
12.                          name=dread(openfile,ii)              ;/*用dread依次读取每个文件的名字到name*/           
    
13.                          output                               ;/*依次输出*/        
    
14.                       end                                     ;     
    
15.             end                                       ;     
    
16. /* keep name                                 ;*/
    
17.                 /*只保留name列*/
    
18. 
    
19. run ;
    
20. 
    
21.          proc sort data = temp_filename             ;/*按照name排序*/     
    
22.              by descending name                       ;
    
23.              %if &typ^=all %then %do                  ;/*是否过滤特定的文件类型&typ*/     
    
24.                where  index(upcase(name),upcase(".&typ"));/*y,则通过检索name是否包含&typ的方式过滤文件类型*/
    
25.              %end                                           ;
    
26.          run                                            ;
    
27. 
    
28. /*-模块2-------------------------【将文件名存为宏变量】----------------*/
    
29.          %local N;
    
30.         proc sql noprint;
    
31.                 select count(*) as cnt into:N
    
32.                         from temp_filename ;
    
33.         quit;
    
34. /*        获取观测行数，也即导入的数据文件个数*/
    
35. 
    
36.         data _null_;
    
37.                         set  temp_filename  ;
    
38.                         call symputx('y'||left(_n_),name);
    
39.         run;
    
40. /*        将文件名逐个存为临时宏变量*/
    
41.                         %do i = 1 %to &N;
    
42.                                 %local filenamelist;
    
43.                                 %let filenamelist = &filenamelist. &&y&i ;/*对临时宏变量，对各文件名进行连接，各文件名以空格隔开*/
    
44.                         %end;
    
45.                         %put &filenamelist;
    
46.   
    
47. /*-模块3-------------------------【开始批量导入】----------------*/
    
48. 
    
49.         %do j = 1 %to &N ;
    
50.                         %let var&j = %sysfunc(trim(%scan(&filenamelist,&j,' ')));
    
51.                         %put &&var&j;
    
52. /*        数据导入-PS:这里以导入txt为例，tab分割，如导入excel需要修改为xls，附加dbms=xls*/
    
53.                 PROC IMPORT OUT= temp&j
    
54.                          DATAFILE= "&dirname.&&var&j"
    
55.                             DBMS=TAB REPLACE;
    
56.                      GETNAMES=YES;
    
57.                      DATAROW=2;
    
58.                 RUN;
    
59.   %end;
    
60. /*如果是同类型的表，则进行数据合并，根据需要而定*/
    
61.                 data merge_temp;
    
62.                         set
    
63.                           %do j = 1 %to &N;
    
64.                                   temp&j       
    
65.                           %end;
    
66.                         ;
    
67.                 run;
    
68. %mend;

复制代码

filename a '文件路径.txt';
options validvarname=any;
data b;
infile a;
length 变量1 $ 12 变量2 $ 20 变量3 $ 40;
input 变量1 $ / 变量2 $ / 变量3 $;
run;
proc print data=b;
run;

1. data a;
   
2. length var1 var2 $20. note $80.;
   
3. infile datalines;
   
4. input @'------------------------------------------------------------------------------' var1  / var2 $ / note $ @;
   
5. datalines;
   
6. ------------------------------------------------------------------------------
   
7. 645401010101   
   
8. BLOCD.O4
   
9. 不喜欢出去，不喜欢工作，不喜欢吃饭
   
10. ------------------------------------------------------------------------------
    
11. 645401010101   
    
12. BLEMPLOYM.EM7X
    
13. 备注
    
14. 
    
15. ------------------------------------------------------------------------------
    
16. 645401010101   
    
17. BLIO.IO13
    
18. 访谈结束
    
19. ------------------------------------------------------------------------------
    
20. 645401040204   
    
21. BLDEMOGRAP_DM.DM2oth
    
22. 学徒
    
23. ------------------------------------------------------------------------------
    
24. 645401040204   
    
25. BLIO.IO13
    
26. 访谈进行很顺利
    
27. ;
    
28. run;

复制代码

如果需要导入var2的文件，那么添加一个infile filevar就可以了。

filename aa 'F:\sasprogram\P120.txt';
data p120;
   infile aa firstobs=2 dlm='09'x;
   input Y X1 X2 X3 X4 X5 X6;
run;
这个是导入txt 文件