无需将.sas文件转为.txt，如何在SAS中导入其原始代码？

当然可以！其实.sas文件本身就是纯文本格式，完全没必要转成.txt再处理——直接在SAS里就能读取原始代码，刚好适配你做关键词搜索工具的需求。下面给你两种实用的实现方式：

单文件读取（适合单个SAS代码文件） #

这种方法会把SAS代码的每一行存储为数据集中的一条观测，还能保留行号方便定位：

/* 1. 指定目标SAS文件的完整路径 */
filename sasfile "C:\Your_Folder\Your_Code.sas";

/* 2. 创建数据集存储代码内容 */
data sas_code_lines;
    infile sasfile lrecl=32767 truncover; /* lrecl设为最大长度避免截断长代码行 */
    input line $char32767.; /* 用$char格式保留代码开头的缩进空格 */
    line_number = _n_; /* 自动生成行号，方便后续定位关键词位置 */
run;

/* 3. 搜索目标关键词（示例：查找包含"PROC SQL"的行） */
proc print data=sas_code_lines noobs;
    where upcase(line) contains 'PROC SQL'; /* upcase统一转大写，避免大小写匹配问题 */
    var line_number line;
run;

关键参数说明： #

• lrecl=32767：SAS允许的最大行长度，确保不会截断长代码行；
• truncover：当代码行长度小于lrecl时，保留完整内容不补空格；
• $char32767.：保留文本开头的空格（比如代码缩进），如果用普通$格式会自动去掉开头空格，破坏代码结构。

多文件批量读取（适合处理整个文件夹的SAS代码） #

如果你的工具需要批量扫描多个.sas文件，用下面的方法可以自动遍历指定文件夹下的所有SAS文件：

/* Windows系统下的批量读取示例（Linux请替换为`ls`命令） */
filename sasdir pipe 'dir "C:\Your_SAS_Code_Folder\*.sas" /b'; /* /b只返回文件名 */

data all_sas_code;
    length filename $256 line $32767 full_path $512;
    /* 先读取文件夹下所有SAS文件名 */
    infile sasdir truncover;
    input filename $char256.;
    /* 拼接文件完整路径 */
    full_path = "C:\Your_SAS_Code_Folder\" || filename;
    /* 循环读取每个文件的每一行 */
    infile temp filevar=full_path lrecl=32767 truncover end=eof;
    do while(not eof);
        input line $char32767.;
        line_number = _n_; /* 当前文件内的行号 */
        output;
    end;
run;

/* 批量搜索关键词（示例：查找所有包含"LIBNAME"的代码行） */
proc print data=all_sas_code noobs;
    where upcase(line) contains 'LIBNAME';
    var filename line_number line;
run;

注意事项： #

• 操作系统差异：Windows用dir命令，Linux/Unix用ls /path/to/folder/*.sas替换管道命令；
• 编码问题：如果你的SAS文件是UTF-8编码，可以在infile语句中添加encoding='utf-8'参数，避免乱码；
• 特殊字符：如果代码里有非ASCII字符，确保SAS会话的编码和文件编码一致。

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