SAS宏应用2-万能批量数据导入程序(EXCE-TXT-CSV)

《SAS宏应用2-万能批量数据导入程序(EXCE-TXT-CSV)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、*****读取一个文件夹下命名无规则的多个excel文档*********;%MACROGetFileName(DSNAME=,ROUTE=,TYP=);/*参数有两个：路径，文件类型后缀*/%PUT%STR(----------->DIRNAME=&ROUTE);%PUT%STR(----------->TYP=&TYP);DATAWORK.&DSNAME;RC=FILENAME("DIR","&ROUTE");/*把&DIRNAME值传给文件引用符“DIR"*/OPENFILE=DOPEN("DIR");/*得到路径标示符OPENFILE，DO

2、PEN是打开directory的sas内置函数*/IFOPENFILE>0THENDO;/*如果OPENFILE>0表示正确打开路径*/NUMMEM=DNUM(OPENFILE);/*得到路径标示符OPENFILE中member的个数nummem*/DOII=1TONUMMEM;NAME=DREAD(OPENFILE,II);/*用DREAD依次读取每个文件的名字到NAME*/OUTPUT;/*依次输出*/END;END;KEEPNAME;/*只保留NAME列*/RUN;PROCSORTdata=WORK.&DSNAME;;/*按照NAME排序*/

3、BYDESCENDINGNAME;%IF&TYP^=ALL%THEN%DO;/*是否过滤特定的文件类型&TYP*/WHEREINDEX(UPCASE(NAME),UPCASE(".&TYP"));/*Y,则通过检索NAME是否包含&TYP的方式过滤文件类型*/%END;RUN;%MENDGetFileName;%GetFileName(DSNAME=FILE,ROUTE=F:服务器数据挖掘数据堂-数据挖掘竞赛数据集Databehavior2012-05-07,TYP=TXT);************读取同一个excel文档里面命名无规

4、则的多个工作表****************;/*去百度原文标题“SAS批量导入EXCEL中数据”的文章，可以看到程序解释*/%letdir=F:SASshumo_miss;%macroReadXls(name);libnameexcellibexcel"&dir.&name";procsqlnoprint;/*创建表sheetname*/createtablesheetnameasselecttranwrd(memname,"''","'")assheetnamefromsashelp.vstabvwwherelibname="EXCEL

5、LIB";selectcount(DISTINCTsheetname)into:number/*提取excel文件中的sheet表的数量*/fromsheetname;selectDISTINCTsheetnameinto:sheet1-:sheet%left(&number)/*把每个表都指定到相应的宏中*/fromsheetname;quit;%put&number;libnameexcellibclear;%doi=1%to&number.;procimportdatafile="&dir.&name"out=sheet&ireplace;s

6、heet="&&sheet&i";getnames=yes;mixed=yes;run;/*表汇总，如果有表格式不统一的话，可以不汇总，要不然数据会出问题*/procappendbase=masterdata=sheet&i.force;run;%end;%mendReadXls;%ReadXls(no_hege.xls);*********逐个对数据集中的变量进行运算***********************;/*proccontents过程是了解一个数据集的属性，包括这个数据集的系统信息，变量属性等。*/optionsmprintmlogi

7、c;proccontentsdata=sashelp.classnoprintout=class_variable;run;dataclass_variable;setclass_variable;wheretype=1;/*1代表数值型变量，0代表字符型变量*/keepNAME;run;%macroDsVar;%letdsid=%sysfunc(open(class_variable));%if&dsidgt0%then%do;%letnobs=%sysfunc(attrn(&dsid,nobs));/*计算数据集行数，如果需要计算列数则把nob

8、s换为nvars*/%doi=1%to&nobs;%letrc=%sysfunc(fetchobs(&dsid,&i));