请高手优化一下，谢谢

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

data list ;
filename chns pipe  'dir  F:\课程科研\UNC-CHNS\c89.0896/b';
length name $20.
dirname $90.;
infile chns truncover;
input name $30.;
dirname=quote('F:\课程科研\UNC-CHNS\c89.0896\'||name);
obs=_n_;
proc sql noprint;
select count(*) as num into:number from list;
%chns(&number);
run;
%macro chns (num);
%do i=1 %to #
proc sql noprint;
libname chns  'e:\sandai';
libname chns1 'e:\sandai1';
select dirname into:dir from list where obs=&i.;
libname chns1 xport &dir;
proc copy in=chns1 out=chns;
run;
%end;
%mend chns;
我想把文件路径作为参数 F:\课程科研\UNC-CHNS\c89.0896
如何做呢
谢谢各位高手了

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：truncover proc sql filename libname Number

楼主是不是要把 F:\课程科研\UNC-CHNS\c89.0896 下所有文件夹及其中SAS对象迁入 'e:\sandai' ？

是吧XPT文件转成SAS可以直接打开的格式罢了

1. %let Pth_Nme=E:\TEST\;
   
2. 
   
3. filename chns pipe  "dir  &Pth_Nme /b";
   
4. 
   
5. data list ;
   
6. length name $20.
   
7. dirname $90.;
   
8. infile chns truncover;
   
9. input name $30.;
   
10. dirname="&Pth_Nme"||name;
    
11. code="libname chns1 xport "||compress("'"||dirname||"'")||";proc copy in=chns1 out=chns;run;";
    
12. file "E:\1.sas";
    
13. put code;
    
14. run;
    
15. 
    
16. 
    
17. libname chns  'e:\a1';
    
18. %include "E:\1.sas";

复制代码

没认真测。
路径参数化掉了，代码路径没做，可以改

源代码那个循环查询生成路径变量是慢的主要原因，这个办法有点傻，但是很好用