如何用正则表达式实现

1. data aaa;
   
2. input x$10. y$12. z$11.;
   
3. cards;
   
4. 10.0±2.4b 12.2±2.3ab 14.2±2.0a
   
5. ;
   
6. run;
   
7. 
   
8. 
   
9. data bbb;
   
10. input x$10. y$12. z$11.;
    
11. cards;
    
12. 10.0(2.4)b 12.2(2.3)ab 14.2(2.0)a
    
13. ;
    
14. run;

复制代码

如何用正则表达式实现将10.0±2.4这种格式或10.0(2.4)这种格式后面的字母变成：
如10.0±2.4b 为10.0±2.4{\super b}    12.2±2.3ab为12.2±2.3{\super ab}


谢谢！

正则表达式不能完全显示出来，看下面引用回复

同问，谢谢楼主

dddddddddd

data bbb;
length a $20.;
a="12.2(2.3)ab";
re=prxparse("/(\d+.?\d+\(\d+.?\d+\))([a-z]+\s)/");
match=prxmatch(re,a);
str=prxposn(re,2,a);
call prxposn(re,2,position, length);
substr(a,position)=cats("{",catx(" ","\super",str),"}");
run;

1. data aaa;
   
2. input x $10. y$12. z$11.;
   
3. tran_x=prxchange('s/(\d±\d+(\.\d+)?)(\w)/$1{\super $3}/i',1,x);
   
4. cards;
   
5. 10.0±2.4b 12.2±2.3ab 14.2±2.0a
   
6. ;
   
7. run;
   
8. 
   
9. data bbb;
   
10. input x $10. y$12. z$11.;
    
11. tran_x=prxchange('s/(\d)\((\d+(\.\d+)?)\)(\w)/$1±$2{\super $4}/i',1,x);
    
12. cards;
    
13. 10.0(2.4)b 12.2(2.3)ab 14.2(2.0)a
    
14. ;
    
15. run;

复制代码

whymath 发表于 2022-5-1 11:44

能否截个图，有乱码，谢谢！

dxystata 发表于 2022-5-2 09:41
能否截个图，有乱码，谢谢！

data aaa;
  input x $10. y $12. z $11.;
  tran_x=prxchange('s/(\d±\d+(\.\d+)?)(\w)/$1{\super $3}/i',1,x);
  cards;
10.0±2.4b 12.2±2.3ab 14.2±2.0a
;
run;

data bbb;
  input x $10. y $12. z $11.;
  tran_x=prxchange('s/(\d)\((\d+(\.\d+)?)\)(\w)/$1±$2{\super $4}/i',1,x);
  cards;
10.0(2.4)b 12.2(2.3)ab 14.2(2.0)a
;
run;

网站的代码块支持做的不好，从后台可以看出原本的内容并未被改正，应从样式上找原因：
版主你能反映给开发人员吗？

whymath 发表于 2022-5-2 18:21
网站的代码块支持做的不好，从后台可以看出原本的内容并未被改正，应从样式上找原因：
版主你能反映给开发 ...

能否解释一下所用正则表达式的含义，谢谢！

prxchange 函数所引用第一个参数为正则表达式，从左至右释义如下：
s/: 表示对之后的文本模式进行替换；
\d±: 一个数字后面跟着±；
\d+: 1个或多个数字；
\.\d+: 小数点后跟着1个或多个数字；
(\.\d+)?: 捕获文本模式“小数点后跟着1个或多个数字”发生0次或1次；
(\d±\d+(\.\d+)?): 捕获文本模式“一个数字，跟着±，跟着1个或多个数字，跟着小数点和1个或多个数字(此模式允许不存在)”；
\w: 1个任意字母、数字、下划线；
(\w): 捕获文本模式“1个任意字母、数字、下划线”；

$1: 第1个捕获组，即从左至右第1个捕获组的内容(\d±\d+(\.\d+)?)；
$3: 第3个捕获组，即从左至右第3个捕获组的内容(\w)；

i: 修饰符，表示忽略正则表达式中非元字符部分的大小写；