如何基于数据集列匹配文件名并复制指定图片至目标目录

优化后完整代码 #

/* 定义源目录与目标目录的宏变量，路径无需加引号 */
%let src_path=C:/Users/Morisseau1/DSPP/Donnees/image_test_o_sas/;
%let dest_path=C:/Users/Morisseau1/DSPP/Donnees/target_images/;

/* 替换为存储目标文件名的实际数据集名称 */
%let target_ds=image_list;

/* 提取数据集中的目标文件名，去重后存入临时表 */
proc sql noprint;
    create table target_files as
    select distinct trim(image_name) as image_name
    from &target_ds;
quit;

/* 遍历源目录，筛选出存在于目标列表中的文件 */
filename src_dir "&src_path";
data matched_files;
    length filename $200;
    did = dopen('src_dir');
    if did > 0 then do i = 1 to dnum(did);
        filename = dread(did, i);
        /* 仅保留匹配目标列表的文件 */
        if exists(select 1 from target_files where image_name = trim(filename)) then output;
    end;
    rc = dclose(did);
    keep filename;
run;

/* 批量复制匹配文件到目标目录 */
data _null_;
    set matched_files;
    length src_file dest_file $250;
    src_file = cats("&src_path", filename);
    dest_file = cats("&dest_path", filename);
    
    /* 用fcopy函数执行复制，返回0表示成功 */
    rc = fcopy(src_file, dest_file);
    if rc = 0 then put "成功复制: " filename;
    else put "复制失败: " filename "，错误码: " rc;
run;

关键优化说明 #

• 精准文件筛选：通过SQL提取目标文件名列表，遍历源目录时用exists判断匹配，只保留需要的文件
• 原生复制实现：使用SAS内置fcopy函数完成文件复制，无需依赖外部命令，兼容性更强
• 路径处理优化：宏变量路径去掉引号，用cats拼接完整路径，避免解析错误
• 日志反馈：复制过程输出成功/失败信息，方便排查问题

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