基于SAS平台从互联网上获取证券报价

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

      为了能够及时跟踪证券市场的行情，证券分析师或者投资者需要及时“刷新”浏览器来检查各类报价。

      那么，如何以SAS系统为平台从互联网上直接获取证券报价？这里将通过一个简短的SAS程序和宏代码，展示如何基于SAS URL技术来检索广域或者局域网站的数据。

      这样，有兴趣的人们便可以基于SAS平台，通过数据分析来把握证券的实时走势了。

1. /*------------------------------------------------------------------*/
   
2. /* Ticker.sas – A Simple Stock Quote Retrieval Program */
   
3. /*------------------------------------------------------------------*/
   
4. filename in url
   
5. "http://finance.yahoo.com:80/d/quotes.txt?s=YHOO+IBM+HPQ&f=sl1d1t1c1ohgv&e=.txt)";
   
6. data;
   
7. infile in dsd end=eof termstr=crlf;
   
8. input Ticker : $4. Price TradeDate : $10. TradeTime: $7. Change Open High Low Volume;
   
9. options nodate nonumber nocenter ls=70;
   
10. proc print width=u;
    
11. title 'Stock Quotes';
    
12. id Ticker;
    
13. run;
    
14. 
    
15. /*-----------------------------------------------------------------------*/
    
16. /* TickerMacro.sas – Stock Quote Retrieval With Refresh     */
    
17. /*    Parameters:                                                            */
    
18. /*   SYMBOLS stock symbols                                             */
    
19. /*   SLEEP  seconds between stock quote refreshes             */
    
20. /*   MAX   number of times to refresh stock quotes              */
    
21. /*   OUT   sas data set name containing stock quotes          */
    
22. /*------------------------------------------------------------------------*/
    
23. %macro GetQuotes(Symbols=, Sleep=1, Max=10,Out=work.getquotes);
    
24. *--> Fetch Stock Quotes Specified Number Of Times;
    
25. %do i=1 %to &max;

复制代码

filename in url "http://finance.yahoo.com:80/d/quotes.txt?s=&symbols.&f=sl1d1t1c1ohgv&e=.txt)"; *--> Retrieve Stock Quotes From Yahoo; data; infile in dsd end=eof termstr=crlf; input Ticker : $4. Price TradeDate : $10. TradeTime: $7. Change Open Hi Lo Volume; AsOf=put(today(),yymmdd10.)||' At '|| put(time(),time8.); *--> Add Stock Quotes To SAS Data Set; proc append base=&out data=_last_; options nodate nonumber nocenter ls=70 ps=1000; *--> Produce Cumulative Stock Quote Comparison Report; proc tabulate data=GetQuotes; Title Stock Quotes By Ticker; class Ticker AsOf TradeDate TradeTime; var Price Change; tables Ticker*AsOf*TradeDate*TradeTime, (Price Change)*f=7.2 / rts=50; keylabel sum=' '; *--> Pause Specified Number Of Seconds Between Refreshes; data; %if &i<=&max %then x=sleep(&sleep);; run; %end; %mend; /* Get Quotes For Yahoo, IBM, and Hewlett Packard Wait 5 Minutes (300 */ /* Seconds) Before Refreshing Stock Quotes Refresh Quotes 36 Times    */ /*%GetQuotes(Symbols=YHOO+IBM+HPQ, Sleep=300, Max=36);*/ %GetQuotes(Symbols=YHOO+IBM+HPQ, Sleep=10, Max=5); 复制代码

/* 看官，请点击帖子左下角的“评分”给点鼓励吧！ */

扫码加我 拉你入群

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

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

分享6 收藏59 回帖

关键词：SAS平台 互联网 parameters Comparison cumulative 报价 SAS 证券 报价 SAS 证券

楼主很强大，赞！

好帖，感谢分享，签名很赞！