- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 12694 个
- 通用积分
- 7.4645
- 学术水平
- 571 点
- 热心指数
- 573 点
- 信用等级
- 476 点
- 经验
- 19687 点
- 帖子
- 802
- 精华
- 0
- 在线时间
- 594 小时
- 注册时间
- 2008-7-22
- 最后登录
- 2019-4-20
|
- /* try this one, you may need to use your file folder, and make some changes */
- data _null_;
- length ds ds_ $6000.;
- ds = ' '; ds_ = ' ';
- do date = '01jan2013'd to '05jan2013'd;
- ds_ = cats(ds_, put(year(date), 4.), '_', put(month(date), z2.), '_', put(day(date), z2.), ', ');
- ds = cats(ds, put(year(date), 4.), put(month(date), z2.), put(day(date), z2.), ', ');
- end;
- call symput('ds', ds);
- call symput('ds_', ds_);
- run;
- %put &ds;
- %put &ds_;
- %macro Aninput;
- %do i = 1 %to 5;
- %let dname =%scan(%BQUOTE(&ds), %eval(&i), ",");
- %let dname_=%scan(%BQUOTE(&ds_), %eval(&i), ",");
-
- data d&dname;
- infile "F:\MySAS\Temp\&dname..txt" ;
- input name $ age specialty $ date yymmdd10. ;
- run;
- data d&dname_;
- infile "F:\MySAS\Temp\&dname_..txt" ;
- input name $ age specialty $ date yymmdd10. ;
- run;
- proc append base=ALL data=d&dname;
- run;
-
- proc append base=ALL_ data=d&dname_;
- run;
- %end;
- %mend;
- %Aninput
复制代码
|
-
总评分: 学术水平 + 1
热心指数 + 1
信用等级 + 1
查看全部评分
|