解决实际问题之批量导出股票数据集

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. /*批量输出命名规则的数据集*/
   
2. data stock;
   
3. retain code close date;
   
4. informat date yymmdd10.;
   
5. input code close date;
   
6. format date yymmdd10. code z6.;
   
7. cards;
   
8. 000001   10.2       2016-01-02
   
9. 000001   10.3       2016-01-03
   
10. 000001   10.7       2016-01-04
    
11. 000002   9.2        2016-01-02
    
12. 000002   9.3        2016-01-03
    
13. 000002   9.7        2016-01-04
    
14. 000004   8.2        2016-01-02
    
15. 000004   8.3        2016-01-03
    
16. 000004   8.7        2016-01-04
    
17. ;
    
18. /*如何通过编程把各自股票代码指定观测输出到各自的数据集中，
    
19. 最好比如以字母a开头，以股指代码为后缀形成数据集命名。
    
20. 例如上述数据集内容就要形成数据a000001、a000002、a000004。*/
    
21. 
    
22. /*解决方案一*/
    
23. proc sql noprint;
    
24. select count(distinct code)
    
25.       Into :N
    
26.       from stock;
    
27. select distinct code
    
28.       into :code1-:code%left(&N)  
    
29.       from stock;
    
30. quit;
    
31. 
    
32. %macro split;
    
33. %do i=1 %to &N;
    
34. data a&&code&i;
    
35. set stock;
    
36. if code="&&code&i" then output a&&code&i;
    
37. run;
    
38. proc export data=a&&code&i outfile = "D:\a&&code&i...csv"
    
39. dbms=csv replace;
    
40. putnames=yes;
    
41. run;
    
42. %end;
    
43. %mend split;
    
44. %split
    
45. 
    
46. /*附上其他大神的解决方案*/
    
47. /*解决方案二*/
    
48. proc sql;
    
49. select distinct code into:key separated by ' '
    
50. from stock;
    
51. quit;
    
52. 
    
53. %macro dist;
    
54. %do i=1 %to %sysfunc(countw(&key));
    
55. %let hat=%scan(&key,&i);               
    
56. data a&hat;
    
57. set stock;
    
58. where code="&hat";
    
59. run;
    
60. proc export outfile="D:\a&hat..csv" dbms=csv replace;
    
61. /*optional: export all these files */
    
62. run;
    
63. %end;
    
64. %mend;
    
65. %dist
    
66. 
    
67. /*解决方案三*/
    
68. proc sort data=stock;by code;run;
    
69. data stock1;set stock;by code;if first.code then num+1;run;
    
70. proc sql noprint;
    
71. select max(num) into:num  from stock1;
    
72. quit;
    
73. 
    
74. %macro exportfile(ds,n);
    
75.            %do i=1 %to &n;
    
76.               data a&i (drop=num);
    
77.                      set &ds;
    
78.                          where num=&i;
    
79.                   run;
    
80.                   proc sql noprint;
    
81.                     select distinct(code) into :filename from a&i;
    
82.           quit;
    
83.           %put &filename;
    
84.                   proc export data=a&i dbms=csv replace outfile="d:\a&filename..csv";
    
85.                   run;
    
86.            %end;
    
87. %mend exportfile;
    
88. %exportfile(stock1,&num);
    
89. 
    
90. /*解决方案四*/
    
91. proc sql;
    
92. create table list as
    
93. select distinct code from stock;
    
94. quit;
    
95. 
    
96. data _null_;
    
97. set list;
    
98. call execute('data a'||strip(code)||';
    
99. set stock;
    
100. where code='||quote(strip(code))||';
     
101. run;');
     
102. run;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：实际问题 股票数据 数据集 proc sql Distinct