关于批量导入XPT文件

xeon.chenzi

11113

收藏 2014-06-08

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

复制代码

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

多谢多谢！

扫码加我拉你入群

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

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

全部回复

hxx10

2014-6-17 09:14:23

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

扫码加我拉你入群

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

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

pobel

2014-6-17 10:00:17

楼主可以试一下：

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;

扫码加我拉你入群

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

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

wwang111

2014-6-17 10:08:38

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;

扫码加我拉你入群

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

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

xeon.chenzi

2014-6-30 10:14:31

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

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

扫码加我拉你入群

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

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

xeon.chenzi

2014-6-30 10:20:15

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

LIBNAME MY "S:\DATA";

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

复制代码

再次感谢。

扫码加我拉你入群

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

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

点击查看更多内容…

xeon.chenzi

2014-6-30 10:23:36

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

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

扫码加我拉你入群

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

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

xingls

2018-1-15 10:12:17

感觉好复杂啊。

扫码加我拉你入群

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

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

aiyjd211

2018-6-22 10:01:28

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

此 Code 非常好用，32个暂

扫码加我拉你入群

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

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

rochmusic

2021-5-24 06:54:35

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

这个宏程序超赞，谢谢！

扫码加我拉你入群

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

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

茶一白山

2022-10-21 10:40:27

我试了上面的方法都没有成功，但是综合了大家的智慧：
*********************简单粗暴****;

filename mydir pipe 'dir "E:\datasets\" /b';
data content;
length fname $13.;
infile mydir lrecl=300 truncover;
input fname $13.;
firname = scan(fname,1,'.');
if upcase(scan(fname,-1,'.'))='XPT';

run;
filename mydir clear;

libname MY "E:\me111\";

data _null_;
set content nobs=nobs;
length code $3000;
code1="filename XP 'E:\datasets\"||strip(fname)||"';";
code2="PROC cimport data=MY.baseline"||strip(firname)||" infile=XP;RUN;";
code=strip(code1)||strip(code2);
call execute(code);
run;

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群