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

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

为了能够及时跟踪证券市场的行情，证券分析师或者投资者需要及时“刷新”浏览器来检查各类报价。那么，如何以SAS系统为平台从互联网上直接获取证券报价？这里将通过一个简短的SAS程序和宏代码，展示如何基于SAS URL技术来检索广域或者局域网站的数据。这样，有兴趣的人们便可以基于SAS平台，通过数据分析来把握证券的实时走势了。
/*------------------------------------------------------------------*/
/* Ticker.sas – A Simple Stock Quote Retrieval Program */
/*------------------------------------------------------------------*/
filename in url
"http://finance.yahoo.com:80/d/quotes.txt?s=YHOO+IBM+HPQ&f=sl1d1t1c1ohgv&e=.txt)";
data;
infile in dsd end=eof termstr=crlf;
input Ticker : $4. Price TradeDate : $10. TradeTime: $7. Change Open High Low Volume;
options nodate nonumber nocenter ls=70;
proc print width=u;
title 'Stock Quotes';
id Ticker;
run;

/*-----------------------------------------------------------------------*/
/* TickerMacro.sas – Stock Quote Retrieval With Refresh     */
/*    Parameters:                                                            */
/*   SYMBOLS stock symbols                                             */
/*   SLEEP  seconds between stock quote refreshes             */
/*   MAX   number of times to refresh stock quotes              */
/*   OUT   sas data set name containing stock quotes          */
/*------------------------------------------------------------------------*/
%macro GetQuotes(Symbols=, Sleep=1, Max=10,Out=work.getquotes);
*--> Fetch Stock Quotes Specified Number Of Times;
%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 收藏61 回帖

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

哈哈，楼主的签名亮了

SAS URL技术不仅可用来接收股票报价  
做互联网的文本挖掘也是可以的

take a look and leave a mark!

页面保存下来，慢慢啃，感谢大神分享~~~
很有启示。。

louzhuqueshilihaia

感谢楼主

davil大，
在公司试了一下，报错：10060 - WSAETIMEDOUT.
查了一下，似乎是网络环境的问题，
能在SAS里设置访问网络的代理服务器吗？

complicated 发表于 2012-12-24 10:20
davil大，
在公司试了一下，报错：10060 - WSAETIMEDOUT.
查了一下，似乎是网络环境的问题，

    During a SAS 9.3 installation, a SAS environment URL dialog box might appear if the initial values are undefined.
    When this dialog box appears, enter values for the SAS environment URL settings. The values should be in the following form:
    http://hostname:port/SASLogon/sas-environment.xml
where hostname is the fully qualified hostname of yourPC, and port is the default port for your Web application server.
For example, the URL setting of my office PC is as following:
    http://pinggu-sas:7111/SASLogon/sas-environment.xml

哪中国股市的数据怎么获取呢，请指教。