如何构造带单引号的SAS宏变量？现有代码报错求替代方法

问题场景 #

现有SAS宏变量：

%let names = name1, name2, name3, name4;

变量内的元素数量不固定，需要生成新宏变量datalist，格式为：

'name1','name2','name3','name4'

尝试过的代码及错误 #

尝试以下代码实现：

%str(%’)%sysfunc(tranwrd(%quote(&names.),%str(,),%str(%’ ,%’)))%str(%’))

运行时出现错误：

The meaning of an identifier after a quoted string might change in a future SAS release. Inserting white space between a quoted string and the succeeding identifier is recommended.

添加空格后问题仍未解决。

解决方案 #

方法1：使用%SUPERQ和%QSYSFUNC处理转义 #

利用%SUPERQ避免宏变量解析时的潜在问题，结合%QSYSFUNC调用TRANWRD函数替换分隔符，同时正确转义单引号：

%let names = name1, name2, name3, name4;
%let datalist = %str(%')%qsysfunc(tranwrd(%superq(names), %str(, ), %str(%',%')))%str(%');

• %superq(names)：以原始形式引用宏变量，避免解析过程中的意外替换
• %qsysfunc(tranwrd(...))：在宏环境中安全调用SAS函数，处理逗号到','的替换
• 首尾用%str(%')添加首尾的单引号

方法2：循环遍历列表元素拼接 #

通过%COUNTW获取元素数量，用%SCAN逐个提取元素后拼接成目标格式：

%let names = name1, name2, name3, name4;
%let datalist = ;
%let item_count = %sysfunc(countw(&names., %str(, )));

%do i = 1 %to &item_count.;
    %let current_item = %scan(&names., &i., %str(, ));
    %let datalist = &datalist.%str(',')&current_item.;
%end;

%* 去掉开头多余的逗号，添加结尾的单引号;
%let datalist = %sysfunc(substr(&datalist., 2))%str(');

这种方法逻辑清晰，适合需要对每个元素额外处理的场景。

方法3：DATA步处理后赋值给宏变量 #

如果宏循环写法受限，也可以用DATA步完成字符串处理，再通过CALL SYMPUTX赋值给宏变量：

%let names = name1, name2, name3, name4;

data _null_;
    input_str = symget('names');
    * 替换逗号为','，再首尾添加单引号;
    output_str = catt("'", tranwrd(input_str, ', ', "','"), "'");
    call symputx('datalist', output_str);
run;

%* 验证结果;
%put &datalist.;

内容的提问来源于stack exchange，提问作者Eren