Question

在以下陈述中，我需要一些帮助。

我正在尝试将2个prxchange语句合并为一个。

该代码的目的是将所有不可打印的ASCII字符更改为相应的由双括号括起来的2字符十六进制代码，例如[A0]。

下面的第一条语句更改了十六进制字符xA0。第二个将十六进制字符更改为x20到x7E。

是否可以将这些语句组合成一个语句？

            var = prxchange ( "s/([\xA0])/[A0]/"       , -1 , varcontent);
            var = prxchange ( "s/([^\x20-\x7E])/[$1]/" , -1 , varcontent);

Answer 1

您是否考虑过使用HEX.格式来代替？如果您使用SAS，则Regex似乎是一种相当复杂的方法。

http://support.sas.com/documentation/cdl/en/lrdict/64316/HTML/default/viewer.htm#a000205154.htm

例如

data _null_;
  length a b $32;
  a = '09400940'x;
  do i = 1 to length(a);
    char = substr(a,i,1);
    rank = rank(char);
    if rank < 32 then b = cats(b,'[',put(rank,hex2.),']');
    else b = cats(b,char);
  end;
  put a= $32. / b= $32.;
run;

SAS中的Perl正则表达式PRXCHANGE

1 个答案: