Question

我正在开发一些RTF代码。我正在使用以下代码正常工作，但我在PRX函数中表现不佳。

有没有办法简单地完成我的代码？

代码：

data _null_;
   length tmptxt $100.;
   tmptxt="a\b Refer $crossref(Table 1) and $italic.Section $crossref(3.1)$enditalic";
   tmptxt=prxchange('s/([\\{}])/\\$1/',-1,tmptxt);
   tmptxt= prxchange('s/([\$][a-zA-Z]+)([\(])/%$1$2/',-1,tmptxt);
   tmptxt=prxchange('s/%\$/%/',-1,tmptxt);
   tmptxt=prxchange('s/([\$][a-zA-Z]+)/&$1$2/',-1,tmptxt);
   tmptxt=prxchange('s/&\$/&/',-1,tmptxt);
   put tmptxt;
run;

提前致谢。拉贾拉姆

Answer 1

不是真的。可能可以对正则表达式进行微小的改进，但它并没有真正产生明显的影响。

我会保持原样。

简单的Perl正则表达式SAS

1 个答案: