请教清除逻辑库中的数据集收索方法

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

大家好！
       我碰到了一个问题：在我的逻辑库中，混有dirty的数据集，请问我应该怎样清除？
      问题如下
              逻辑库Data当中，正常的数据集是sh000001-600000.但是，有的数据集名称为sh0a0001。就是后面应该是数字的部分低二位中间混有字符。
              这种数据集是需要清除的。
             请问我用程序怎么实现？

             我觉得就是怎么获取变量名的问题。

谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：逻辑库 数据集 dirty Data IRT 请教 逻辑 数据集

可以用macro来做，将每个dataset名赋给macro变量，然后判断macro变量的值是否在sh000001-600000之间
proc datasets lib=libname1 ;
contents out=dsn(keep=MEMNAME where =(input(sbustr(MEMNAME,3,6),6.)<1 and input(sbustr(MEMNAME,3,6),6.)>600000)) noprint;
run;
quit;
proc sql;
   select distinct MEMNAME into : dsn SEPARATED by ' ' from dsn
   ;
quit;

%macro scanloop;
%let counter=1;
%do     %while(%scan(&dsn,&counter,%str( )) NE );
  %let dsn1=%scan(&dsn,&counter,%str( ));
  %put &dsn1;
  proc datasets lib=libname1;
  delete &dsn1;
  run;
  quit;
    %let counter=%eval(&counter+1);
%end;
%mend scanloop;
%scanloop;

2# honghejing

能具体讲讲吗？谢谢~我对宏不熟悉~谢谢~

程序我发上去了，你可以先试试，如有问题可以联系我
3# liu022

1. data _null_;
   
2.         set sashelp.vtable(keep=libname memname) end=last;
   
3.         where libname="WORK" and not prxmatch(prxparse("/^sh\d{6}$/"),compress(lowcase(memname)));
   
4.         n+1;
   
5.         call symputx(compress("memname_"||n),memname);
   
6.         if last then call symputx("n",n);
   
7. run;
   
8. 
   
9. %put &n;
   
10. 
    
11. %MACRO t;
    
12. proc datasets lib=work;
    
13.         delete %do i=1 %to &n %by 1;&&memname_&i%end;;
    
14. run;quit;
    
15. %MEND t;
    
16. %t;

复制代码

用元数据
希望对你有帮助
可能有错，概不负责

4# honghejing

非常感谢，我试试~

5# soporaeternus

谢谢，试试后再讨论 ：）

5# soporaeternus

这段代码好像不对~&n没有能够解析~

贴个log看看，我这边没问题啊

9# soporaeternus

32   data _null_;
33
34           set sashelp.vtable(keep=libname memname) end=last;
35
36           where libname="WORK" and not prxmatch(prxparse("/^sh\d{6}$/"),compress(lowcase(memname)));
37
38           n+1;
39
40           call symputx(compress("memname_"||n),memname);
41
42           if last then call symputx("n",n);
43
44   run;
NOTE: 数值已转换为字符值，位置:（行:列）。
      40:43
NOTE: 有 0 个从数据集 SASHELP.VTABLE 读取的观测。
      WHERE (libname='WORK') and (not PRXMATCH(PRXPARSE('/^sh\d{6}$/'), COMPRESS(LOWCASE(memname))));
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          1.06 秒
      CPU 时间          0.75 秒

45   %put &n;
WARNING: 没有解析符号引用 N。
&n
46   %MACRO t;
47
48   proc datasets lib=work;
49
50           delete %do i=1 %to &n %by 1;&&memname_&i%end;;
51
52   run;quit;
53
54   %MEND t;
55
56   %t;
WARNING: 没有解析符号引用 N。
ERROR: 在需要数值操作数的 %EVAL 函数或 %IF 条件中发现字符操作数。条件是: &n
ERROR: %TO 值（%DO I 循环中）无效。
ERROR: 宏 T 将终止执行。