求助：有沒有大大會用filename下載網(wǎng)絡(luò)數(shù)據(jù)的啊？

是 否 +2 論壇幣

k人 參與回答

經(jīng)管之家送您一份

應(yīng)屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經(jīng)管之家聯(lián)合CDA

送您一個全額獎學(xué)金名額~ !

立即領(lǐng)取

感謝您參與論壇問題回答

經(jīng)管之家送您兩個論壇幣！

+2 論壇幣

想從網(wǎng)上下基金的歷史數(shù)據(jù)，比如***上的數(shù)據(jù)
http://funds.money.hexun.com/fundsdata/open/summarize/data2.aspx?code=000001

我找到了下面這樣的用于下載網(wǎng)絡(luò)數(shù)據(jù)的代碼
        /* 從yahoo.com讀取股票行情數(shù)據(jù)*/
　　%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;
　　/*
　　調(diào)用格式如:
　　%quotes (code=aol, prompt=YES);
　　%quotes (code=000001.SZ, start=4/1/00, end=4/10/2000);
　　其中:code為股票代碼,美國股票代碼不用加后綴,深市代碼后加.SZ,滬市代碼后加.SS,如000001.SZ為深發(fā)展代碼,
　　詳見http://finance.yahoo.com/l
　　start和end分別為起止日期,格式為mm/dd/yyyy
　　prompt:是否彈出窗口輸入上述參數(shù)
　　ps. 滬深股票行情數(shù)據(jù)好象每次最多只能下載200個記錄.
　　*/
　　%quotes (code=000001.SZ, start=1/1/2000, end=9/30/2005);

【【【【【【上面是轉(zhuǎn)的，原來的鏈接是：本文章轉(zhuǎn)自[聚享在線] 原文地址鏈接：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的用法，特別是對于網(wǎng)絡(luò)數(shù)據(jù)的用法，更特別的是對***上的這個數(shù)據(jù)的用法，有沒有大大可以指導(dǎo)一下�。�

掃碼加我 拉你入群

請注明：姓名-公司-職位

以便審核進(jìn)群資格，未注明則拒絕

分享0 收藏1 回帖

關(guān)鍵詞：filename name file ENA 有沒有 股票行情 quotes local start 網(wǎng)絡(luò)

發(fā)現(xiàn)自己已經(jīng)基本看懂了，就是不了解為什么要用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;

復(fù)制代碼

謝謝你啊。很厲害。

3# guoluo
一直提示說找不到那個網(wǎng)站
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
謝謝你，應(yīng)該是我sas的問題。在別人電腦上運行是沒有問題的。