两个字符串无序匹配问题

表t1中有两个字段NO(NUMBER类型),ST(VARCHAR2类型)

表中有如下值

NO ST

1 'A1A3BCLKMBNK'

2 'A2A4MBKLDMSK'

注：ST字段中的值长度都是2的整数倍;

有一变量V_E,变量值为'A3MLLKNKDS'

现在将t1表中的ST字符与变量V_E进行比较，比较的方法如下：

V_E变量中每两个字符为一个基本单位，ST字段也是以两个字符为一个基本单位，让V_E与ST字段进行比较，得出ST中与V_E基本单位相同的数量

即：

t1表中的值可以看做

NO ST

1 'A1 A3 BC LK MB NK'

2 'A2 A4 MB KL DM SK'

. ......................................

. ......................................

---------------------------------------------

变量V_E可以看做

V_E --> 'A3 ML LK NK DS'

---------------------------------------------

比较之后得出：

NO ST 相同值 相同数量

1 'A1A3BCLKMBNK' A3 LK NK 3

2 'A2A4MBKLDMSK' 0

. ............................ ... .

. ............................ ... .

暂有如下函数，本人感觉效率稍低

------------------------------------------------------------------------------------------------------------------------------------
CREATE OR REPLACE FUNCTION FUN_MATCH_CNT(P_STR VARCHAR2, P_STR2 VARCHAR2) RETURN VARCHAR2 IS
　　V_MOTHER VARCHAR2(200);
　　V_MATCH　VARCHAR2(20);
　　V_LENGTH NUMBER;
　　V_LENM　 NUMBER :=2;
　　V_NUM　　NUMBER := 0;
　　V_CNT　　NUMBER ;
　　　　　　　　V_MATCHSTR VARCHAR2(200):=' ';
　　　　　　　　V_MATECHED VARCHAR2(200):=' ';
　BEGIN　　
　　　　　V_CNT　:= 0;
　　V_MOTHER := P_STR;
　　　　　　　　--V_MATCH := P_STR2;
　　--将 V_MOTHER值改变成每两个字符被逗号隔开的值
　　　　　　　　V_LENGTH := LENGTH(REPLACE(P_STR,',','')) / 2;
　　V_LENM　 := LENGTH(P_STR2) / 2;
　　　　　　　　IF(INSTR(V_MOTHER,',')= 0 ) THEN　　　
　　　　　　　　　　　　FOR X IN 1 .. (V_LENGTH - 1) LOOP
　　　　　V_MOTHER := SUBSTR(V_MOTHER, 1, (V_LENGTH - X) * 2) || ',' ||
　　　　　　　　　SUBSTR(V_MOTHER, (V_LENGTH - X) * 2 + 1);
　　　END LOOP;
　　　　　　　　END IF;
　　--DBMS_OUTPUT.PUT_LINE(V_MOTHER);
　　--针对每个基本单位进行比较
　　FOR Y IN 1 .. V_LENM LOOP　　　
　　　　　　　　　 V_MATCH := SUBSTR(P_STR2, Y * 2 - 1, 2);
　　　 SELECT SIGN(INSTR(V_MOTHER,V_MATCH ))
　　　　INTO V_NUM
　　　　FROM DUAL;
　　　　　　　　　　　　　　　　IF V_NUM = 1 THEN
　　　　　　　　　　　　　　　　　　　V_MATECHED := TRIM(V_MATECHED||V_MATCH);
　　　　　　　　　　　　　　　　　　　SELECT SUBSTR(V_MOTHER,1,INSTR(V_MOTHER, V_MATCH)-1)||SUBSTR(V_MOTHER,INSTR(V_MOTHER, V_MATCH)+3)
　　　　　　　　　　　　　　　　　　　　　　　　　　　　INTO V_MOTHER
　　　　　　　　　　　　　　　　　　　　　　　　　　　　FROM DUAL;
　　　　　　　V_CNT := V_CNT + V_NUM;
　　　　　　　　　　　　　　　　　　　　　　　　　　　　--V_CNT := V_CNT + FUN_MATCH_CNT(V_MOTHER,V_MATCH);
　　　　　　　　　　　　　　　　　　　　　　　　　　　　V_MATECHED := TRIM(V_MATECHED||NVL(FUN_MATCH_CNT(V_MOTHER,V_MATCH),' '));
　　　　　　　　　　　　　END IF;
　　END LOOP;　　　　　　　　
　　---DBMS_OUTPUT.PUT_LINE(V_CNT);
　 -- RETURN V_CNT;
　　　　 RETURN TRIM(V_MATECHED);
　END;