问一个Hash问题：有无函数能从hash table中取值？

我想改问个问题，不需要涉及统计疑问，是关于hash table的：

1. data a;
   
2.   input a b $;
   
3.   cards;
   
4. 1 q
   
5. 2 w
   
6. 3 e
   
7. 1 r
   
8. 2 t
   
9. ;run;
   
10. 
    
11. data b;
    
12.   if 0 then set a;
    
13.   if _n_ = 1 then do;
    
14.     length new $1.;
    
15.     dcl hash h(hashexp:4);
    
16.         h.definekey('a');
    
17.         h.definedata('a','b','new');
    
18.         h.definedone();
    
19.         call missing(a,b,new);
    
20.   end;
    
21. 
    
22.   set a end = last;
    
23. 
    
24.   if h.find() then do;
    
25.     new = b;
    
26.     h.add();
    
27.   end;else do;  /* when _n_ = 4*/
    
28.     new = /* value b already saved in hash library:'q'*/
    
29.     h.add();
    
30.   end;
    
31. run;

复制代码

描述：目前我有一个其实很多变量的数据集，我只是列举了一个变量A，然后数据集不能排序。

问题是，按照PDV的顺序载入一张空hash table，当我的key第一次被添加时，hash table的b值为‘q’；
我想问下，当我的key第一次被查找到时，我怎么将hash table中的值‘q'拿出来，反馈到我的PDV中？

谢谢。

楼主要找的就是  find() 方法 (在hash里叫方法).
h.find()在查找到key的同时, 会 set data (把data的值取出, 覆盖PDV中相同变量的值)
c=h.check()只查找key的值是否存在，不管data的值.

1. /* try this */
   
2. data a;
   
3.   input a b $;
   
4.   cards;
   
5. 1 q
   
6. 2 w
   
7. 3 e
   
8. 1 r
   
9. 2 t
   
10. ;run;
    
11. 
    
12. data b;
    
13.   if 0 then set a;
    
14.   if _n_ = 1 then do;
    
15.     length new $4.;
    
16.     declare hash h(hashexp:4);
    
17.         h.definekey('a');
    
18.         h.definedata('a','b','new');
    
19.         h.definedone();
    
20.         call missing(a,b,new);
    
21.   end;
    
22.   set a end = last;
    
23.     c = h.check(); put _all_;
    
24.   if  c ^= 0 then do;       /* c^=0 mean the key not exist in the hash table */  
    
25.     new = b;
    
26.     h.add();
    
27.   end;
    
28.     else do;  /* when _n_ = 4*/
    
29.               *  new = ; /* value b already saved in hash library:'q'*/
    
30.     h.find();           /* assign b with the value in hash table */
    
31. *    new = b;
    
32.   end;
    
33. run;

复制代码

问题已改，自己顶下，谢谢

yongyitian 发表于 2014-11-15 14:32
楼主要找的就是  find() 方法 (在hash里叫方法).
h.find()在查找到key的同时, 会 set data (把data的值取 ...

我还想问您个可能比较基础的问题。

就是我们在data步的时候，有用：if 0 then set xxx来利用纯编译读取变量信息到PDV。

那我问下，我有时想建一张空的hash table，需要包含数据集xxx的所有变量属性，然后从PDV往里写东西；
除了h.definedata(all:'y'); + h.clear();还有其他办法吗？
关键是9.1.3中没有h.clear方法，我咋想不到啥其他好的方法呢？。

Tigflanker 发表于 2014-11-19 09:23
我还想问您个可能比较基础的问题。

就是我们在data步的时候，有用：if 0 then set xxx来利用纯编译读取 ...

定义hash时，只要没有 load 数据集，那么建立好的 hash table 就是空的.
但是这样做的时候要在 definekey 和 definedata 语句中列出所有变量.
因为没有数据集，所以 all: 'y' 就不能用了.
变量多的话可以用宏变量.

1. data new_class;
   
2.   if 0 then set class;    /* set all variable contribute */
   
3.    if _n_ = 1 then do;
   
4.       declare hash h ();
   
5.       h.definekey('name');
   
6.       h.definedata('name', 'sex', 'age', 'weight', 'height');
   
7.       h.definedone();
   
8.     end;
   
9.   rc=h.output(dataset: 'empty_hash');
   
10. run;

复制代码

另一个方法是用 iterator 和 remove(). 下面是按照 sas document 中的例子修改的. 并不简单.

1. data new_class;
   
2.    if 0 then set class;   /* set all variable contribute */
   
3. /*    define hash table */
   
4.    if _n_ = 1 then do;
   
5.      declare hash h (dataset: 'class');
   
6.      h.definekey('name');
   
7.      h.definedata(all: 'y');
   
8.      h.definedone();
   
9.    end;
   
10. 
    
11.    declare hiter hi("h");
    
12.      length name_key $10;
    
13.    do while(hi.next()=0);
    
14.      if flag then rc=h.remove(key:name_key);
    
15.       if ^missing(name) then do;
    
16.          name_key = name;
    
17.              flag = 1;
    
18.       end;
    
19.    end;
    
20.    rc=h.remove();
    
21.    rc=h.output(dataset: 'empty_hash2');
    
22.   /* the hash is empty now */
    
23. run;

复制代码

Tigflanker 发表于 2014-11-19 09:23
我还想问您个可能比较基础的问题。

就是我们在data步的时候，有用：if 0 then set xxx来利用纯编译读取 ...

1. Try to make a empty table by SQL, then load it.
   
2. 
   
3. proc sql;
   
4.   create table class like sashelp.class;
   
5.   quit;
   
6. 
   
7. data _null_;
   
8.    if 0 then set class;    /* set all variable contribute */
   
9.    if _n_ = 1 then do;
   
10.       declare hash h (dataset:'class');
    
11.       h.definekey('name');
    
12.       h.definedata(all:'y');
    
13.       h.definedone();
    
14.    end;
    
15. name='Paul';
    
16. sex='M';
    
17. age=12;
    
18. weight=56;
    
19. height=110;
    
20. h.add();
    
21. rc=h.output(dataset: 'new_class');
    
22. run;

复制代码

farmman60 发表于 2014-11-20 01:06

1. It is better, I just find out.
   
2. 
   
3. data _null_;
   
4.    if 0 then set sashelp.class(obs=0);    /* set all variable contribute */
   
5.    if _n_ = 1 then do;
   
6.       declare hash h (dataset:'sashelp.class(obs=0)');
   
7.       h.definekey('name');
   
8.       h.definedata(all:'y');
   
9.       h.definedone();
   
10.    end;
    
11. name='Paul';
    
12. sex='M';
    
13. age=12;
    
14. weight=56;
    
15. height=110;
    
16. h.add();
    
17. rc=h.output(dataset: 'new_class');
    
18. run;

复制代码

farmman60 发表于 2014-11-21 05:53

这方法确实非常好！

可惜在sas9.1.3还是不能用，没想到第一次体会到9.1.3到9.2的差异这么大。。

farmman60 发表于 2014-11-21 05:53

这方法确实非常好！

可惜在sas9.1.3还是不能用，没想到第一次体会到9.1.3到9.2的差异这么大。。