文本识别专题-6-判断变量Var1中是否包含变量Var2任意一行观测中的字符串

我已经提供了3种程序来判断变量Var1中是否包含变量Var2任意一行观测中的字符串，并返回包含的字符串。还有没有更精炼的程序来完成上述操作呢？有！

通过下面的程序，可以得到下表：

data test;

input var1 $ var2 $ ;

cards;

aab a

aac b

def ac

efg ab

bfc aac

;

run;

proc sort data=test(keep=var2) out=test2;

by var2;

run;

data test1;

set test(keep=var1);

do i=1 to n;

set test2 nobs=n point=i;

if find(trim(var1),trim(var2)) then output;

end;

run;