如何设定日期间隔标记

sniperhgy 发表于 2014-10-30 12:33
楼主你好，我也写了一段，请试试看：

你这个  太高端了  完全看不懂   有时间的话请给解释一下

小鳄鱼a 发表于 2014-10-30 21:32
你这个  太高端了  完全看不懂   有时间的话请给解释一下

额……，高端……，好吧，我加上注释了：

1. /* 声明一个不生成数据集的data部 */
   
2. data _null_;
   
3.   /* 创造一个变量，长度200 */
   
4.   format obs_list $200.;
   
5.   /* 引用temp，将eof作为文件到位部的标志 */
   
6.   set temp end = eof;
   
7.   /* 初始化obs_list，赋初值“” */
   
8.   retain obs_list "";
   
9.   /* 当pubdate等于0时，则…… */
   
10.   if pubdate = 0 then
    
11.     /* 拼接当前行号到obs_list里面去 */
    
12.     obs_list = strip(obs_list) || strip(_N_) || strip(",") ;
    
13. 
    
14.   /* 当到达temp的末尾，则…… */
    
15.   if eof then
    
16.     /* 将obs_list里面的内容放到宏变量obs_list里面去 */
    
17.     call symput("obs_list", substr(strip(obs_list), 1, length(strip(obs_list)) - 1));
    
18. /* data部结束必须写…… */
    
19. run;
    
20. 
    
21. %put &obs_list.;
    
22. 
    
23. /* 创建数据集wanted */
    
24. data wanted;
    
25.   /* 引用temp */
    
26.   set temp;
    
27.   /* 初始化iCurrent，赋初值1 */
    
28.   retain iCurrent 1;
    
29. 
    
30.   /* 如果当前行的_N_减去obs_list中的第iCurrent个值的绝对值小于等于5，则…… */
    
31.   if abs(_N_ - scan("&obs_list.", iCurrent, ",")) <= 5 then do;
    
32.     /* 计算w的值 */
    
33.     w = _N_ - scan("&obs_list.", iCurrent, ",");
    
34.     /* 当w的值等于5，则…… */
    
35.     if w = 5 then do;
    
36.       /* obs_list里面的行号需要移动到下一个了，所以将iCurrent+1，这样scan的时候，就可以取得下一值*/
    
37.       iCurrent = iCurrent + 1;
    
38.     /* 和if w = 5 then do; 配套的，不写出错*/
    
39.     end;
    
40.   /* 和if abs(_N_ - scan("&obs_list.", iCurrent, ",")) <= 5 then do; 配套的，不写出错*/
    
41.   end;
    
42.   /* 当前行的_N_ - scan("&obs_list.", iCurrent, ",")) > 5, 则…… */
    
43.   else
    
44.     /* w赋值空值 */
    
45.     w = .;
    
46.   /* 将iCurrent去掉，没有必要留着了，但如果想看看他是怎样变化的，可以不去掉 */
    
47.   drop iCurrent;
    
48. /* data部结束必须写…… */
    
49. run;

复制代码

不知道楼主是否满意啊

sniperhgy 发表于 2014-10-30 21:58
额……，高端……，好吧，我加上注释了：不知道楼主是否满意啊

谢谢   有时间回过头来好好研究研究

小鳄鱼a 发表于 2014-10-30 21:25
能否解释下ifn  这个函数啊     谢谢

函数ifn(参数1，参数2，参数3)  返回一个数值型的值。

判断参数1是否成立，
如果成立，返回参数2；
如果不成立，返回参数3.

小鳄鱼a 发表于 2014-10-30 21:26
select l.*,    什么意思啊

就是select l表的所有变量

pobel 发表于 2014-10-31 07:30
函数ifn(参数1，参数2，参数3)  返回一个数值型的值。

判断参数1是否成立，

如果每个id不止一个  pubdate为0的呢

小鳄鱼a 发表于 2014-10-31 08:38
如果每个id不止一个  pubdate为0的呢

那你就用8楼的方法吧，思路很清楚。

pobel 发表于 2014-10-30 07:36
data wanted;
   merge test
         test(where=(_pubdate=0) rename=(date=_date pubdate=_pubdate) ...

思路真好啊