t= 开头的进行转换

1. %macro aaa(value=);
   
2. 
   
3. %if %sysfunc(index(&Value,t=)) %then %let Value=%sysfunc(tranwrd(&value, t=,{\i t}=));
   
4. %put &value;
   
5. 
   
6. %mend;
   
7. 
   
8. %aaa(value=t=12.86);
   
9. %aaa(value=dt=783mmhg);

复制代码

t= 开头的进行转换， t=在中间的不转换。希望%aaa(value=t=12.86);的结果是{\i t}=12.86
%aaa(value=dt=783mmhg);的结果是dt=783mmhg


如何实现？谢谢！

%macro aaa(value=);
%if %sysfunc(prxmatch('^t=',&value.)) %then %let Value=%sysfunc(tranwrd(&value, t=,{\i t}=));
%put &value;

%mend;

%aaa(value=t=12.86);
%aaa(value=dt=783mmhg);