SAS-输出文档生成目录的方法

Setup

发布于 2020-09-01 11:14:51

2.6K0

发布于 2020-09-01 11:14:51

文章被收录于专栏：SAS程序分享号号号SAS程序分享号号号

前段时间有一个需求，利用SAS实现文档目录的自动生成。这里小编没有限定文档的类型，是因为本文将分享两种类型文档（PDF/RTF）通过SAS自动生成目录的方法。

正文

在SAS中，利用ODS输出文档前，通常都会定义Style。通过proc template定义输出样式，在proc template中也可以对目录页的样式进行设置。proc template中相关的语句如下。

 style ContentTitle from IndexTitle
      "Controls the title of the Contents file." /
      fillrulewidth = 0.5pt
      marginright = 1em
      marginleft = 1em
      width = 100%
      marginbottom = 4ex
      margintop = 3ex
      font = fonts('TitleFont')
      pretext = text('content title')
      textalign = center;
   style PrintedContentsLabel
      "Sort of a post-posttext for the CONTENTS" /
      posttext = " (*ESC*){leaders .  }(*ESC*){tocentrypage}"
      pretext = "(*ESC*){tocentryindent 2em}";
   style ContentItem from IndexItem
      "Controls the leafnode item in the Contents file." /
      marginright = 15%
      marginleft = 15%;
   style ContentFolder from IndexItem
      "Controls the generic folder definition in the Contents file." /
      marginright = 15%
      marginleft = 15%
      listentryanchor = off
      color = colors('confolderfg');
   style ContentProcName from IndexProcName
      "Controls the proc name in the Contents file." /
      marginright = 15%
      marginleft = 15%;
   style ContentProcLabel from ContentProcName
      "Controls the proc label in the Contents file." /
      posttext = _undef_
      pretext = _undef_;

关于如何查询proc template默认style中关于目录的设置的样式，可通过获取style样式源码，在源码中查找关于Content相关内容。

proc  template ;
 source styles.default;
run;

template

下面是小编修改后的template。

proc template;
  define style tp;
  parent = styles.rtf;
  replace   fonts /                                                         
    "TitleFont2" = ("宋体",9pt) 
    "TitleFont" = ("宋体",9pt)  
    "StrongFont" = ("宋体",9pt,Bold) 
    "EmphasisFont" = ("宋体",9pt,Italic)                                                              
    "FixedEmphasisFont" = ("宋体",9pt,Italic)                                                              
    "FixedStrongFont" = ("宋体",9pt)  
    "FixedHeadingFont" = ("宋体",10pt)      
    "BatchFixedFont" = ("宋体",10pt)        
    "FixedFont" = ("宋体",9pt)             
    "headingEmphasisFont" = ("宋体",10pt,Bold Italic)                                                      
    "headingFont" = ("宋体",10pt,Bold)
    "docFont" = ("宋体",9pt);
  replace Header from HeadersandFooters / font = ("宋体", 9pt, medium) 
    background = _undef_
    protectspecialchars = off;
  replace table from output / font = ("宋体", 9pt, medium)
    background = _undef_
    frame = void
    rules = none
    cellspacing = 0.5pt
    cellpadding = 1pt
    outputwidth = 100%;;
  replace cell from output / 
    font = ("宋体", 9pt, medium) ;
    *定义表头;
    style header /
    backgroundcolor=white 
    color=black
    fontweight=bold;
  *定义文件的布局;
  style body from document / 
    bottommargin = 15mm
    topmargin = 15mm
    rightmargin = 15mm
    leftmargin = 15 mm;
   class Contents /
      liststyletype = "decimal"
      tagattr = " onload=""expandAll()"""
      pagebreakhtml = html('break')
      color = colors('contentfg')
      backgroundcolor = colors('contentbg')
      marginright = 0
      marginleft = 0;
/*控制目录标题*/
   style ContentTitle from IndexTitle
      "Controls the title of the Contents file." /
      fillrulewidth = 0pt 
      marginright = 1em
      marginleft = 1em
      width = 100%
      marginbottom = 0ex
      margintop = 0ex
      font = ("宋体",12pt,Bold)  /*目录字体*/
       pretext = "(*ESC*){style   
  [fontweight=medium
     backgroundcolor=white
     fontsize=5
     color=black nobreakspace=off   borderbottomcolor=black borderbottomwidth=.5 ]目录}"
      textalign = center;
   style PrintedContentsLabel
      "Sort of a post-posttext for the CONTENTS" /
      posttext = " (*ESC*){leaders .}(*ESC*){tocentrypage}"
      pretext = "(*ESC*){tocentryindent 2em}";
   style ContentItem from IndexItem
      "Controls the leafnode item in the Contents file." /
      marginright = 5% 
      marginleft = 5%;
   style ContentFolder from IndexItem
      "Controls the generic folder definition in the Contents file." /
      marginright = 5%
      marginleft = 5%
      listentryanchor = off
      color = colors('confolderfg');
   style ContentProcName from IndexProcName
      "Controls the proc name in the Contents file." /
      marginright = 5%
      marginleft = 5%;
  end;
run;

PDF

SAS输出PDF文档生成目录的原理是利用ods pdf 结合Proc document过程步进行实现的。

效果展现

程序



%macro setpaths;
%global setup_ runsetup ;
%let setup_= %upcase(%sysget(sas_execfilepath));
%let runsetup=%sysfunc(prxchange(s/(.*)\\.*/\1/,-1,&setup_));
proc datasets library=work kill nolist;
quit;


%mend;
%setpaths;


  ods escapechar='^';
  option nomprint nosymbolgen nomlogic nomfile;
  option nobyline nodate nonumber orientation="PORTRAIT" papersize=A4  ;
  title1  justify = c  "(*ESC*){style rowheader  [color=black nobreakspace=off   borderbottomcolor=black borderbottomwidth=.5 ]
                                https://www.sas-pharma.com                           }";
  footnote1  justify = c '第 ^{thispage} 页';
  ods document name=mydocrep1(write);




data class;
  set sashelp.class;
  holder=1;/*无实际作用：控制显示*/
run;


  proc report data=class nowd headskip headline split='|' missing nocenter contents="表1"
  style(report)={ pretext="表1"  };
      column NAME AGE holder;
      define NAME / display "" style(header)=[just=left] style(column)=[just=left cellwidth=70% asis=on];
      define AGE / display "" style(header)=[just=left] style(column)=[just=right cellwidth=26% asis=on];
      define holder / noprint order;
      break before holder / page contents='';


  run;


  proc report data=class nowd headskip headline split='|' missing nocenter contents="表2"
  style(report)={ pretext="表2"  };
      column NAME SEX holder;
      define NAME / display "" style(header)=[just=left] style(column)=[just=left cellwidth=70% asis=on];
      define SEX / display "" style(header)=[just=left] style(column)=[just=right cellwidth=26% asis=on];
      define holder / noprint order;
      break before holder / page contents='';


  run;
  ods document close;




%macro prodoc;
  /*
    利用document输出 PDF 添加目录 标签等信息
  */
  ods output properties=Props;
  proc document name=mydocrep1;
  list / levels=all;
  run;
  quit;
  data _null_;
  set props end=last;
     if type in("Table" "表") then do;
        count+1;
        call symputx('patht'||trim(left(count)),path);
     end;
  call symputx('total',count);
  run;
  proc document name=work.mydocrep1;
     %do i=1 %to &total;
        setlabel &&patht&i "表&i.";
        move &&patht&i to ^;
     %end;


  ods pdf file="&runsetup./Content_test.pdf" contents=yes style=tp startpage=yes  ;
       replay ;
  run;
  ods pdf close;
  quit;
%mend;
%prodoc;

这里主要需要掌握的知识点是proc document ,关于相关用法可在SAShelp中查找。详细了解代码思路，可以一步一步执行代码，这里小编就不在赘述了。

RTF

前面介绍了PDF文档输出目录页，下面在来看看RTF文档目录页生成的方式。关于RTF文档目录页目前查询SAS HELP得到的方法是通过toc_data结合Contents选项。

效果展现

程序

proc template;
  define style tp_rtf;
  parent =tp;
   style ContentTitle from IndexTitle
      "Controls the title of the Contents file." /
      fillrulewidth = 10pt 
      marginright = 1em
      marginleft = 1em
      width = 100%
      marginbottom = 1ex
      margintop = 1ex
      font = ("宋体",12pt,Bold)  /*目录字体*/
      textalign = center
    pretext = "目录";
  end;
run;

  ods proclabel=' ';
  ods escapechar='^';
  option nomprint nosymbolgen nomlogic nomfile;
  option nobyline nodate nonumber orientation="PORTRAIT" papersize=A4  ;
  title1  justify = c  "(*ESC*)R/RTF'\brdrb\brdrs https://www.sas-pharma.com";
  footnote1  justify = c '第 ^{thispage} 页';
  ods rtf file="&runsetup./Content_test.rtf" contents style=tp_rtf startpage=yes toc_data  ;
  ods proclabel=' ';
  proc report data=class nowd headskip headline split='|' missing nocenter contents="表1"
  style(report)={ pretext="\outlinelevel2{表1}\line" };
      column NAME AGE holder;
      define NAME / display "" style(header)=[just=left] style(column)=[just=left cellwidth=70% asis=on];
      define AGE / display "" style(header)=[just=left] style(column)=[just=right cellwidth=26% asis=on];
      define holder / noprint order;
      break before holder / page contents='';

  run;
  ods proclabel=' ';
  proc report data=class nowd headskip headline split='|' missing nocenter contents="表2"
  style(report)={ pretext="\outlinelevel2{表2}\line" };
      column NAME SEX holder;
      define NAME / display "" style(header)=[just=left] style(column)=[just=left cellwidth=70% asis=on];
      define SEX / display "" style(header)=[just=left] style(column)=[just=right cellwidth=26% asis=on];
      define holder / noprint order;
      break before holder / page contents='';
  run;


  ods rtf close;

相对来说RTF生成目录索引较PDF简单。当然理论上也可以采用其他方式生成，这里就不在介绍了。本文主要目的是提供一种思路和几种方法，程序代码均是可执行的简单示例。

代码下载

点击文章底部“在看”后，再点击“阅读原文”即可下载本文所有代码相关文档，或前往https://www.sas-pharma.com/如下图位置进行下载。