SAS同名文件夹Libname分配及多库循环PROC COMPARE技术问询

一、给相同文件夹路径分配统一Libname #

原代码用_n_生成Libname会导致每行分配不同标识，要实现相同路径用同一个Libname，需通过BY分组+计数器实现：

实现步骤与代码 #

1. 先按file_path排序，确保同路径的行连续
2. 用first.file_path标识每个路径的首行，仅在此时生成新Libname
3. 用retain保留计数器，避免跨行重置

/* 按文件夹路径排序 */
proc sort data=excel_table;
    by file_path;
run;

/* 分配统一Libname */
data lib_refs;
    set excel_table;
    by file_path;
    retain lib_counter 0; /* 保留计数器值，跨行不重置 */
    
    /* 遇到新文件夹时，生成新Libname并分配 */
    if first.file_path then do;
        lib_counter + 1;
        libref = 'LIBR' || put(lib_counter, Z2.); /* Z2.确保Libname不超8字符上限，支持99个不同路径 */
        rc = libname(libref, file_path, , "access=readonly");
        if rc ne 0 then sysmsg = sysmsg();
    end;
    /* 同路径后续行继承已生成的Libname，无需重复分配 */
    else do;
        rc = .;
        sysmsg = "";
    end;
run;

二、循环执行PROC COMPARE对比文件 #

假设Folder A已提前分配Libname（示例中命名为FOLDERA），以下两种方法可实现循环对比：

方法1：用CALL EXECUTE动态生成代码 #

直接在数据步中生成并提交PROC COMPARE语句，简洁高效：

/* 提前分配Folder A的Libname */
libname FOLDERA "你的Folder A路径" access=readonly;

/* 动态生成对比代码 */
data _null_;
    set lib_refs;
    /* 提取SAS表名（去掉文件后缀） */
    table_name = scan(file_name, 1, '.');
    /* 生成PROC COMPARE语句并执行 */
    call execute(cats(
        'proc compare base=FOLDERA.', table_name, 
        ' compare=', libref, '.', table_name, ';',
        ' title "对比文件: ', file_name, ' (来源路径: ', file_path, ')";',
        ' run;'
    ));
run;

方法2：用宏循环实现 #

适合习惯宏语法的场景，先提取唯一文件信息再遍历：

/* 去重，保留每个文件的唯一Libname关联 */
proc sort data=lib_refs nodupkey;
    by libref file_name;
run;

/* 定义对比宏 */
%macro compare_files;
    /* 获取总文件数 */
    proc sql noprint;
        select count(*) into :total_rows from lib_refs;
    quit;

    %do i=1 %to &total_rows.;
        /* 读取当前行的Libname和文件名 */
        data _null_;
            set lib_refs point=&i.;
            call symputx('libref', libref);
            call symputx('table_name', scan(file_name, 1, '.'));
            call symputx('file_name', file_name);
            stop;
        run;

        /* 执行对比 */
        proc compare base=FOLDERA.&table_name. compare=&libref..&table_name.;
            title "对比文件: &file_name.";
        run;
    %end;
%mend;

/* 调用宏 */
%compare_files;

注意事项 #

• 非SAS数据集（如txt、xlsx）需指定对应引擎，比如xlsx文件用libname ... xlsx;，txt文件用libname ... dsd dlm=' ';
• 若文件名含特殊字符，需用nliteral()函数处理表名，避免语法错误

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