17   %vars(%str(round((sbpl1_1+sbpl1_2+sbpl1_3)/3,1)))
ERROR: %SYSFUNC 或 %QSYSFUNC 宏函数引用的函数 LENGTH 中的参数过少。
ERROR: Argument 3 to the function PRXNEXT, the position to stop scanning, is missing.
18   %vars(%str(sbpl1=round((sbpl1_1+sbpl1_2+sbpl1_3)/3,1)))
ERROR: %SYSFUNC 或 %QSYSFUNC 宏函数引用的函数 LENGTH 中的参数过少。
ERROR: Argument 3 to the function PRXNEXT, the position to stop scanning, is missing.

运行出错！

%macro vars(expression);
  %if %sysfunc(index(&expression,%str(%))))>0 %then %let expression=%sysfunc(prxchange(s/.*\((.*)\)\/.*/$1/,-1,&expression));
   %let id=%sysfunc(prxparse(/[a-zA-Z]+\d?\_?\d?/));
   %let s=1;
   %let position=0;
   %let length=0;
   %let e=%sysfunc(length(&expression));
        %syscall prxnext(id,s,e,expression,position,length);
        %do %while(&position >0);
                     %let var=%sysfunc(substr(&expression,&position,&length));
                    %put &var;
            %syscall prxnext(id,s,e,expression,position,length);
            %end;
%mend;
%vars(%str(age+10=age2))
%vars(%str(age=50 & sex=1))
%vars(%str(round((sbpl1_1+sbpl1_2+sbpl1_3)/3,1)))
%vars(%str(sbpl1=round((sbpl1_1+sbpl1_2+sbpl1_3)/3,1)))      

是不是论坛屏蔽了一些字符？能否以附件的形式上传code？谢谢！

Attached code

good！ 能否详细解释一下程序呢？谢谢！

放到DATA步中就好了：对于各种变量都通用， 如：

宏中可以用%sysfunc和%syscall引导：

%let prx = %sysfunc(prxparse(s/\s/ /));
...

%if %sysfunc(prxmatch(&prx., &var.))
...

%let times = -1;
%syscall prxchange(prx, times, var);
...

能否针对我这个问题如何实现？

Code基于14楼我师兄的原本。

%let e1=%str(age+10=age2);
%let e2=%str(age=50 & sex=1);
%let e3=%str(round((sbpl1_1+sbpl1_2+sbpl1_3)/3,1));
%let e4=%str(sbpl1=round((sbpl1_1+sbpl1_2+sum(sbpl1_3))/3,1));


%macro varlist(inlst=, varlst=);
%global outlst;
%let n=%sysfunc(countw(&inlst,%str(=(*/)+&,)));
%let symbol=and|or|eq|lt|le|gt|ge|ne|contains|sum|abs|round;
%let m=%sysfunc(countw(&symbol,%str(|)));
%let outlst=;
%do i=1 %to &n;
        %let var = %scan(&inlst,&i,%str(=(*/)+&,));
        %if %sysfunc(nvalid(&var,%str(V7))) %then  %do;
                %do j=1 %to &m;
                        %let chk = %scan(&symbol,&j,%str(|));
                        %if %lowcase("&var") eq %lowcase("&chk") %then
                        %let var=;
                %end;      
                %let outlst=&outlst.  &var;
        %end;
%end;
%let &varlst=&outlst;
%mend;

%varlist(inlst=&e4,varlst=varlst4);

猫老师你好，我最近开始学习正则表达式，觉得猫老师的代码很厉害，就拿来学习。后来自己写了一个测试的例子，貌似这段代码运行起来有个小瑕疵，2*x=_2x结果就变成了2 x _2x，后来想了想，觉得那个\s\d+改成\b\d+\b会好一点