如何在SAS中拼接排除值为0的字符型Name变量

方法1：使用数组遍历处理（推荐，适合变量数量多的场景） #

通过数组批量遍历25个Name变量，只将非"0"的内容逐步拼接，避免冗余的"0"项：

data test;
    set need;
    /* 定义临时变量存储拼接结果，长度根据实际需求调整 */
    length temp_result $ 1000;
    /* 定义数组覆盖Name1到Name25 */
    array name_vars[25] Name1-Name25;
    
    do i = 1 to 25;
        /* 仅保留非"0"的变量值 */
        if name_vars[i] ne '0' then do;
            if temp_result ne '' then 
                temp_result = catx(',', temp_result, name_vars[i]);
            else 
                temp_result = name_vars[i];
        end;
    end;
    
    new_name = temp_result;
    /* 清理临时变量 */
    drop i temp_result;
run;

方法2：使用ifc函数转换空值后拼接 #

把每个值为"0"的变量转换为空字符串，catx函数会自动忽略空值，直接完成拼接：

data test;
    set need;
    new_name = catx(',',
        ifc(Name1='0', '', Name1),
        ifc(Name2='0', '', Name2),
        ifc(Name3='0', '', Name3),
        ifc(Name4='0', '', Name4),
        ifc(Name5='0', '', Name5),
        ifc(Name6='0', '', Name6),
        ifc(Name7='0', '', Name7),
        ifc(Name8='0', '', Name8),
        ifc(Name9='0', '', Name9),
        ifc(Name10='0', '', Name10),
        ifc(Name11='0', '', Name11),
        ifc(Name12='0', '', Name12),
        ifc(Name13='0', '', Name13),
        ifc(Name14='0', '', Name14),
        ifc(Name15='0', '', Name15),
        ifc(Name16='0', '', Name16),
        ifc(Name17='0', '', Name17),
        ifc(Name18='0', '', Name18),
        ifc(Name19='0', '', Name19),
        ifc(Name20='0', '', Name20),
        ifc(Name21='0', '', Name21),
        ifc(Name22='0', '', Name22),
        ifc(Name23='0', '', Name23),
        ifc(Name24='0', '', Name24),
        ifc(Name25='0', '', Name25)
    );
run;

说明 #

• 方法1的优势是无需重复写25次变量判断，变量数量越多越高效，且便于维护；
• 方法2更直接，但变量数量多的时候代码会比较冗长；
• 注意根据实际拼接后的字符串长度，调整length语句中临时变量的长度，避免截断。

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