我很理解你现在遇到的麻烦——用SAS批量输出RTF再合并成超大文档，不仅时不时冒出来的空白页要手动删，还偶尔触发内存错误，确实头疼。结合SAS处理RTF的特性和大文档优化的经验，给你几个针对性的优化方向：

一、内存错误的核心优化策略 #

1. 分批合并，避免一次性加载所有文件 #

一次性把几十上百个RTF文件读入内存，很容易把SAS的字符变量空间或临时工作区撑爆。建议改成分批处理：

• 每次选取100-200个RTF文件，合并成一个中间RTF文档；
• 最后再把所有中间文档合并成最终的超大文档。
  这样每次内存只需要处理小批量文件，压力会小很多。

2. 减少RTF内容的冗余 #

SAS默认输出的RTF会包含完整的样式定义（字体、段落格式等），如果每个输出的RTF都重复相同的样式，会大幅增加文件体积和内存占用：

• 提前定义一个公共样式模板RTF，把所有共用的样式（比如标题、正文格式）放在里面；
• 让SAS输出的每个RTF只包含内容，引用公共模板的样式（可以通过ods rtf style=自定义样式实现，确保所有输出复用同一套样式定义）；
• 输出时加上ods rtf startpage=no;，避免SAS自动给每个proc输出添加分页符，减少不必要的内容。

3. 逐行读写，不加载完整文件到内存 #

不要用字符变量一次性读取整个RTF文件，改用逐行读取+逐行写入的方式：

/* 示例：逐行读取单个RTF并写入合并文档 */
data _null_;
  infile "source_file.rtf" lrecl=32767; /* 大长度避免截断 */
  file "merged_file.rtf" lrecl=32767 mod; /* mod表示追加模式 */
  input;
  put _infile_;
run;

这种方式内存里只会保留当前行的内容，完全不会出现大文件加载导致的内存溢出。

4. 调整SAS内存分配 #

如果是SAS本身的内存配额不足，可以通过选项调整：

options memsize=4096M; /* 给SAS分配4G内存，根据服务器配置调整 */
options workdir="D:/temp_work"; /* 指定大空间的临时目录，避免work区满 */

二、空白页的根治方案 #

1. 从SAS输出源头减少分页 #

空白页很多时候是SAS自动分页导致的：

• 输出RTF时添加ods rtf startpage=no;，关闭proc之间的自动分页；
• 检查proc report、proc print等过程的pageby选项，避免不必要的强制分页。

2. 合并前预处理RTF文件 #

批量处理每个RTF，去掉末尾的空白段落和分页符：

• 用data step读取RTF内容，过滤掉结尾的空行和\page标签（RTF里的分页符标记）；
• 或者用系统命令（如sed、awk）批量处理，比如sed '/^\\page$/d' input.rtf > output.rtf删除分页符。

3. 用外部工具辅助合并 #

如果SAS合并大文档的内存压力实在太大，可以考虑：

• 用SAS生成所有单个RTF后，用Microsoft Word VBA宏批量合并：宏可以自动打开所有RTF，合并后查找并删除空白页（Word的空白页检测逻辑比手动更可靠）；
• 用专门的文档合并工具，这类工具的内存管理通常比SAS更高效。

三、示例：分批合并的SAS代码框架 #

/* 1. 准备要合并的RTF文件列表数据集 */
data rtf_files;
  length filepath $200;
  /* 假设这里是你的文件路径生成逻辑，比如从文件夹读取 */
  filepath = "C:/rtfs/file1.rtf"; output;
  filepath = "C:/rtfs/file2.rtf"; output;
  /* ... 更多文件 ... */
run;

/* 2. 分批合并成中间文档 */
%let batch_size=100; /* 每批处理100个文件 */
data _null_;
  set rtf_files end=eof;
  batch_num = ceil(_n_/&batch_size.);
  /* 定义中间文件路径 */
  interim_file = catt("C:/rtfs/interim_", put(batch_num, z3.), ".rtf");
  
  /* 逐行追加到中间文件 */
  data _null_;
    infile "&filepath" lrecl=32767;
    file "&interim_file" lrecl=32767 mod;
    input;
    put _infile_;
  run;
  
  /* 最后合并所有中间文档 */
  if eof then do;
    filename final "C:/rtfs/final_merged.rtf";
    data _null_;
      file final lrecl=32767;
      /* 先写入公共样式头（如果有） */
      infile "C:/rtfs/common_style.rtf" lrecl=32767;
      input;
      put _infile_;
      
      /* 逐个写入中间文档内容（跳过中间文档的重复样式头） */
      do i=1 to batch_num;
        interim_file = catt("C:/rtfs/interim_", put(i, z3.), ".rtf");
        /* 假设前60行是样式头，跳过 */
        infile "&interim_file" lrecl=32767 firstobs=61;
        input;
        put _infile_;
      end;
    run;
  end;
run;

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