SAS基础宏之18：PrxChange

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

宏作用

---

和我的PrxMatch一样，都是很简单的宏，就是用正则表达式替换指定的字符串

1. %macro PrxChange(InputString,PrxString);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏利用正则表达式的方法替换原始字符串的匹配子串为目标子串。其中， */
   
5. /* InputString是原始字符串；PrxString是指定子串的正则表达式，注意正则 */
   
6. /* 表达式要用/.../符号括起来。                                        */
   
7. /*                                                                    */
   
8. /* 最终原始字符串中的匹配子串替换为目标子串。注意用于替换子串的正则表 */
   
9. /* 达式形如：s/SourceString/TargetString/                             */
   
10. /*                                                                    */
    
11. /*                                      Created on 2012.8.6           */
    
12. /*                                      Modified on 2012.8.6          */
    
13. /**********************************************************************/
    
14. 
    
15. %local PrxStringID RegRt;
    
16. 
    
17. %let RegRt=0;
    
18. %let PrxStringID=%SYSFUNC(PRXPARSE(&PrxString));
    
19. 
    
20. %if &PrxStringID GT 0 %then %do;
    
21.         %let RegRt=%SYSFUNC(PRXCHANGE(&PrxStringID, -1, &InputString));                /* -1表示全部替换 */
    
22. %end;
    
23. 
    
24. %syscall PrxFree(PrxStringID);
    
25. %str(&RegRt)                /* 最后不需要加分号 */
    
26. 
    
27. %mend;
    
28. 
    
29. 
    
30. %macro Demo();
    
31. 
    
32. /* replace the matching string to target string */
    
33. %let zip=%PrxChange(InputString=Jones Fred,PrxString=s/(\w+) (\w+)/$2 $1/);
    
34. %put &zip;
    
35. 
    
36. %mend;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：PrxChange change sas基础 CHAN Hang 基础宏 SAS PrxChange

又来啦