求教一个较小的正则问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问一下，我想匹配一个非 ‘_’ 的其他符号，应该怎么处理呢？

[[:punct:]]这是任意符号，怎么把下划线的情况剃掉呢？

谢谢 ：）

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：怎么处理 UNC 下划线 pun 下划线

1. /* [^_]  match an any character except an underscore "_" */  
   
2. 
   
3. data _null_;
   
4. if _n_ = 1 then do;
   
5.      pn1="/_/";        p1=prxparse(pn1);
   
6.      pn2="/[^_]/";     p2=prxparse(pn2);
   
7.      retain p1 p2;
   
8. end;
   
9. input string $10.;
   
10.     position1 = prxmatch(p1, string);  
    
11.     put _n_=  "P1     underscore _ is found at position " position1 " in the string: " string;
    
12.     position2 = prxmatch(p2, string);  
    
13.     put _n_=  "P2 non-underscore is found at position " position2 " in the string: " string;
    
14. datalines;
    
15. 1234_56789
    
16. ____5_____
    
17. ; run;

复制代码

I am not fully sure about your second question. Because compress could be used in similar condition
like  x=compress(x,'_').

data _null_;
input x$20.
x=prxchange('s/_//',-1,x);
put x;
cards;
_dj23jk
dl&_k7j
ui%*uy
$dk(_23
;
run;

yongyitian 发表于 2014-3-22 10:39

/* [^_]  match an any symbol except an underscore "_" */  

data _null_;
if _n_ = 1 then do;
     p2=prxparse("/[^_]/");
     retain p2;
end;
input string $10.;
    position2 = prxmatch(p2, string);  
    put "First position for non _ but a symbol is 7 '|' ? :" position2;
datalines;
1a34_6|89
; run;

是这样的，我想找串中的第一个非下划线的符号。

是符号，但是惟独不是下划线。

Not Prx.

data have;
input x $;
pos=findc(x,'_ ','kad');
cards;
34jfk
_e35$&
%7yud_u
1a34_6|89
;
run;

farmman60 发表于 2014-3-24 19:31
Not Prx.

data have;

谢谢！非常感谢！

9.2的函数，虽然不是想要的，不过收获很大！！

farmman60 发表于 2014-3-24 19:31
Not Prx.

data have;

请问，在哪里可以找到kad及相关的参数？

在sas的support中也没有查到。。谢谢

You could find information on findc function at:
https://support.sas.com/documentation/cdl/en/lrdict/64316/HTML/default/viewer.htm#a002264923.htm

In addition, here is method to find punctuation position with prx.

data have;
input x$ ;
pos=findc(x,'_ ','kad');
prx_pos=prxmatch('/[^a-z0-9_]/',strip(x));
cards;
34jfk
_e35&
%7yud_u
1a34_6|89
;
run;

Tigflanker 发表于 2014-3-24 12:42
/* [^_]  match an any symbol except an underscore "_" */  

data _null_;

明白你要做什么了，感觉不太可能把这两件事情放在一个 prx-pattern.

Not sure whether the following is the same as your case. But you have many ways to do it with two patterns.

data _null_;
if _n_ = 1 then do;
     pn1="/[[:punct:]]/";      p1 = prxparse(pn1);
         pn2="/[_]/";               p2=prxparse(pn2);
         retain p1 p2;
end;
input string $10.;
    position1 = prxmatch(p1, string);  
    position2 = prxmatch(p2, string);  
    if position1 = position2 then
put _n_=   "the first punctuation is found     to be an _ at position: " position1 " in string: " string;
    if position1 ^= position2 then
put _n_= "the first punctuation is found not to be an _ at position: " position1 " in string: " string;
datalines;
1234__&*=_
1234*:'_?_
^~!',:"??_
_~!',:"??_
; run;