如何筛选含有非数字的变量列表

数据如下：
data test;
input  (a b c) ($);
cards;
1 2 3
3 4 5
e 没 4
;
run;



需求如下： 筛选包含有非数字的变量列表，并放到宏变量varlist调用，即输出 %varlist= a b 。

注意观测和变量可能不止3个。

1. data test;
   
2.         input  (a b c d e f) ($);
   
3.         cards;
   
4. 1 2 3 r t 3
   
5. 3 4 5 d 5 4
   
6. e 没 4 5 b 4
   
7. ;
   
8. run;
   
9. 
   
10. *把字符变量全部找出来,并赋值给宏变量varname;
    
11. proc contents data=test out=type noprint;
    
12. run;
    
13. 
    
14. proc sql noprint;
    
15.         select name into :varname separated by " " from type where type=2;
    
16. quit;
    
17. 
    
18. *使用数组，如果满足if，则i就是变量在宏变量varname的排序,num里某变量出现次数即为其里面包含字符观测的个数;
    
19. data test1;
    
20.         set test;
    
21.         array varchar{*} &varname.;
    
22. 
    
23.         do i=1 to dim(varchar);
    
24.                 if prxmatch("/\d/",varchar(i))=0 then
    
25.                         do;
    
26.                                 num=scan("&varname.", i, " ");
    
27.                                 output;
    
28.                         end;
    
29.         end;
    
30.         keep num;
    
31. run;
    
32. 
    
33. proc sort data=test1 out=test2 nodupkey;
    
34.         by num;
    
35. run;
    
36. 
    
37. proc print data=test2;
    
38. run;

复制代码

乐天天12300 发表于 2021-1-14 19:41

大牛厉害啊

乐天天12300 发表于 2021-1-12 17:52

还有小数点的情况  要怎么用正则表达式剔除掉？

wind2019 发表于 2021-1-15 15:38
还有小数点的情况  要怎么用正则表达式剔除掉？

匹配小数就是小数点前面以数值开头，小数点后面以数值结尾

1. prxmatch("/^\d+[.]?\d+$/", x)

复制代码

乐天天12300 发表于 2021-1-15 16:07
匹配小数就是小数点前面以数值开头，小数点后面以数值结尾

可以了 谢谢

乐天天12300 发表于 2021-1-15 16:07
匹配小数就是小数点前面以数值开头，小数点后面以数值结尾

还有空值的情况 怎么也剔除掉啊？   快哭了

data want;
        set test;
        array chs _character_;
        PRX=PRXPARSE("/\D/");
        prx=prxparse("/^\d+[.\d]?\d?$/");

        do i =1 to dim(chs);
                START=1;
                STOP=LENGTH(chs(i));
                CALL PRXNEXT(PRX,START,STOP,chs(i),POSITION,LENGTH);
                if position=0 then do;
                        x = vname(chs(i));
                        output;
                end;
        end;
run;