求教：如何获得一个字符串在另一个字符串中出现的次数

shiyiming

比如'*'在'1*23**4*5'中出现了4次。
有什么函数直接有此功能吗？用什么函数最好？

shiyiming

忙里偷闲，hehe！

data tem;
src='1**c*deab*cc*cd';
rc=length(trim(src))-length(compress(trim(src),'*'));
;run;
proc print;run;

我好像没有看过此类直接的函数，以上的先试试看吧。

shiyiming

这个方法显然比我的substr的方法强多了，谢谢！

shiyiming

[quote="willon":4c82a]忙里偷闲，hehe！

data tem;
src='1**c*deab*cc*cd';
rc=length(trim(src))-length(compress(trim(src),'*'));
;run;
proc print;run;

我好像没有看过此类直接的函数，以上的先试试看吧。[/quote:4c82a]

这个方法只能针对单字符，对[b:4c82a][u:4c82a]包含2个或2个以上的字符串[/u:4c82a][/b:4c82a]，如[b:4c82a]cc[/b:4c82a]，则不能获得正确的rc。

改良方法有2个：
1/ 若SASV9+，则用函数count()
2/ 用do循环
data tem(drop =src i);
        src='1**c*deab*cc*cd';

        i=index(src, 'cc');
            do while (i>0);
              rc + 1;
              src=substr(src, i+1);
              i=index(src, 'cc' );
            end;
run;

另外有个疑问，你所指的[b:4c82a][u:4c82a]字符串记数的概念[/u:4c82a][/b:4c82a]。
src ='1**c*deab*cc*cd';
按您的要求，count(cc)=1还是4？

我的两个方法指的是count(cc)=1。若要求=4则前面的朋友方法也是不错的。

shiyiming

try this

data tem;
src='1**c*deab*cc**cd';
repl='**';
rc=(length(src)-length(compress(tranwrd(src,repl,''),'')))/length(repl);
put rc=;
;run;

shiyiming

tranwrd + length是个非常简洁高效的方法。谢谢！

为了得到和willon相同的结果，我的程序需要修改一下。
data tem(drop =src i);
        src='1**c*deab*ccc*cd'; /*3c*/
        rep ='cc';
        i=index(src, rep);
            do while (i>0);
              rc + 1;
        *src=substr(src, i+ 1);
              [color=red:49e2b]src=substr(src, i+ length(rep));[/color:49e2b]
              i=index(src, rep );
            end;
run;

如：src='1**c*deab*ccc*cd';   rep ='cc'
修改前rc=2   修改前rc=1

根据实际计数需要，修改不同。

在SASv9+还有个函数COUNTC()值得推荐。