如何加单引号？

%let LabTestIdx1=1;
%let LabTestIdx2=1 1_1;
%let LabTestIdx3=1 1_1 2_1;
如何给宏变量加单引号
变成
'1'
'1' '1_1'
'1' '1_1'  '2_1'

程序能通用

1. %let LabTestIdx=1 1_1 2_1;
   
2. 
   
3. %let prxpn=%sysfunc(prxparse(s/\b((\d|\_)+)\b/'$1'/));
   
4. %let LabTestIdxNew=%sysfunc(prxchange(&prxpn.,-1,&LabTestIdx.));
   
5. %put &LabTestIdxNew;

复制代码

You may get ideas from my post at the link

https://bbs.pinggu.org/thread-699918-1-1.html


%macro stringit(varlist);
  
  %let n= %eval(%sysfunc(countc(%cmpres(&varlist),%str( )))+ (%length(&varlist)>0) );
  %let varlist2=;

    %do i = 1 %to &n;
     %let cur_var=%str(%')%scan(&varlist,&i)%str(%');
     %if &i=1 %then %let varlist2=&varlist2 &cur_var;
     %else         %let varlist2=&varlist2 &cur_var;
   %end;
   
&varlist2
%mend;

%let VARS=
ABCD EFGH AAC BBD CCE 1 234 675  iab2
;

%put %quote(%stringit(&VARS));