请教：识别是否包含特定字符，如果是，则返回特定字符。

请教如何进行下列操作：识别是否包含特定字符，如果是，则返回特定字符。

为求清晰说明，我举例如下。

data test;

input var1 $ var2 $;

cards;

aab a

aac b

def c

efg a

bfc c

;

proc print;

run;

得到：

           Obs   var1    var2

            1    aab      a

             2    aac      b

             3    def      c

             4    efg      a

             5    bfc      c

我是用的程序如下：

proc sql;

     select distinctvar2 into :chkvar separated by ''

     from test;

quit;

data test;

        settest;

        ifprxmatch("/[&chkvar]/",var1)>0 then match=1;

       elsematch=0;

run;

得到：

  Obs   var1    var2    match

  1    aab      a        1

  2     aac     b        1

  3    def      c        0

  4    efg      a        0

  5     bfc     c        1

但这不是我要的结果，我想要的结果应当如下

  Obs   var1    var2    match

  1    aab      a        a

  1    aab      a        b

  2     aac     b        a

2     aac     b        c

  3    def      c        无匹配信息

  4    efg      a        无匹配信息

  5     bfc     c        b

  5     bfc     c        v

于是我使用了下面的程序，但是这个程序无法运行。请教大神如何操作才可以实现我想要的结果。

data test;

        settest;

        ifprxmatch("/[&chkvar]/",var1)>0 then match="/[&chkvar]/";

       elsematch="无匹配信息";

run;

1. data test;
   
2. input var1 $ var2 $;
   
3. cards;
   
4. aab a
   
5. aac b
   
6. def c
   
7. efg a
   
8. bfc c
   
9. ;
   
10. 
    
11. proc sql noprint;
    
12.      select distinct var2 into :chkvar separated by ''
    
13.      from test;
    
14. quit;
    
15. 
    
16. data test;
    
17.         set test;
    
18.         var1_=var1;
    
19.         pattern=prxparse("/([&chkvar])/");
    
20.         if prxmatch(pattern,var1_) then
    
21.                 do until (prxmatch(pattern,var1_)=0);
    
22.                         match=prxposn(pattern,1,var1_);
    
23.                         var1_=compress(var1_,match);
    
24.                         output;
    
25.                 end;
    
26.         else do;
    
27.                 match="无匹配信息";
    
28.                 output;
    
29.         end;
    
30. run;

复制代码

我想了一个下午，编了一个宏实现的，效率奇低。非常感谢l1i2n3i4n5g 的程序，佩服。

追加奉上5个论坛币。

追加一个操作问题。
我换了几个数据，test表格变成下面这种。var2的取值长短不一。
data test;
input var1$ var2 $;
cards;
aab a
aac b
def ac
efg ab
bfc aac
;
run;

再按您给的程序跑，得到的结果如下。

var1	var2	var1_	pattern	match
aab	a	b	1	a
aab	a		1	b
aac	b	c	1	a
aac	b		1	c
bfc	aac	fc	1	b
bfc	aac	f	1	c

这个表格只是匹配了a,b,c,单个字母，对于ac,ab,aac等字母组合并未匹配。请问能否将ac,ab,aac等字母组合也进行匹配？我的实际数据包含这些组合。

mosuchen 发表于 2017-5-22 14:00
追加一个操作问题。
我换了几个数据，test表格变成下面这种。var2的取值长短不一。
data test;

1. data test;
   
2. input var1 $ var2 $;
   
3. cards;
   
4. aab a
   
5. aac b
   
6. def ac
   
7. efg ab
   
8. bfc aac
   
9. ;
   
10. run;
    
11. 
    
12. proc sql noprint;
    
13.      select distinct var2 into :chkvar separated by '|'
    
14.      from test;
    
15. quit;
    
16. 
    
17. data test;
    
18.     set test;
    
19.         retain pattern n;
    
20.         if _n_=1 then do;
    
21.             pattern=prxparse("/(&chkvar)/");
    
22.                 n=count("&chkvar",'|')+1;
    
23.         end;
    
24.     if prxmatch(pattern,var1) then
    
25.         do i=1 to n;
    
26.                         match=scan("&chkvar",i,'|');
    
27.                         if index(var1,strip(match)) then output;
    
28.                 end;
    
29.         else
    
30.                 do;
    
31.                     match="无匹配信息";
    
32.                     output;
    
33.                 end;
    
34.         drop pattern n i;
    
35. run;

复制代码