数据合并疑问

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现有100只股票数据，命名形如：daysh600000，daysh600004...,daysz000001....，600000等是股票代码（id）;数据的结构都一样，内含变量，date,open,high,close等，但不含股票代码：
data daysh600000;
input date open hight low clsoe;
cards;
2011 29.5 29.8 27 27.75
;
run;

现在想请教，如何合并这些数据，新数据中包含股票代码？新的数据格式：
id date open high low close
600000 2011 29.5 29.8 27 27.75
600000 .... .... ... ... ....
600004 2011 7.72 8.56 7.69 8.25
...
敬请高手指点迷津。

扫码加我 拉你入群

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

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

分享1 收藏1 回帖

关键词：数据合并 Close cards Input days 股票代码 close 2011 命名 如何

spss 数据合并？

black小猪 发表于 2012-6-12 13:22
spss 数据合并？

sas里面

yugao1986 发表于 2012-6-12 16:01
sas里面

小鱼，你试试这个。思路：从DICTIONARY里取DATASET 名，生成宏。然后截取dataset 名，并分别添加 id变量，最后APPEND.

1. /* bulid test data set*/
   
2. data daysh600000;
   
3. input date open hight low clsoe;
   
4. cards;
   
5. 2011 29.5 29.8 27 27.75
   
6. ;
   
7. run;
   
8. 
   
9. data daysh600001;
   
10. input date open hight low clsoe;
    
11. cards;
    
12. 2012 29.5 29.8 27 27.75
    
13. ;
    
14. run;
    
15. 
    
16. 
    
17. /*macro for appending data set*/
    
18. options  symbolgen mprint mlogic;
    
19. 
    
20. 
    
21. %macro app(inlib);
    
22. proc sql;
    
23.   select  distinct memname  into : dslist separated by " "
    
24.   from sashelp.vcolumn
    
25.   where libname=%upcase(&inlib);  /*change it to ("&inlib") */
    
26. quit;
    
27. 
    
28. %let dslist=&dslist;
    
29. 
    
30.    %let i=1;
    
31.    %do %while(%scan(&dslist,&i) ne );
    
32.       %let ds=%scan(&dslist,&i);
    
33.        data &ds;
    
34.             id="&ds";
    
35.                 set  &ds;
    
36.         run;
    
37. 
    
38.         proc append base=all  data=&ds  force;
    
39.         run;
    
40.         %let i=%eval(&i+1);
    
41.         %put  %scan(&dslist,&i);
    
42.         %end;
    
43. %mend app;
    
44. 
    
45. /*test*/
    
46. %app(WORK);

复制代码

想问下这个100只股票数据不是批量导进来的么？
如果是批量导进来的，就可以直接获取数据集的名字了，然后再进行赋值，再合并就可以了，当然跟webgu大神的思路也是差不多一样的。。。

webgu 发表于 2012-6-12 16:19
小鱼，你试试这个。思路：从DICTIONARY里取DATASET 名，生成宏。然后截取dataset 名，并分别添加 id变量， ...

谢谢webgu兄，不过我这里提示报错：
最近在折腾这些，折腾A股，2000多条

yugao1986 发表于 2012-6-13 15:38
谢谢webgu兄，不过我这里提示报错：
最近在折腾这些，折腾A股，2000多条

1. /* bulid test data set*/
   
2. data daysh600000;
   
3. input date open hight low clsoe;
   
4. cards;
   
5. 2011 29.5 29.8 27 27.75
   
6. ;
   
7. run;
   
8. 
   
9. data daysh600001;
   
10. input date open hight low clsoe;
    
11. cards;
    
12. 2012 29.5 29.8 27 27.75
    
13. ;
    
14. run;
    
15. 
    
16. 
    
17. /*macro for appending data set*/
    
18. options  symbolgen mprint mlogic;
    
19. 
    
20. 
    
21. 
    
22. %macro app(inlib);
    
23. proc sql;
    
24.   select  distinct memname  into : dslist separated by " "
    
25.   from sashelp.vcolumn
    
26.   where libname=%upcase("&inlib");
    
27. quit;
    
28. 
    
29.   %let i=1;
    
30.    %do %while(%scan(&dslist,&i) ne );
    
31.       %let ds=%scan(&dslist,&i);
    
32.        data &ds;
    
33.             id="&ds";
    
34.                 set  &ds;
    
35.         run;
    
36. 
    
37.         proc append base=all  data=&ds  force;
    
38.         run;
    
39.         %let i=%eval(&i+1);
    
40.         %put  %scan(&dslist,&i);
    
41.         %end;
    
42. %mend app;
    
43. 
    
44. /*test: cation,do it only once*/
    
45. %app(WORK);

复制代码

yugao1986 发表于 2012-6-13 15:38
谢谢webgu兄，不过我这里提示报错：
最近在折腾这些，折腾A股，2000多条

宏里面差了个引号。

%app(WORK);
MLOGIC(APP):  Beginning execution.
MLOGIC(APP):  Parameter INLIB has value WORK
MPRINT(APP):   proc sql;
SYMBOLGEN:  Macro variable INLIB resolves to WORK
MPRINT(APP):   select distinct memname into : dslist separated by " " from sashelp.vcolumn where
libname="WORK";
MPRINT(APP):   quit;
NOTE: PROCEDURE SQL used (Total process time):
      real time           0.04 seconds
      cpu time            0.04 seconds


MLOGIC(APP):  %LET (variable name is DSLIST)
SYMBOLGEN:  Macro variable DSLIST resolves to DAYSH600000 DAYSH600001
MLOGIC(APP):  %LET (variable name is I)
SYMBOLGEN:  Macro variable DSLIST resolves to DAYSH600000 DAYSH600001
SYMBOLGEN:  Macro variable I resolves to 1
MLOGIC(APP):  %DO %WHILE(%scan(&dslist,&i) ne) loop beginning; condition is TRUE.
MLOGIC(APP):  %LET (variable name is DS)
SYMBOLGEN:  Macro variable DSLIST resolves to DAYSH600000 DAYSH600001
SYMBOLGEN:  Macro variable I resolves to 1
SYMBOLGEN:  Macro variable DS resolves to DAYSH600000
MPRINT(APP):   data DAYSH600000;
SYMBOLGEN:  Macro variable DS resolves to DAYSH600000
MPRINT(APP):   id="DAYSH600000";
SYMBOLGEN:  Macro variable DS resolves to DAYSH600000
MPRINT(APP):   set DAYSH600000;
MPRINT(APP):   run;

NOTE: There were 1 observations read from the data set WORK.DAYSH600000.
NOTE: The data set WORK.DAYSH600000 has 1 observations and 6 variables.
NOTE: DATA statement used (Total process time):
      real time           0.03 seconds
      cpu time            0.00 seconds


SYMBOLGEN:  Macro variable DS resolves to DAYSH600000
MPRINT(APP):   proc append base=all data=DAYSH600000 force;
MPRINT(APP):   run;

NOTE: Appending WORK.DAYSH600000 to WORK.ALL.
NOTE: BASE data set does not exist. DATA file is being copied to BASE file.
NOTE: There were 1 observations read from the data set WORK.DAYSH600000.
NOTE: The data set WORK.ALL has 1 observations and 6 variables.
NOTE: PROCEDURE APPEND used (Total process time):
      real time           0.17 seconds
      cpu time            0.03 seconds


MLOGIC(APP):  %LET (variable name is I)
SYMBOLGEN:  Macro variable I resolves to 1
MLOGIC(APP):  %PUT %scan(&dslist,&i)
SYMBOLGEN:  Macro variable DSLIST resolves to DAYSH600000 DAYSH600001
SYMBOLGEN:  Macro variable I resolves to 2
DAYSH600001
SYMBOLGEN:  Macro variable DSLIST resolves to DAYSH600000 DAYSH600001
SYMBOLGEN:  Macro variable I resolves to 2
MLOGIC(APP):  %DO %WHILE(%scan(&dslist,&i) ne) condition is TRUE; loop will iterate again.
MLOGIC(APP):  %LET (variable name is DS)
SYMBOLGEN:  Macro variable DSLIST resolves to DAYSH600000 DAYSH600001
SYMBOLGEN:  Macro variable I resolves to 2
SYMBOLGEN:  Macro variable DS resolves to DAYSH600001
MPRINT(APP):   data DAYSH600001;
SYMBOLGEN:  Macro variable DS resolves to DAYSH600001
MPRINT(APP):   id="DAYSH600001";
SYMBOLGEN:  Macro variable DS resolves to DAYSH600001
MPRINT(APP):   set DAYSH600001;
MPRINT(APP):   run;

NOTE: There were 1 observations read from the data set WORK.DAYSH600001.
NOTE: The data set WORK.DAYSH600001 has 1 observations and 6 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds


SYMBOLGEN:  Macro variable DS resolves to DAYSH600001
MPRINT(APP):   proc append base=all data=DAYSH600001 force;
MPRINT(APP):   run;

NOTE: Appending WORK.DAYSH600001 to WORK.ALL.
NOTE: There were 1 observations read from the data set WORK.DAYSH600001.
NOTE: 1 observations added.
NOTE: The data set WORK.ALL has 2 observations and 6 variables.
NOTE: PROCEDURE APPEND used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds


MLOGIC(APP):  %LET (variable name is I)
SYMBOLGEN:  Macro variable I resolves to 2
MLOGIC(APP):  %PUT %scan(&dslist,&i)
SYMBOLGEN:  Macro variable DSLIST resolves to DAYSH600000 DAYSH600001
SYMBOLGEN:  Macro variable I resolves to 3

SYMBOLGEN:  Macro variable DSLIST resolves to DAYSH600000 DAYSH600001
SYMBOLGEN:  Macro variable I resolves to 3
MLOGIC(APP):  %DO %WHILE() condition is FALSE; loop will not iterate again.
MLOGIC(APP):  Ending execution.

你input的时候用filename也可以的

data all;
length fn $100.;
length filename $100.;
infile 'path\*' delimiter=   filename=fn;
input ......;
id=scan(fn,2,'\');
run;
类似这种方法去输入数据文件，就直接合并了