关于批量导入txt文档的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我现在在一个文件夹中批量读入txt文档，代码如下：
%let dirs=C:\Documents and Settings\Administrator\桌面\stock;  

%macro get_filenames(location);
filename _dir_ "%bquote(&location.)";
data filenames(keep=memname tmp);
  handle=dopen( '_dir_' );
  if handle > 0 then do;
    count=dnum(handle);
    do i=1 to count;
      tmp=i;
      tmp=Tranwrd(tmp," ","");
      memname=dread(handle,i);
      output filenames;
    end;
  end;
  rc=dclose(handle);
run;
filename _dir_ clear;
%mend;
%get_filenames(&dirs);  
data filename;
set filenames;
name=substr(MEMNAME,1,8);
keep tmp name ;
rename TMP=id NAME=stockid;
label TMP=id NAME=stockid;
run;
data filename;
  set filename;
  format stocknum $20.;
  stocknum="stock"||strip(id);
  call symput(stocknum,stockid);
run;

以上是设置宏变量，

%macro recycle;
%do i=1 %to 1000;
proc import out=&&stock&i
  datafile="E:\stock\&&stock&i..txt"
  dbms=tab replace;
  getnames=yes;
run;
%end;
%mend;
%recycle;

以上是批量读入。但是结果报错：ERROR: File Name value exceeds maximum length of 201 characters.
事实上我的文件名没有那么长啊，求解！！！

扫码加我 拉你入群

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

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

分享1 收藏0 回帖

关键词：批量导入 txt Characters documents Character Documents 文件夹 count

%macro directory(dir=);
%let rs=%sysfunc(filename(filref,&dir));
%let did=%sysfunc(dopen(&filref));
%let nobs=%sysfunc(dnum(&did));
%do i=1 %to &nobs.;
    %let name=%qscan(%qsysfunc(dread(&did,&i)),1,.);
    %let ext=%qscan(%qsysfunc(dread(&did,&i)),-1,.);
    proc import out=a&i. datafile="&dir.\&name..&ext" dbms=tab replace;
        getnames=no;
        datarow=2;
                delimiter='|*|';
    run;
%end;
%let rc=%sysfunc(dclose(&did));
%mend;
%directory(dir=C:\Documents and Settings\kfzx\桌面\数据);

这段代码可实现。

liuyingbei 发表于 2012-4-27 16:57
%macro directory(dir=);
%let rs=%sysfunc(filename(filref,&dir));
%let did=%sysfunc(dopen(&filref)) ...

十分感谢各位的帮忙

liuyingbei 发表于 2012-4-27 16:57
%macro directory(dir=);
%let rs=%sysfunc(filename(filref,&dir));
%let did=%sysfunc(dopen(&filref)) ...

我利用SAS导入excel表格，如果excel表格没有打开，导入数据就会报错：ERROR: Connect: 外部表不是预期的格式；ERROR: LIBNAME 语句出错
但是我表格打开来了就行了，我本来以为是SAS原因我把ＳＡＳ卸载了重新安装还是不行。之前都是可以的，这种现象也是突发性的，我就是在练习批量导入表格的时候产生的。

mkj_2009 发表于 2012-5-2 16:10
我利用SAS导入excel表格，如果excel表格没有打开，导入数据就会报错：ERROR: Connect: 外部表不是预期的格 ...

这段代码是批量导入txt格式的代码。如果需要导入excel，你小改下。