請(qǐng)問(wèn)如何用SAS提取網(wǎng)頁(yè)數(shù)據(jù)呢？

相似文件 換一批

是 否 +2 論壇幣

k人 參與回答

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

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

求職就業(yè)群

趙安豆老師微信：zhaoandou666

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

送您一個(gè)全額獎(jiǎng)學(xué)金名額~ !

立即領(lǐng)取

感謝您參與論壇問(wèn)題回答

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

+2 論壇幣

由于工作需要，想提取網(wǎng)頁(yè)中關(guān)于手機(jī)各項(xiàng)指標(biāo)的數(shù)據(jù)。找到以下程序，但是運(yùn)行不出來(lái)，請(qǐng)問(wèn)是怎么回事呢？
程序轉(zhuǎn)載至：http://saslist.com/elek/2010/09/15/%E9%80%9A%E8%BF%87-sas-%E8%AF%BB%E5%8F%96%E7%BD%91%E9%A1%B5%E5%86%85%E5%AE%B9/

1. filename readweb url %nrstr("http://detail.zol.com.cn/cell_phone_index/subcate57_list_s528_1.html") lrecl=60000;
   
2. 
   
3. data tmp;
   
4.         infile readweb lrecl=60000 dlm="><";
   
5.         retain flag 0;
   
6.         length title1 $ 20;
   
7.         if flag=0 then do;
   
8.                 title="手機(jī)名稱";
   
9.                 input @'id="proName_' @'>' content :$50. @@;
   
10.                 flag=1;
    
11.                 num+1;
    
12.                 if title="手機(jī)名稱" then title1="name";
    
13.                 output;
    
14.         end;
    
15.         input @'<dd class="tit_new">' title :$50. @;
    
16.         if title="上市日期" then do;
    
17.                 flag=0;
    
18.         end;
    
19.         input @'<dd class="con_new">' content :$50. @@;
    
20.         if scan(content,1,"=")="a href" then input content :$50. @@;
    
21.         if title="所屬系列" then title1="series";
    
22.         if title="操作系統(tǒng)" then title1="os";
    
23.         if title="手機(jī)類型" then title1="type";
    
24.         if title="網(wǎng)絡(luò)模式" then title1="net";
    
25.         if title="主屏尺寸" then title1="screen_size";
    
26.         if title="主屏色彩" then title1="screen_color";
    
27.         if title="觸摸屏：" then title1="screen_type";
    
28.         if title="攝像頭像" then title1="camera";
    
29.         if title="藍(lán)牙功能" then title1="bluetooth";
    
30.         if title="上市日期" then title1="date";
    
31.         output;
    
32.         drop flag;
    
33. run;
    
34. 
    
35. proc transpose data=tmp out=want(drop=_name_);
    
36.         var content;
    
37.         by num;
    
38.         id title1;
    
39. run;

復(fù)制代碼

預(yù)期結(jié)果應(yīng)該是：

掃碼加我 拉你入群

請(qǐng)注明：姓名-公司-職位

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

分享0 收藏1 回帖

關(guān)鍵詞：如何用 Bluetooth Transpose filename Content 網(wǎng)頁(yè) 如何