CORE
mf_getquotedstr.sas
Go to the documentation of this file.
1 
24 %macro mf_getquotedstr(IN_STR,DLM=%str(,),QUOTE=S);
25  %if &quote=S %then %let quote=%str(%');
26  %else %if &quote=D %then %let quote=%str(%");
27  %else %let quote=%str();
28  %local i item buffer;
29  %let i=1;
30  %do %while (%qscan(&IN_STR,&i,%str( )) ne %str() ) ;
31  %let item=%qscan(&IN_STR,&i,%str( ));
32  %if %bquote(&QUOTE) ne %then %let item=&QUOTE%qtrim(&item)&QUOTE;
33  %else %let item=%qtrim(&item);
34 
35  %if (&i = 1) %then %let buffer =%qtrim(&item);
36  %else %let buffer =&buffer&DLM%qtrim(&item);
37 
38  %let i = %eval(&i+1);
39  %end;
40 
41  &buffer
42 
43 %mend;