含左括号的SAS文件批量重命名问题求解

问题根源 #

原代码的核心问题是宏解析时会把文件名里的左括号(当成宏语法的一部分，尤其是未闭合的括号，会直接导致宏参数传递失败。比如当fname是Jason (A.xlsx时，call execute生成的宏调用会是%file_rename(from=Jason (A.xlsx, to=Jason A.xlsx);，宏处理器会误判(A.xlsx是未完成的参数语法，直接报错。

解决方案 #

有两种简洁的修复方式，推荐第二种（跳过宏直接处理）更直观：

方法一：修复宏与参数传递逻辑

通过宏引用函数保留特殊字符的原始格式，避免宏解析干扰：

data school_file_list;
    input fname $ 1-18 newfname $ 20-42;
    cards;
Jason (Allen).xlsx Jason Allen.xlsx
Jason (A.xlsx      Jason A.xlsx
;
run; 

%let filepath= C:\mypath\;

%macro file_rename(from, to);
data _null_;
    /* 用%superq获取参数原始值，不解析特殊字符 */
    from_path = "&filepath." || %superq(from);
    to_path = "&filepath." || %superq(to);
    rc=rename(from_path, to_path, "file");
    if rc ne 0 then do;
        put "Rename of file " from_path " to " to_path " DID NOT WORK!!!" rc=;
        call symput('err','1');
    end;
    else put "Rename of file " from_path " to " to_path " WORKED.";
run;
%mend file_rename;

data _null_; 
    set school_file_list;
    /* 用%nrstr包裹宏调用框架，避免括号被提前解析 */
    call execute(
        %nrstr(%file_rename(from=)) || strip(quote(fname)) || 
        %nrstr(, to=) || strip(quote(newfname)) || 
        %nrstr(;)
    );
run;

方法二：直接在Data步处理（更简单）

绕开宏解析的问题，直接在Data步里调用rename函数，无需宏定义：

data school_file_list;
    input fname $ 1-18 newfname $ 20-42;
    cards;
Jason (Allen).xlsx Jason Allen.xlsx
Jason (A.xlsx      Jason A.xlsx
;
run; 

%let filepath= C:\mypath\;

data _null_;
    set school_file_list;
    /* 直接拼接完整路径，无需宏参数传递 */
    from_path = "&filepath." || fname;
    to_path = "&filepath." || newfname;
    rc=rename(from_path, to_path, "file");
    
    if rc ne 0 then do;
        put "Rename of file " from_path " to " to_path " DID NOT WORK!!!" rc=;
        call symput('err','1');
    end;
    else put "Rename of file " from_path " to " to_path " WORKED.";
run;

原理说明 #

• 方法一中，%superq用于获取宏参数的原始未解析值，保留文件名里的括号；%nrstr则阻止call execute在生成代码时提前解析括号语法。
• 方法二更直接，完全跳过宏的解析逻辑，直接在Data步中处理文件路径，从根源避免了特殊字符的解析冲突。

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