求助：有没有大大会用filename下载网络数据的啊？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

想从网上下基金的历史数据，比如***上的数据
http://funds.money.hexun.com/fundsdata/open/summarize/data2.aspx?code=000001

我找到了下面这样的用于下载网络数据的代码
        /* 从yahoo.com读取股票行情数据*/
　　%macro quotes (code=, start=, end=, prompt=NO);
　　%local code start end;
　　%local s _start _end a b c d e f g url;
　　%if (%superq(code) eq ) %then %let code=000001.SZ;
　　%let code = %upcase (&code);
　　%if (%superq(end) eq )
　　%then %let end = %sysfunc(today(),mmddyy8);
　　%if (%superq(start) eq ) %then %do;
　　%let start = %sysfunc(inputn(&end,mmddyy8.));
　　%let start = %eval (&start-30);
　　%let start = %sysfunc(putn(&start,mmddyy8.));
　　%end;
　　%if (%upcase(&prompt) eq YES) %then %do;
　　%window quotes rows=12 columns=30
　　[email=#2@2]#2@2[/email] "code: " code 4 c=blue a=rev_video
　　[email=#4@2]#4@2[/email] "Start: " start 8 c=blue a=rev_video
　　[email=#6@2]#6@2[/email] "End: " end 8 c=blue a=rev_video
　　;
　　%display quotes;
　　%end;
　　%let code = %upcase (&code);
　　%if (%superq(end) eq )
　　%then %let _end = %sysfunc(today());
　　%else %let _end = %sysfunc(inputn(&end ,mmddyy10.));
　　%if (%superq(start) eq )
　　%then %let _start = %eval (&_end-30);
　　%else %let _start = %sysfunc (inputn(&start,mmddyy10.));
　　%let s = &code;
　　%let a = %sysfunc (month(&_start)); %let a=%eval(&a-1);
　　%let b = %sysfunc (day (&_start));
　　%let c = %sysfunc (year (&_start));
　　%let d = %sysfunc (month(&_end)); %let d=%eval(&d-1);
　　%let e = %sysfunc (day (&_end));
　　%let f = %sysfunc (year (&_end));
　　%let g = d;
　　%let and = %str(&);
　　%let url = http://ichart.finance.yahoo.com/table.csv;
　　%let url = &url.?s=&s;
　　%let url = &url.&and.a=&a.&and.b=&b.&and.c=&c;
　　%let url = &url.&and.d=&d.&and.e=&e.&and.f=&f;
　　%let url = &url.&and.g=&g;
　　%let url = &url.&and.ignore=.csv;
　　%put &url;
　　filename quotes URL "&url";
　　data stockquotes;
　　infile quotes dlm=",";
　　retain code "&code";
　　if _n_ = 1 then input; * skip header row;
　　input date date9. opening highest lowest closing volume;
　　format date yymmdd10.;
　　format volume comma11.;
　　run;
　　%bye:
　　%mend;
　　/*
　　调用格式如:
　　%quotes (code=aol, prompt=YES);
　　%quotes (code=000001.SZ, start=4/1/00, end=4/10/2000);
　　其中:code为股票代码,美国股票代码不用加后缀,深市代码后加.SZ,沪市代码后加.SS,如000001.SZ为深发展代码,
　　详见http://finance.yahoo.com/l
　　start和end分别为起止日期,格式为mm/dd/yyyy
　　prompt:是否弹出窗口输入上述参数
　　ps. 沪深股票行情数据好象每次最多只能下载200个记录.
　　*/
　　%quotes (code=000001.SZ, start=1/1/2000, end=9/30/2005);

【【【【【【上面是转的，原来的链接是：本文章转自[聚享在线] 原文地址链接：http://www.510050.com/Article/txyj/201105/74759.shtml】】】】】】我就不处理了，对得起原著

我差不多知道最有用的是
filename quotes URL "&url";
　　data stockquotes;
　　infile quotes dlm=",";
　　retain code "&code";
　　if _n_ = 1 then input; * skip header row;
　　input date date9. opening highest lowest closing volume;
　　format date yymmdd10.;
　　format volume comma11.;
　　run;
　　%bye:
　　%mend;
这一段。而这一段中的filename的用法，特别是对于网络数据的用法，更特别的是对***上的这个数据的用法，有没有大大可以指导一下啊？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：filename name file ENA 有没有 股票行情 quotes local start 网络

发现自己已经基本看懂了，就是不了解为什么要用retain。

1. %let url = http://funds.money.hexun.com/fundsdata/open/summarize/data2.aspx?code=000001;
   
2. %let code = %scan(&url,2,'=');
   
3. 
   
4. filename raw url "&url";
   
5. 
   
6. data temp;
   
7.   infile raw length=len lrecl=5000;
   
8.   input x $varying5000.len;
   
9. run;
   
10. 
    
11. data temp2;
    
12.   set temp;
    
13.   retain code pattern_id ;
    
14.   if _n_ = 1 then do;
    
15.     code = &code;
    
16.         pattern_id = prxparse("#(\d{4}-\d{2}-\d{2}|\d\.\d{4})</td>$#");
    
17.   end;
    
18.   if prxmatch(pattern_id,strip(x));
    
19.   call prxposn(pattern_id,1,start,length);
    
20.   y = substrn(x,start,length);
    
21.   keep code y;
    
22. run;
    
23. 
    
24. data final;
    
25.   set temp2;
    
26.   retain date unit_value cum_value;
    
27.   format code Z6. date yymmdd10. unit_value cum_value 8.4;
    
28.   if mod(_n_,3) = 1 then date = input(y,yymmdd10.);
    
29.   else if mod(_n_,3) = 2 then unit_value = input(y,8.);
    
30.   else if mod(_n_,3) = 0 then do;
    
31.     cum_value = input(y,8.);
    
32.         output;
    
33.   end;
    
34.   drop y;
    
35. run;

复制代码

谢谢你啊。很厉害。

3# guoluo
一直提示说找不到那个网站
ERROR: Hostname funds.money.hexun.com not found.
不知道是什么原因。

我刚run了一遍没问题
NOTE: The infile RAW is:
      Filename=http://funds.money.hexun.com/fundsdata/open/summarize/data2.aspx?code=000001,
      Local Host Name=cs3,
      Local Host IP addr=172.16.2.227,
      Service Hostname Name=wangzhan-money-cnc.cdn.hexun.com,
      Service IP addr=60.28.251.193,
      Service Name=httpd,Service Portno=80,

6# guoluo
谢谢你，应该是我sas的问题。在别人电脑上运行是没有问题的。