oracle字符串比较问题

Question

现在要写一个函数，主要功能如下
 给定两个字符串，如 oldkey =  'key1;key2;key3;key4' ,newkey = 'key2;key3;key5;key6'
 要求给出 newkey 比 oldkey 多出的key值，如 上面多出的就是key5，key6
那么程序返回字符串'key5;key6'.由于本人对于oralce字符串操作不熟，
请各位帮忙，给出解决方案、提供详细解决思路或相关技术方案均可，谢谢！function getnewkeys(oldkeys clob,newkeys clob) return clob
as
addedkeys clob;
begin
...
return addedkeys;
end;

Answer 1

可以将newkey用;号拆分后,分别判断拆分后的各个字符串是否存在于oldkey ,不存在就拼接输出即可

Answer 2

http://paviorsoft.cn/?p=176
参考字符串包含函数

Answer 3

可以将newkey用;号拆分后,分别判断拆分后的各个字符串是否存在于oldkey ,不存在就拼接输出即可就是用这招最快了!

Answer 4

只能上CSDN，其他网络连不上去拆分后的字符串怎么存放？如何比较，我原来的想法就是拆分后比较，但是具体写法不清楚如果是将oldkey和newkey分别放入一个list游标中，循环比较，该怎么写？

Answer 5

oracle 比较字符串包含关系 
该方法用来比较一个字符串是否包含另一个字符串
 CREATE OR REPLACE FUNCTION strContent(str1 IN VARCHAR2, str2 IN VARCHAR2)
  RETURN NUMBER IS
  Result     NUMBER;
  sStr       VARCHAR2(255);
  scharacter VARCHAR2(255);
  iIndex     NUMBER;
  sTemp      VARCHAR2(255);
BEGIN
  Result     := 0;
  scharacter := str1;
  sStr       := str2;
  iIndex     := INSTR(sStr, ',', 1);
  WHILE (iIndex > 0) LOOP
    iIndex := INSTR(sStr, ',', 1);
    IF (iIndex > 0) THEN
      sTemp := SUBSTR(sStr, 0, iIndex - 1);
    ELSE
      sTemp := sStr;//sTemp是str2拆分后的某一个字符串
    END IF;
    Result := INSTR(scharacter, sTemp, 1);//检查str1中出现sTemp的位置
    IF Result > 0 THEN
      RETURN Result;
    END IF;
        sStr := SUBSTR(sStr, iIndex + 1, LENGTH(sStr));
  END LOOP;
  RETURN Result;
END strContent; 

Answer 6

CREATE OR REPLACE FUNCTION strContent(str1 clob, str2 clob)
  RETURN clob IS
  Result     NUMBER;
  sStr       clob;
  scharacter clob;
  iIndex     NUMBER;
  sTemp      clob;
  resultstr clob;
BEGIN
  if str1 is null THEN
   return str2;
  elsif str2 is null then
    return null;
  end if;
  Result     := 0;
  scharacter := str1;
  sStr       := str2;
  iIndex     := INSTR(sStr, ';', 1);
  resultstr := '';
  WHILE (iIndex > 0) LOOP
    iIndex := INSTR(sStr, ';', 1);
    IF (iIndex > 0) THEN
      sTemp := SUBSTR(sStr, 0, iIndex - 1);
    ELSE
      sTemp := sStr;--sTemp是str2拆分后的某一个字符串
    END IF;
    Result := INSTR(scharacter, sTemp, 1);--检查str1中出现sTemp的位置
    IF Result <= 0 THEN
      resultstr := resultstr||';'||sTemp;
    END IF;
        sStr := SUBSTR(sStr, iIndex + 1, LENGTH(sStr));
  END LOOP;
  RETURN resultstr;
END strContent; 

Answer 7

CREATE OR REPLACE FUNCTION getnewkeys(oldkeys VARCHAR2, newkeys VARCHAR2) RETURN VARCHAR2 IS
  RESULT VARCHAR2(2000);
BEGIN
  WITH t1 AS
   (SELECT ';' || oldkeys str FROM dual),
  t2 AS
   (SELECT ';' || newkeys str FROM dual)
  SELECT REPLACE(wm_concat(s), ',', ';')
    INTO RESULT
    FROM (SELECT substr(t2.str,
                        instr(t2.str, ';', 1, LEVEL) + 1,
                        decode(instr(t2.str, ';', 1, LEVEL + 1),
                               0,
                               length(str) + 1,
                               instr(t2.str, ';', 1, LEVEL + 1)) - instr(t2.str, ';', 1, LEVEL) - 1) s
            FROM dual, t2
          CONNECT BY LEVEL <= (SELECT length(str) - length(REPLACE(str, ';')) FROM t2)
          MINUS
          SELECT substr(t1.str,
                        instr(t1.str, ';', 1, LEVEL) + 1,
                        decode(instr(t1.str, ';', 1, LEVEL + 1),
                               0,
                               length(str) + 1,
                               instr(t1.str, ';', 1, LEVEL + 1)) - instr(t1.str, ';', 1, LEVEL) - 1) s
            FROM dual, t1
          CONNECT BY LEVEL <= (SELECT length(str) - length(REPLACE(str, ';')) FROM t1));
  RETURN RESULT;
END;
--测试
SELECT getnewkeys('key1;key2;key3;key4', 'key2;key3;key5;key6') FROM dual;

Answer 8

上面需要10g的，9i没有wm_concat函数