基于SAS平台从互联网上获取证券报价-经管之家官网！

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

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

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP