MORE CUSTOMIZATION?: CREATING SYMBOLS IN RTF FILES USING ODS

shiyiming

From LCChien's blog on blogspot

原文載點：<a href="http://www.lexjansen.com/pharmasug/2004/technicaltechniques/tt12.pdf"><!-- m --><a class="postlink" href="http://www.lexjansen.com/pharmasug/2004/technicaltechniques/tt12.pdf">http://www.lexjansen.com/pharmasug/2004 ... s/tt12.pdf</a><!-- m --></a><br /><br />有時候想要在 SAS 輸出報表裡面寫一些標題或註解，需要加上一些科學符號、希臘字母、甚至是邏輯運算子等特殊符號時，得使用特別的方法顯示出來。這一篇 2004 年的 PHARMASUG 技術文件可供參考。<br /><br /><a name='more'></a>首先必須先去查這些特殊符號的 Unicode decimal number，因為 SAS 必須藉由這些代碼才能對應到特殊符號。查詢的網址如下：<br /><br /><a href="http://www.alanwood.net/unicode/index.html"><!-- m --><a class="postlink" href="http://www.alanwood.net/unicode/index.html">http://www.alanwood.net/unicode/index.html</a><!-- m --></a><br /><br /><a href="http://www.unicode.org/"><!-- m --><a class="postlink" href="http://www.unicode.org/">http://www.unicode.org/</a><!-- m --></a><br /><br />以"alpha"這個希臘字母當做範例，程式如下：<br /><pre><code>ods escapechar="^";<br />%let symbol_alpha=%bquote(^R/RTF"\u<b><span class="Apple-style-span" style="color: red;">945</span></b>\") ;</code></pre><br />第一行用ods escapechar來定義一個轉義字母，在此設定為"^"。SAS 看到轉義字母才知道後面的 Unicode 代碼是要轉成什麼特殊符號。接著用 %bquote 函式來把特殊符號做出來。把上面的程式複製到 SAS，再把紅色的 Unicode 換成你想要的 Unicode 即可。<br /><br />一些常用的特殊符號的 Unicode 代碼：<br />希臘字母：<a href="http://www.alanwood.net/unicode/greek.html"><!-- m --><a class="postlink" href="http://www.alanwood.net/unicode/greek.html">http://www.alanwood.net/unicode/greek.html</a><!-- m --></a><br />數學符號運算子：<a href="http://www.alanwood.net/unicode/mathematical_operators.html"><!-- m --><a class="postlink" href="http://www.alanwood.net/unicode/mathematical_operators.html">http://www.alanwood.net/unicode/mathema ... ators.html</a><!-- m --></a><br />箭頭：<a href="http://www.alanwood.net/unicode/arrows.html"><!-- m --><a class="postlink" href="http://www.alanwood.net/unicode/arrows.html">http://www.alanwood.net/unicode/arrows.html</a><!-- m --></a><br />羅馬數字和分數：<a href="http://www.alanwood.net/unicode/number_forms.html"><!-- m --><a class="postlink" href="http://www.alanwood.net/unicode/number_forms.html">http://www.alanwood.net/unicode/number_forms.html</a><!-- m --></a><br />上標與下標：<a href="http://www.alanwood.net/unicode/superscripts_and_subscripts.html"><!-- m --><a class="postlink" href="http://www.alanwood.net/unicode/superscripts_and_subscripts.html">http://www.alanwood.net/unicode/supersc ... ripts.html</a><!-- m --></a><br />其他：<a href="http://www.alanwood.net/unicode/letterlike_symbols.html"><!-- m --><a class="postlink" href="http://www.alanwood.net/unicode/letterlike_symbols.html">http://www.alanwood.net/unicode/letterlike_symbols.html</a><!-- m --></a><br /><br />原文提供一個範例。假設要製作下列表格的註解：<br /><div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/-ww361cGKeNw/TfUmAD1S6sI/AAAAAAAAF6M/0jAz1SCVBbo/s1600/tt12.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="363" src="http://3.bp.blogspot.com/-ww361cGKeNw/TfUmAD1S6sI/AAAAAAAAF6M/0jAz1SCVBbo/s640/tt12.png" width="640" /></a></div><br />程式如下：<br /><pre><code>footer f1 ;<br />define f1 ;<br />text<br />&nbsp; &nbsp;" +Above Normal Range" "^1n"<br />&nbsp; &nbsp;"-Below Normal Range" "^1n"<br />&nbsp; &nbsp;"A reading &amp;symbol_ge 40 for SGPT/ALT is considered Above Normal" &nbsp;"^1n"<br />&nbsp; &nbsp;"A reading &amp;symbol_le 30 for SGPT/ALT is considered Below Normal" &nbsp; "^1n" <br />&nbsp; &nbsp;"An example of &amp;symbol_alpha." "^2n "<br />&nbsp; &nbsp;"&amp;font9.Output:" " &amp;tab.&amp;outdir.\&amp;pgmonly..rtf" "^1n"<br />&nbsp; &nbsp; "Source:&amp;tab.&amp;source." &nbsp;;<br />&nbsp; &nbsp;style={font_face=Arial font_size=2.5 font_weight=medium background=white} ;<br />&nbsp; &nbsp;just=left ;<br />end ; </code></pre><br />如果覺得這樣太麻煩，就送去Word編輯吧！<br /><br /><b>CONTACT INFORMATION</b><br /><br />Richard Rowell<br />Connetics Corporation<br />3290 West Bayshore Road<br />Work: (650) 843-2876<br /><!-- e --><a href="mailto:rrowell@connetics.com">rrowell@connetics.com</a><!-- e --><br />Jim Lenihan<br />15 Moonlight Ct<br />South San Francisco, CA 94080<br />Work: (650) 742-0131<br /><!-- e --><a href="mailto:jameslenihan@sbcglobal.net">jameslenihan@sbcglobal.net</a><!-- e --><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/6268919072942670865-2086101820374400309?l=sugiclub.blogspot.com' alt='' /></div>