SAS水平测试，动脑子一起看看吧，高手入

You can wrap it up into a string with macro functions embedded and use resolve to solve it in the same step.


data tmp;
a="5+sum(2.1,5.312)";
astr=catt('%sysevalf(', scan(a,1,'+'),'+%sysfunc(',scan(a,2,'+'),'))');
call symputx('avalue',astr);
b=input(resolve('&avalue'),best.);
put a b;
run;

proc print;run;

proc contents data=tmp;run;

kuhasu 发表于 2013-2-20 21:39
试试看

我的方法跟Imsasor差不多。
刚看了下，bobguy好像已经解决了。

bobguy 发表于 2013-2-21 07:46
You can wrap it up into a string with macro functions embedded and use resolve to solve it in the sa ...

你的方法跟我第一种方法类似，都是想能过宏运算计算得到宏变量的值，可是这不是楼主想要的，因为如果有多个sum，如果有其它运算符号，程序还得重写，楼主想要的还是在data步直接计算出值。

Imasasor 发表于 2013-2-20 20:25
data a;
a="5+sum(2.1,5.312)";
call symput("num",_n_);

这个b在原data步之外

1. data a;
   
2.         b="5+sum(2.1,5.312)";output;
   
3.         b="3*2/1.17";output;
   
4. run;
   
5. 
   
6. %macro a;
   
7.         data _null_;
   
8.         %let dsid = %sysfunc(open(a));
   
9.         %let n=%sysfunc(attrn(&dsid,nobs));
   
10.         %put &n;
    
11.         %do i=1 %to &n;
    
12.         %let rc=%%sysfunc(fetchobs(&dsid,&i));
    
13.         %let variable=%sysfunc(getvarc(&dsid,1));
    
14.         a="&variable";
    
15.         b= &variable;output;        put a b;
    
16.         %end;
    
17.         %let rc=%sysfunc(close(&dsid));
    
18.         run;
    
19. %mend a;
    
20. %a;

复制代码

soporaeternus 发表于 2013-2-21 10:35

可是这样还是进行了两次数据步a,_null_.

a6566792 发表于 2013-2-21 11:01
可是这样还是进行了两次数据步a,_null_.

我的理解是K神的意思是那串b是已经存在的一组函数，然后在一个data步里计算出这些函数的返回值。所以我认为这个data步应该可以有一个输入就是我的a。计算关键在于怎么把字符串变在解析时变成表达式。所以我就把它们代码化了......

看不懂，隔行如隔山

牛啊

表示没看懂题目的意思~~~