关于批量导入XPT文件

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

新人求教：
从教程上得知可以用以下code将xpt文件读入SAS（in this case, lib MY）：

1. LIBNAME MY "S:\DATA"; LIBNAME XP XPORT "S:\XXX.XPT"; PROC COPY IN=XP OUT=MY; RUN;

复制代码

但是现在有N多xpt文件需要读入SAS，一个一个操作太繁琐，想用macro搞了半天也不成，看精华（导excel）也没能举一反三。
想请问大侠怎么一次性在SAS中批量导入xpt文件？

多谢多谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：批量导入 libname xport Macro EXCEL excel

你好，想问下一个个是如何导入的，目前我还不会，按照上述的程序就可以吗？谢谢。

楼主可以试一下：

LIBNAME MY "S:\DATA";
filename mydir pipe "dir ""S:\"" /b /s";
data content;
        infile mydir lrecl=300 truncover;
        input @1 content $200. ;
        if upcase(substr(content,length(content)-2,3))="XPT";

    call execute("libname xp xport '"||strip(content)||"';");
        call execute(" PROC COPY IN=XP OUT=MY; RUN;");
run;
filename mydir clear;

filename mydir pipe 'dir "S:\" /b';
data content;
infile mydir lrecl=300 truncover;
input @1 content $100. ;
format content $100.;
if upcase(scan(content,-1,'.'))='XPT';
run;
filename mydir clear;

libname MY 'S:\DATA';
data _null_;
set content;
length code $3000;
code1="LIBNAME XP XPORT 'S:\"||strip(content)||"';";
code2="PROC COPY IN=XP OUT=MY MEMTYPE=DATA;RUN;";
code=strip(code1)||strip(code2);
call execute(code);
run;

hxx10 发表于 2014-6-17 09:14
你好，想问下一个个是如何导入的，目前我还不会，按照上述的程序就可以吗？谢谢。

是的，一个个导入可以用顶楼的code

pobel 发表于 2014-6-17 10:00
楼主可以试一下：

LIBNAME MY "S:\DATA";

多谢多谢，我这就尝试下，因为project时间紧，我后来自己找到了一下code，确定可以批量导入。

1. %macro drive(dir,ext,out);                                                                                                                  
   
2.   %let filrf=mydir;                                                                                                                     
   
3.   %let rc= %sysfunc(filename(filrf,&dir));                                                                                                
   
4.   %let did= %sysfunc (dopen(&filrf));                                                                                                      
   
5.   %let memcnt= %sysfunc (dnum(&did));                                                                                                      
   
6.    %do i = 1 %to &memcnt;                                                                                                               
   
7.      %let name= %qscan (%qsysfunc (dread(&did,&i)),-1,.);                                                                                   
   
8.      %if %qupcase( %qsysfunc (dread(&did,&i))) ne %qupcase (&ext) %then %do ;                                                                  
   
9.      %if ( %superq(ext) ne and %qupcase (&name) = %qupcase (&ext)) or                                                                       
   
10.          ( %superq (ext) = and %superq (name) ne) %then %do;   
    
11.        libname old xport "&dir.\%qsysfunc(dread(&did,&i))" ;
    
12.              libname new "&out" ;
    
13.              proc copy in =old out=new;
    
14.              run ;
    
15.      %end;                                                                                                                              
    
16.    %end;
    
17.   %end;
    
18.   %let rc= %sysfunc(dclose(&did));                                                                                                        
    
19. %mend drive;  
    
20.   %drive(C:\your source folder\,xpt,C:\your destination folder\)

复制代码

再次感谢。

wwang111 发表于 2014-6-17 10:08
filename mydir pipe 'dir "S:\" /b';
data content;
infile mydir lrecl=300 truncover;

同样感谢，尽管最后用了上楼的code。

感觉好复杂啊。

xeon.chenzi 发表于 2014-6-30 10:20
多谢多谢，我这就尝试下，因为project时间紧，我后来自己找到了一下code，确定可以批量导入。再次感谢。
...

此 Code 非常好用，32个暂

wwang111 发表于 2014-6-17 10:08
filename mydir pipe 'dir "S:\" /b';
data content;
infile mydir lrecl=300 truncover;

这个宏程序超赞，谢谢！