求助：哪位大大會用SAS下載網(wǎng)頁查詢數(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ù)，比如
http://www.ctgpc.com.cn/inc/sqsk.php
從網(wǎng)上找到類似代碼：
源自本壇http://xalimeijing.com/thread-1118208-1-1.html

%let url = http://funds.money.hexun.com/fun ... 2.aspx?code=000001;
%let code = %scan(&url,2,'=');

filename raw url "&url";

data temp;
  infile raw length=len lrecl=5000;
  input x $varying5000.len;
run;

data temp2;
  set temp;
  retain code pattern_id ;
  if _n_ = 1 then do;
    code = &code;
        pattern_id = prxparse("#(\d{4}-\d{2}-\d{2}|\d\.\d{4})</td>$#");
  end;
  if prxmatch(pattern_id,strip(x));
  call prxposn(pattern_id,1,start,length);
  y = substrn(x,start,length);
  keep code y;
run;

data final;
  set temp2;
  retain date unit_value cum_value;
  format code Z6. date yymmdd10. unit_value cum_value 8.4;
  if mod(_n_,3) = 1 then date = input(y,yymmdd10.);
  else if mod(_n_,3) = 2 then unit_value = input(y,8.);
  else if mod(_n_,3) = 0 then do;
    cum_value = input(y,8.);
        output;
  end;
  drop y;
run;



非常感謝guoluo提供的代碼，希望guoluo能繼續(xù)解答。跪拜ing

掃碼加我 拉你入群

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

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

分享0 收藏4 回帖

關(guān)鍵詞：PrxMatch filename Pattern RXPARSE varying 查詢 下載 網(wǎng)頁

同求，用post得到網(wǎng)頁的數(shù)據(jù)。

http://support.sas.com/resources ... ings12/121-2012.pdf
https://groups.google.com/forum/ ... sys.sas/B3WHINEgsrY

鄧貴大 發(fā)表于 2013-6-4 12:18
http://support.sas.com/resources/papers/proceedings12/121-2012.pdf
https://groups.google.com/forum/ ...

謝謝。但是網(wǎng)頁打不開？需要翻墻嗎

swu350407 發(fā)表于 2013-6-11 23:58
謝謝。但是網(wǎng)頁打不開？需要翻墻嗎

謝謝�？梢韵螺d了

鄧貴大 發(fā)表于 2013-6-4 12:18
http://support.sas.com/resources/papers/proceedings12/121-2012.pdf
https://groups.google.com/forum/ ...

謝謝，可以下載。但是論壇還是打不開

鄧貴大 發(fā)表于 2013-6-4 12:18
http://support.sas.com/resources/papers/proceedings12/121-2012.pdf
https://groups.google.com/forum/ ...

用x “curl http://...."會出錯？是不是9.3不支持？

cURL is a 3rd party utility that needs to be installed.
http://curl.haxx.se/download.html
With cURL, it's just as easy as

1. filename curl pipe 'curl -d NeedCompleteTime2=20111111 http://www.ctg.com.cn/inc/sqsk.php';
   
2. 
   
3. data _null_;
   
4.         infile curl;
   
5.         input;
   
6.         put _infile_;
   
7. run;

復(fù)制代碼

Substitute 20111111 with any date you may want.

鄧貴大 發(fā)表于 2013-6-12 02:01
cURL is a 3rd party utility that needs to be installed.
http://curl.haxx.se/download.html
With cUR ...

非常感謝您的指點。

swu350407 發(fā)表于 2013-6-12 22:12
非常感謝您的指點。

Sorry I goofed. There's actually a PROC HTTP been added since SAS 9.2.
So you don't need cURL any more.
http://support.sas.com/documenta ... un1ru90xy4s36oa.htm

1. filename in "in.txt";
   
2. filename out "out.txt";
   
3. data _null_;
   
4.    file in;
   
5.    input;
   
6.    put _infile_;
   
7. datalines4;
   
8. NeedCompleteTime2=2011-11-11
   
9. ;;;;
   
10. 
    
11. proc http in=in out=out url="http://www.ctg.com.cn/inc/sqsk.php"
    
12.      method="post" ct="application/x-www-form-urlencoded";
    
13. run;

復(fù)制代碼

If you don't have SAS 9.2+, here's a vanilla version

1. filename REMOTE socket "www.ctg.com.cn:80" termstr=LF;
   
2. data _null_;
   
3.         infile REMOTE;
   
4.         file REMOTE;
   
5.         name_value_pairs = 'NeedCompleteTime2=2011-11-11';
   
6.         len = length (name_value_pairs);
   
7.         put
   
8.                 "POST /inc/sqsk.php HTTP/1.1"
   
9.                 / "Host: www.ctg.com.cn"
   
10.                 / "Content-Length: " len
    
11.                 / "Content-Type: application/x-www-form-urlencoded"
    
12.                 // name_value_pairs
    
13.                 /
    
14.                 ;
    
15.         file 'out.txt';
    
16.         putlog / '---- RESPONSE ----' /;
    
17.         do until(index(lowcase(_infile_), '</html>'));
    
18.             input;
    
19.             put _infile_;
    
20.         end;
    
21.         stop;
    
22. run;

復(fù)制代碼