由暴力匹配算法想到

暴力匹配是最基本最直接的匹配算法，从前到后逐一匹配，若失配，则字符串右移一格，重头再来。

用SAS实现就是：

%let text=abcdadbdftee;
%let find=ft;
data _null_;
    a="&text";
    b="&find";
    len_a=length(a);
    len_b=length(b);
    i=1;
    j=1;
    do while (i<=len_a & j<=len_b);
        a1=substr(a,i,1);
        b1=substr(b,j,1);
        if a1=b1 then do;
            i++1;j++1;
        end;
        else if a1 ne b1 then do;
            i=i-j+2;j=1;
        end;
    end;
    if j>len_b then do;
        position=i-j+1;
        put "------POSITION:" position "---";
    end;
    put _all_;
run;

这种方法比较古老，也比较"不先进"。

 

鄙人利用SAS的特性，写了一个不超过10行的代码实现此功能，分享给大家：

%let text=abcdadbdftee;
%let find=ft;
data _null_;
    do i=1 to %length(&text)-%length(&find)+1;
        want=substr("&text",i,%length(&find));
        if want="&find" then put "---POSITION:" i "---";
    end;
run;

 

欢迎大家拍砖

 

by yant07