如何利用正则函数提取多个指定字段

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

程序如下：

1. data a;
   
2.   a='jack like jack';
   
3.   pattern=prxparse('/jack/o');
   
4.   start=1;
   
5.   stop=length(a);
   
6.   call prxnext(pattern,start,stop,a,position,length);
   
7.   array num(2) $ ;
   
8.   do i=1 to 2 while (position>0);
   
9.     num(i)=substr(a,position,length);
   
10.     call prxnext(pattern,start,stop,a,position,length);
    
11.   end;
    
12. drop pattern start stop i position length;
    
13. run;

复制代码

问题：在提取多个指定字段的时候利用了array，但前提是知道该字符串中有多少个目标字段，才可以设置 i 的上限。笔者在实际应用中利用的count函数做识别字段计数来做，希望网友有更好的方法来计数目标字段。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：实际应用 字符串 应用中

还有一种方法，就是不使用array，改用output，但会将每一个目标字段形成一个新的观测。

1. data a;
   
2.   a='jack like jack';
   
3.   pattern=prxparse('/jack/o');
   
4.   start=1;
   
5.   stop=length(a);
   
6.   call prxnext(pattern,start,stop,a,position,length);
   
7.   do  while (position>0);
   
8.     num=substr(a,position,length);
   
9.         output;
   
10.     call prxnext(pattern,start,stop,a,position,length);
    
11.   end;
    
12. drop pattern start stop position length;
    
13. run;

复制代码

1. data b;
   
2. length a $50.;
   
3. a='jack said jack like   jack';output;
   
4. a="Jack love JACK's sister";output;
   
5. a='jaack said jacck like jeack';output;
   
6. run;
   
7. 
   
8. %let repeat_var=jack;
   
9. %let replace_var=#;
   
10. 
    
11. data c;
    
12. set b;
    
13. length num num1 num2 $50.;
    
14. if prxmatch("/&replace_var/",a)
    
15. then put "WAR" "NING: the intermediate replace variable is exist in raw strings, please change another one,eg. * or !";
    
16. if prxmatch("/&repeat_var/i",a) then num=prxchange("s/&repeat_var/&replace_var/i",-1,a);
    
17. if prxmatch("/&replace_var/i",num) then do;
    
18.    num_=countw(num,"&replace_var") ;
    
19.    num1=prxchange("s/[^&replace_var]//i",-1,num);
    
20.    num2=prxchange("s/&replace_var/&repeat_var /i",-1,num1);
    
21. end;
    
22. run;

复制代码

lovexialulu 发表于 2018-9-20 14:49

感谢您的回复，学习了。

lovexialulu 发表于 2018-9-20 14:49

感谢您的回复，学习到了。这我最近困扰我的一个新问题，还麻烦您看一下有没有好的解决方法。

如何利用正则函数只提取汉字或者只匹配中文标点符号
https://bbs.pinggu.org/forum.php? ... mp;from^^uid=10993030

汉字 用正则匹配 容易出错吧，汉字是4-byte编码，用 K function 试试， 比如 kscan, kupcase, ksubstr