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

davil2000

25829

113

收藏 2012-12-22

为了能够及时跟踪证券市场的行情，证券分析师或者投资者需要及时“刷新”浏览器来检查各类报价。那么，如何以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);

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

扫码加我拉你入群

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

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

全部回复

guo.bailing

2012-12-22 12:11:25

哈哈，楼主的签名亮了

扫码加我拉你入群

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

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

大数据之魂

2012-12-23 08:44:11

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

扫码加我拉你入群

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

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

瀚海星云

2012-12-23 13:33:28

take a look and leave a mark!

扫码加我拉你入群

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

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

Tigflanker

2012-12-23 23:42:37

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

扫码加我拉你入群

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

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

石瑞

2012-12-24 10:06:00

louzhuqueshilihaia

扫码加我拉你入群

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

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

点击查看更多内容…

浅水蛟龙

2012-12-24 10:16:50

感谢楼主

扫码加我拉你入群

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

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

complicated

2012-12-24 10:20:57

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

扫码加我拉你入群

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

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

davil2000

2012-12-24 10:29:55

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

扫码加我拉你入群

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

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

xlpan

2012-12-24 10:41:24

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

扫码加我拉你入群

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

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

davil2000

2012-12-24 10:47:57

xlpan 发表于 2012-12-24 10:41
哪中国股市的数据怎么获取呢，请指教。

Of course, you can find the appropriate URLs of security quotes by some HTTP sniffer softwares such as EffeTech HTTP Sniffer v4.x .

扫码加我拉你入群

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

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

wanwanle2

2012-12-24 11:07:03

LZ只能好啊，我一直在研究这个问题，谢谢了

扫码加我拉你入群

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

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

wanwanle2

2012-12-24 11:07:53

真好

扫码加我拉你入群

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

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

davil2000

2012-12-24 11:40:34

wanwanle2 发表于 2012-12-24 11:07
LZ只能好啊，我一直在研究这个问题，谢谢了

I have once tried to build a data interface by BASE SAS for Future & Security exchanges in the form of direct access but not URL. Always alone......no results

扫码加我拉你入群

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

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

complicated

2012-12-24 11:47:00

davil2000 发表于 2012-12-24 10:29
During a SAS 9.3 installation, a SAS environment URL dialog box might appear if the initial va ...

Thanks! However, I can access to the xml file, office setting failed, but I will try home vision later.
Anyway, very interesting and attractive stuff, keep following.