这个其实不难，如果你用windows可能有点难道，但是用linux很简单的

可是我需要用windows下的SAS实现啊

data work.links_to_crawl;
   length url $256;
   input url $;
   datalines;

www.chinaclear.cn/main/03/0303/030305/1330417819770.htm
;
run;


%macro crawler();
   %let html_num = 1;

   data work.links_crawled;
      length url $256;
   run;

%next_crawl:
   /* pop the next url off */
   %let next_url = ;

   data work.links_to_crawl;
      set work.links_to_crawl;
      if _n_ eq 1 then call symput("next_url", url);
      else output;
   run;

   %let next_url = %trim(%left(&next_url));

   %if "&next_url" ne "" %then %do;

      %put crawling &next_url ... ;

      /* crawl the url */
      filename _nexturl url "&next_url";

      /* put the file we crawled here */
      filename htmlfile "file%trim(&html_num).html";

      /* find more urls */
      data work._urls(keep=url);
         length url $256 ;
         file htmlfile;
         infile _nexturl length=len;
         input text $varying2000. len;

         put text;

         start = 1;
         stop = length(text);

         if _n_ = 1 then do;
            retain patternID;
            pattern = '/href="([^"]+)"/i';
            patternID = prxparse(pattern);
         end;

         /* Use PRXNEXT to find the first instance of the pattern, */
         /* then use DO WHILE to find all further instances.       */
         /* PRXNEXT changes the start parameter so that searching  */
         /* begins again after the last match.                     */
         call prxnext(patternID, start, stop, text, position, length);
         do while (position ^= 0);
            url = substr(text, position+6, length-7);
            * put url=;
            output;
            call prxnext(patternID, start, stop, text, position, length);
         end;
      run;

      /* add the current link to the list of urls we have already crawled */
      data work._old_link;
         url = "&next_url";
      run;
      proc append base=work.links_crawled data=work._old_link;
      run;

      /* only add urls that we haven't already crawled or that aren't queued up to be crawled */
      proc sql noprint;
         create table work._append as
            select url
            from work._urls
            where url not in (select url from work.links_crawled)
                  and url not in (select url from work.links_to_crawl);
      quit;

      /* only add urls that are absolute (http://...) */
      data work._append;
         set work._append;
         absolute_url = substrn(url, 1, 7);
         put absolute_url=;
         if absolute_url eq "http://" ;
         drop absolute_url;
      run;

      /* add new links */
      proc append base=work.links_to_crawl data=work._append force;
      run;

      /* increment our file number */
      %let html_num = %eval(&html_num + 1);

      /* loop */
      %goto next_crawl;
   %end;

%mend crawler;

%crawler();

/*定时自动靠你们啦~不负责任的飘过*/

to:tattoo27
我运行之后，数据都为空

能分享一下用linux或者unix怎么实现么？谢谢！

matlab很轻松可以处理

+论坛币把，重赏之下，必有勇夫。

有代码有真相

data _null_;
   slept=wakeup('19:30:00't);
run;


你可以试试用sleep 或者用wakeup函数来控制启动程序，对于启动程序可以用下面这段代码

proc printto log  ="C:\sas_pgm\pgm06\log\log_&sysdate9..log"
              print ="C:\sas_pgm\pgm06\log\log_&sysdate9..lst" ;         quit;run;
  %include "C:\sas_pgm\pgm06\pgm\pgm06.sas";
proc printto ;run;

你要是每周运行的话就用一个死loop ，然后用intnx（“week”）来处理时间间隔问题。

这个能实现的，就是个抓取+定时任务就行了，具体可以加下我QQ1453724998，我告诉你