SAS基础宏之17：PrxMatch

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

很简单的一个宏，就是用正则表达式匹配指定的字符串
匹配成功则返回1，不成功则返回0

1. %macro PrxMatch(InputString,PrxString);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏利用正则表达式的方法检索字符串中是否包含有指定的子串。其中，   */
   
5. /* InputString是原始字符串；PrxString是指定子串的正则表达式，注意正则 */
   
6. /* 表达式要用/.../符号括起来。                                        */
   
7. /*                                                                    */
   
8. /* 最终若匹配成功，则返回1，否则返回0。                               */
   
9. /*                                                                    */
   
10. /* 另外，此宏选取自"Using PRX to Search and Replace Patterns in SAS   */
    
11. /* Programming"，并稍加改动。                                         */
    
12. /*                                                                    */
    
13. /*                                      Created on 2012.4.9           */
    
14. /*                                      Modified on 2012.4.9          */
    
15. /**********************************************************************/
    
16. 
    
17. %local PrxStringid regrt;
    
18. 
    
19. %let regrt=0;
    
20. %let PrxStringid=%sysfunc(prxparse(&PrxString));
    
21. 
    
22. %if &PrxStringid GT 0 %then %do;
    
23.         %let regrt=%sysfunc(prxmatch(&PrxStringid, &InputString));
    
24. %end;
    
25. 
    
26. %syscall prxfree(PrxStringid);
    
27. %str(®rt)                /* 最后不需要加分号 */
    
28. 
    
29. %mend;
    
30. 
    
31. 
    
32. %macro Demo();
    
33. 
    
34. /* test whether there is a match or not */
    
35. %let zip=%PrxMatch(InputString=34567-2345,PrxString=/\d{5}-\d{4}/);
    
36. %put &zip;
    
37. 
    
38. %mend;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：PrxMatch sas基础 Match ATCH 基础宏 表达式 字符串

Thanks! But macro %prxchange is remained unsolved.

顶啊